Accéder à VBA Ouvrir tous les enregistrements sur le nouveau formulaire, mais afficher l'enregistrement spécifié

Question

J'ai un formulaire avec des numéros d'identification, et des boutons qui sont censés ouvrir un autre formulaire avec l'enregistrement relatif. En plus de cet enregistrement spécifique affiché, j'ai besoin de tous les enregistrements à ouvrir car mon formulaire doit avoir des boutons Suivant et Précédent. J'essaie de le faire depuis quelques jours maintenant, et je n'ai pas été en mesure d'ouvrir tous les disques et de montrer un travail spécifique en même temps. J'ai donc commencé à utiliser l'assistant pour ouvrir tous les enregistrements. Comment est-ce que je devrais le réparer pour qu'il montre l'enregistrement cliqué dessus?

Private Sub Command74_Click() 

On Error GoTo Err_Go_to_Click 

Dim stDocName As String 
Dim stLinkCriteria As String 

stDocName = "Contracts" 
DoCmd.OpenForm stDocName, , , stLinkCriteria 

Exit_Go_to_Click: 
    Exit Sub 

Err_Go_to_Click: 
    MsgBox Err.Description 
    Resume Exit_Go_to_Click 


End Sub 

Merci d'avance!

Answer 1

Vous devez naviguer vers le bon enregistrement après avoir ouvert le formulaire. Je ne vois pas le code pour remplir les strLinkCriteria donc j'ai fourni quelques données factices dans mon exemple.

Private Sub Command74_Click() 

On Error GoTo Err_Go_to_Click 

Dim stDocName As String 
Dim stLinkCriteria As String 

stLinkCriteria = "ContactID = '" & Me.ContactID & "'" 
stDocName = "Contracts" 
'Open the form with no filter 
DoCmd.OpenForm stDocName 
'Go to the specified record 
Forms(stDocName).Recordset.FindFirst stLinkCriteria 

Exit_Go_to_Click: 
    Exit Sub 

Err_Go_to_Click: 
    MsgBox Err.Description 
    Resume Exit_Go_to_Click 


End Sub