Synchroniser l’enregistrement d’un jeu d’enregistrements DAO avec l’enregistrement actif d’un formulaire

L’exemple de code suivant utilise la propriété RecordsetClone et l’objet Recordset pour synchroniser l’enregistrement d’un recordset avec l’enregistrement actuel du formulaire.

Lorsqu’un nom de société est sélectionné dans une zone de liste déroulante, la méthode FindFirst permet de localiser l’enregistrement de cette société et la propriété Bookmark de l’objet Recordset est affectée à la propriété Bookmark du formulaire, ce qui entraîne l’affichage de l’enregistrement trouvé par le formulaire.

Sub SupplierID_AfterUpdate() 
    Dim rst As Recordset 
    Dim strSearchName As String 
 
    Set rst = Me.RecordsetClone 
    strSearchName = Str(Me!SupplierID) 
    rst.FindFirst "SupplierID = " & strSearchName 
        If rst.NoMatch Then 
            MsgBox "Record not found" 
        Else 
            Me.Bookmark = rst.Bookmark 
        End If 
    rst.Close 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.