06/02/2008, 01:17
|
| Colaborador | | Fecha de Ingreso: enero-2008 Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 17 años, 2 meses Puntos: 37 | |
| Re: Ayuda para buscar registros
¿Cual es la descripción del error y en qué linea lo marca?
Hay algunos cosas que no entiendo de ese código. p.e. en el evento Click del Command1:
adoclien.RecordSource = "Select * From Telefono where Clientes ='" & buscar & "'"
¿Qué es buscar, donde declaraste esa variable? ¿No querrás decir buscartel ?
¿Buscar en la tabla Telefono por el campo Clientes, no será al contrario?
Yo creo que la consulta debería ser así:
"Select * From Clientes Where Telefono = '" & buscartel & "'"
Además a continuación del InputBox deberías verificar que el valor de buscartel no es nulo (que el usuario no haya introducido ningún dato) ya que daría error en la consulta.
Por otra parte, en el procedimiento "buscarr" deberías indicar que contiene el parámetro "criterio" ya que es posible que sea ahí donde está el error. |