Discussion :

[Salsaboy60]

Bonjour tout le monde,

j'ai un formulaire client, avec dans l'entête un champ de recherche.

code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Rechercher_AfterUpdate()
 With Me.RecordsetClone
 
  .FindFirst "NP=" & Nz(Me.Rechercher, 0)
 
    If Not .NoMatch Then
       Me.Bookmark = .Bookmark
    Else
       MsgBox ("Client absent de la base !")
    End If
 
 End With
 
End Sub

Le champs recherche est indépendant, Contenu T_Patient, Colonne liée 1, Nbr Colonnes 22, format colonnes 0;0;0;0; enz ...0;8

Quand je scanne mon code barre patient, je vois que il passe par l'affichage, mais ensuite il affiche un champs vide, j'ai reçoit un message que "Le texte entrée n'est pas un élément de la liste"

et il 's arrête sur le code VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Bookmark = .Bookmark

qqn peut m'aider à resoudre se problème svp?

Hans

[Salsaboy60]

PS:

si sur l'invite de déboger ou mettre fin, si je choisi fin et je rechoisi mon code barre, il l'affiche bien.

[Jeannot45]

Quel est le type de ton champ de recherche (Zone de texte ou liste déroulante)
Est-ce que dans la source de ta liste déroulante (si cela en est une) as-tu intégré le champ correspondant au code barre
La valeur retournée par la douchette est-elle de type numérique ou alphabétique ?

As-tu essayé cette syntaxe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.FindFirst "NP=" & Str(Nz(Me.Rechercher, 0))

Bonne continuation