buscar abreviado
Publicado por Walter (1 intervención) el 23/04/2002 00:55:35
estoy usando el datagrid, y quiero buscar un registro por
una variable llamada NOMBRE, pero solo quiero poner las primeras letras
del contenido aca mando el ejemplo de como lo tengo y no funciona
Private Sub cdmbuscar_Click()
Dim strsearch As String
strsearch = Trim(InputBox("escriba el apellido:", "Buscar"))
Data1.Recordset.FindFirst "NOMBRE='" & strsearch & " '"
If Data1.Recordset.NoMatch Then
MsgBox "no se encuentra", vbExclamation
Else
DBGrid1.SelBookmarks.Add DBGrid1.Bookmark
End If
End Sub
una variable llamada NOMBRE, pero solo quiero poner las primeras letras
del contenido aca mando el ejemplo de como lo tengo y no funciona
Private Sub cdmbuscar_Click()
Dim strsearch As String
strsearch = Trim(InputBox("escriba el apellido:", "Buscar"))
Data1.Recordset.FindFirst "NOMBRE='" & strsearch & " '"
If Data1.Recordset.NoMatch Then
MsgBox "no se encuentra", vbExclamation
Else
DBGrid1.SelBookmarks.Add DBGrid1.Bookmark
End If
End Sub
Valora esta pregunta
0