Consulta !
Discupa como puedo hacer una busqueda de un texto que introduzco en un formulario a una tabla que abro con la siguiente rutina:
'------------------------------
Private Sub Texto1_AfterUpdate()
Dim Dbs As Database
Dim Tab1 As Recordset
Set Dbs = CurrentDb
Set Tab1 = Dbs.OpenRecordset("Usuarios", dbOpenDynaset)
Tab1.MoveFirst
If Not Tab1.EOF Then
If [Texto1] <> 0 Then
Me.Recordset.FindFirst [Ficha] = Me![Texto1]
End If
End If
End Sub
'------------------------------
Private Sub Texto1_AfterUpdate()
Dim Dbs As Database
Dim Tab1 As Recordset
Set Dbs = CurrentDb
Set Tab1 = Dbs.OpenRecordset("Usuarios", dbOpenDynaset)
Tab1.MoveFirst
If Not Tab1.EOF Then
If [Texto1] <> 0 Then
Me.Recordset.FindFirst [Ficha] = Me![Texto1]
End If
End If
End Sub
