06/02/2008, 21:51
|
| | | Fecha de Ingreso: febrero-2008
Mensajes: 6
Antigüedad: 17 años, 2 meses Puntos: 0 | |
| Re: Ayuda para buscar registros
Private Sub Command1_Click()
Dim buscartel As String
buscartel = UCase(InputBox("Ingrese El Telefono A Buscar.", "Buscar Producto"))
adoclien.RecordSource = "Select * From Clientes Where Telefono = '" & buscartel & "'"
adoclien.Refresh
End Sub
en esa linea me marca error, podria ser por que nunca muestra los datos... pero aun asi no deberia marcar error se tomaria como basura csimplemente y no arrojaria nada...
la verdad hace mucho que no utilizo el visual basic, por eso pido ayuda...
gracias |