Touls |
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. |
