FindRecord
FindRecord - VB/VBA/VBS - Programmation
Marsh Posté le 16-05-2006 à 16:30:06
vas jeter un oeil sur
http://access.developpez.com/
http://jacma.developpez.com/accesdonneesdao/
Marsh Posté le 17-05-2006 à 11:50:24
Bonjour!
Merci kiki29 pour tes liens, j'ai appris certaines choses qui m'ont été utiles.
Malheureusement, après des recherches peu fructueuses, je me demande si j'ai bien saisie l'utilité du FindRecord...Visiblement, il enregistre des son éxecution, hors justement, ce n'est pas ca que je veux..C'est simplement aller Dessus.
Je pensais eventuellement utiliser GoToRecord, mais la encore, je doute de son utilité...
Je ne parlerai pas non plus de mon bouton "Annuler" qui n'efface pas non plus l'enregistement dans la base -_-'
Je pourrai en perseverant trouver peut-être une solution, mais le temps m'est compté... Je ne peux pas me permettre de remanier mon code de puis le début.
Svp, quelqu'un pourrait-il m'éclaircir ou me donner une ptite piste?
Merci.
Marsh Posté le 16-05-2006 à 15:00:31
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:
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.