Probleme avec InputBoxRésolu

Question

Bonjour tout le monde.

J'utilise InputBox pour saisir le critére de recherche, quand je clique sur OK, ça marche j'ai un resultat , mais quand je clique sur annuler au lieu de fermer l' InputBox , ça cherche encore (avec un critére de recherche vide) et ça m'affiche le message qui indique que la personne recherché n'existe pas.

Voilà le code que j'ai mis dans le boutan rechercher de mon Form :

Private Sub cmdrech_Click()
On Error Resume Next
Dim a
a = InputBox("Entrez le Code de la personne recherchée :", "Recherche")
Dim t As Boolean
rsoperm.MoveFirst
Do Until rsoperm.EOF = True
Me.MousePointer = vbHourglass


If Trim(UCase(rsoperm!code_operation)) = Trim(UCase(a)) Then
t = True
Exit Do
Else
t = False
End If
rsoperm.MoveNext
Loop
If t = True Then
readrecord
Me.MousePointer = vbDefault
ElseIf t = False Then
MsgBox "La personne  recherchée n'existe pas!!", vbCritical, "Resultat de la recherche"
Me.MousePointer = vbDefault
Else
End If


End Sub

Merci de votre Aide

erefdatacomputing · Accepted Answer

Si je ne m'abuse, le fait d'appuyer sur le bouton 'Cancel' de l'InputBox renvoie une chaine de caractères vide lors du test.

Après  la ligne:

a = InputBox("Entrez le Code de la personne recherchée :", "Recherche")

Il te faut donc rajouter une ligne du style :

if len(a)=0 then goto ......

comme te l'a dit   jrivet .
J'ai bien peur que tu n'ai pas le choix !!!!!

Je comprends vite mais il faut m'expliquer longtemps et tout en détails !!!

jrivet · Answer

Salut,

Tu nas juste a faire un teste sur la valeur de a apres sa saisie

a = InputBox("Entrez le Code de la personne recherchée :", "Recherche")
If a = "" then exit sub

Ceci devrait fonctionner

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée

domsig · Answer

eh pourquoi tu fais pas un select from ta table where le code = ce que tu as rentré ?
hein ?
dis ?

econs · Answer

Salut,

Pour la gestion du clic sur Annuler, j'ai déposé une source à ce sujet.
Regarde ICI.

Manu

--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.

survivorr · Answer

Merci de vos reponses

J'ai tjrs le meme PB j'ai essayé le code de "econs" 
J'ai pas fait  un select from ta table where le code = ce que j'ai rentré parce que c'est la  meme chose que :
Do Until rssn.EOF = True
If Trim(UCase(rssn!num_aut)) = Trim(UCase(a)) Then
...................
Pour la suggestion de "jrivet", ce qui m'intersse c'est de fermer le INPUTBOX aprés avoir cliqué sur Annuler et non pas quand le critére de recherche est vide, merci quand meme de ta reponse.

domsig · Answer

je comprends pas... ton inputbox ne se ferme pas quand tu cliques sur le bouton annuler ? précise un peu...

survivorr · Answer

Oui mon inputbox ne se ferme pas quand je clique sur  le bouton annuler et ce bouton fait le meme travail que le bouton OK c-a-d il cherche ds la table et il m'affiche "enregistrement non trouvé ! "

tu peux me dire pourquoi ?

Merci de ton aide

Probleme avec InputBox

7 réponses

Votre réponse

Discussions similaires