Hola a todos!!
He estado trabajando en un grupo de mi cinta de opciones sobre una busqueda de cada formulario, el campo es el mismo en todos los formulario (esto para facilitarme la busqueda) pero no consigo poder hacer la consulta,éste es mi codigo
Public Sub OnChangeRecord(ctl As IRibbonControl, Text)
Dim rs As DAO.Recordset
Dim strCriterio As String
Dim f As Form
Set f = Screen.ActiveForm
strCriterio = "[UbicacionTecnica] = '" & (ctl.Id = "txtBusqueda") & " ' "
Set rs = f.RecordsetClone
rs.FindFirst (strCriterio)
If rs.NoMatch Then
MsgBox "Verifique Su Escritura", vbInformation + vbOKOnly, "UT No Encontrada"
Else
f.Bookmark = rs.Bookmark
End If
rs.Clone
Set rs = Nothing
End Sub
Y hasta ahora solo consigo que me mande el msj de registro no encontrado, espero puedan ayudarme con este problema..
