Manipulacion
Como hago una opcion buscar en un form enlazada con un control data y access 97. Trabajo en visual basic 6.0
1 Respuesta
Respuesta de horacio_tg
1
Te envío un ejemplo con ADO, si trabajas con DAO es muy parecido.
Public Function buscar(ByRef rs As ADODB.Recordset, ByVal valor As String) As Boolean
Dim myBookMark As Variant
'Validar el recordset vacío
If rs.EOF And rs.BOF Then
buscar = False
Exit Function
End If
myBookMark = rs.Bookmark
rs.MoveFirst
rs.Find valor, 0, adSearchForward
If rs.BOF Or rs.EOF Then
rs.Bookmark = myBookMark
buscar = False
Else
buscar = True
End If
End Function
Public Function buscar(ByRef rs As ADODB.Recordset, ByVal valor As String) As Boolean
Dim myBookMark As Variant
'Validar el recordset vacío
If rs.EOF And rs.BOF Then
buscar = False
Exit Function
End If
myBookMark = rs.Bookmark
rs.MoveFirst
rs.Find valor, 0, adSearchForward
If rs.BOF Or rs.EOF Then
rs.Bookmark = myBookMark
buscar = False
Else
buscar = True
End If
End Function
