findrecord

Question

Bonjour à vous !

 
Décidement, cette commande me cause beaucoup de problème...

Je m'explique, je dois réaliser une interface en Access permettant
la saisie de données. Certains boutons apparents peuvent normalement
permettre une navigation entre les différents enregistrements, avec
quelques fois, des sauvergardes de modifications ...

 
Hors, à chaque fois que j'utilise cette commande pour
rechercher un patient possédant un numéro "X", l'évenement est
enregistré. Je voudrai simplement qu'il me renvoie à l'enregistrement
désiré sans effectuer de sauvegarde... Idem pour mon bouton
"Annuler"... mais ca, c'est une autre histoire.

 
je mets ici mon code consistant à rechercher un patient parmi plusieurs enregistrements:

 

Citation :

Private Sub Rechercher_le_nom_Click()

On Error GoTo Err_Rechercher_le_nom_Click

 
 
Exit_Rechercher_le_nom_Click:

    Exit Sub

 
Err_Rechercher_le_nom_Click:

    MsgBox Err.Description

    Resume Exit_Rechercher_le_nom_Click

 
 Dim text As String

    Dim nomP As String

     
          DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

          DoCmd.GoToRecord , , acPrevious

 
text = MsgBox("Veuillez entrer le nom du patient que vous recherchez" )

 
 If text Null Or text "" Then

    MsgBox ("veuillez saisir un nom" )

 

    Else

        num_pat.Visible = True

        nom.SetFocus

        nomP = text

   

     

    DoCmd.FindRecord nomP, acEntire, False, acSearchAll, False, acCurrent, True

    nom.SetFocus

     
    If (text <> nom) Then

      MsgBox ("Aucun patient trouvé" )

     End If

    Call visibilite

End If

     
End Sub

 

 
 
Voila à peu près ce que cela donne, excusez-moi si cela
manque de rigueur et de propreté, je débute le Vba et quelques notions
m'échappent encore 
 
J'aimerai donc exécuter une commande de recherche parmi
plusieurs éléments (sans que celle-ci enregistre les saisies effectuées
au préalable) des que je clique sur mon bouton "rechercher" associé à
cette fameuse commande FindRecord.

 
En tout cas merci d'avance à ceux qui se pencheront sur mon dilemne, j'espère avoir été suffisament clair 
Dans le cas contraire j'essaierai d'être un peu plus explicite.

 
Bye.

cs_Tols · Answer

Erf ...

Désolé du doublon dans la liste des posts, avec les problèmes de chargement et certains messages d'erreurs, mon précèdent message était invisible dans la liste ....

Findrecord

1 réponse

Votre réponse

Discussions similaires