Sincronizar un registro de un objeto Recordset de DAO con el registro actual de un formulario

En el ejemplo de código siguiente se usa la propiedad RecordsetClone y el objeto Recordset para sincronizar el registro de un conjunto de registros con el registro actual del formulario.

Cuando se selecciona un nombre de empresa de un cuadro combinado, el método FindFirst se usa para buscar el registro de esa empresa y la propiedad Bookmark del objeto Recordset se asigna a la propiedad Bookmark del formulario, lo que hace que el formulario muestre el registro encontrado.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.