Private Sub btnPasarDatos_Click()
Dim strBookmark As String
Dim frmDestino As Form
' Almacena el bookmark del registro actual
strBookmark = Me.Bookmark
' Abre el formulario de destino
Set frmDestino = New Form_frmDestino
' Mueve al registro correspondiente en el formulario de destino
frmDestino.RecordsetClone.FindFirst "ID = " & Me.ID.Value ' Ajusta "ID" al nombre del campo clave primaria en tu tabla
' Restaura el bookmark en el formulario de destino
If Not frmDestino.RecordsetClone.NoMatch Then
frmDestino.Bookmark = frmDestino.RecordsetClone.Bookmark
End If
' Abre el formulario de destino
DoCmd.OpenForm "frmDestino"
' Limpia la variable y libera los recursos
strBookmark = ""
Set frmDestino = Nothing
End Sub