Ir a un registro de un subformulario ACCESS

Que es lo que queremos??

Pues bien desde un cuadro combinado del Formulario Principal quiero que me situe el enfoque en el registro con el valor de un campo especifico que yo le pasaré.


Codigo Propuesto:

Dim MiReg As Object

Set MiReg = SubRegistros.Form.RecordsetClone

MiReg.FindFirst "CODIGO=" & CODIGO & ""

If Not MiReg.NoMatch Then
SubRegistros.SetFocus
SubRegistros.Form.Bookmark = MiReg.Bookmark
End If

Explicacion del codigo:

Copiamos el recorset del subformulario:
Set MiReg = SubRegistros.Form.RecordsetClone

Buscamos el primer registro que coincidaMiReg.FindFirst "CODIGO=" & CODIGO & ""

Si lo encotramos Ponemos el foco en el y pasamos el book mark al formulario.If Not MiReg.NoMatch Then
SubRegistros.SetFocus
SubRegistros.Form.Bookmark = MiReg.Bookmark
End If