RE:ir a un registro determinado con un formulario
Aun asi sigue sin funcionarme. Ahora lo he intentado hacer con el método find y este es el código, a ver si puedes ayudarme...
Private Sub Empresa_AfterUpdate()
Dim BD As Database, rs As Recordset
Set BD = DBEngine.Workspaces(0).Databases(0)
Set rs = BD.OpenRecordset("Historial", DB_OPEN_DYNASET)
rs.FindFirst "[Empresa] Like '" & Empresa.Value & "'"
If rs.NoMatch = True Then
MsgBox "No existe historial de este cliente en la base de datos", vbExclamation, "INFORMACION"
DoCmd.GoToRecord , , acNewRec
EmpresaHistorial.Value = Empresa.Value
Else
If IsNull(Me.Report) = False Then
Report = rs![Report]
End If
End If
rs.Close
Set BD = Nothing
End Sub