consulta con Data
Publicado por jlcastro (114 intervenciones) el 26/03/2001 23:53:53
tengo una base de datos enlazada con un control data en la cual se visualizan todos los campos correctamente, pero quiero buscar un campo con el siguiente codigo y no me funciona.
la base datos se llama cartones
el campo se llama N
da este error 424 en tiempo de ejecucion
se requiere un objeto.
Private Sub Command32_Click()
Dim mensaje$
Dim SearchStr$
Dim cartones
mensaje$ = "Introduzca Numero de Carton."
'obtiene la cadena que se utilizará en la búsqueda del título
SearchStr$ = InputBox(mensaje$, "Búsqueda del Carton")
cartones.Recordset.Index = "n" 'usa Nombre Clase
cartones.Recordset.Seek "=", SearchStr$ 'y busca
If cartones.Recordset.NoMatch Then 'si no encuentra ninguno
cartones.Recordset.MoveFirst 'va al primer registro.
End If
End Sub
gracias de antemano
la base datos se llama cartones
el campo se llama N
da este error 424 en tiempo de ejecucion
se requiere un objeto.
Private Sub Command32_Click()
Dim mensaje$
Dim SearchStr$
Dim cartones
mensaje$ = "Introduzca Numero de Carton."
'obtiene la cadena que se utilizará en la búsqueda del título
SearchStr$ = InputBox(mensaje$, "Búsqueda del Carton")
cartones.Recordset.Index = "n" 'usa Nombre Clase
cartones.Recordset.Seek "=", SearchStr$ 'y busca
If cartones.Recordset.NoMatch Then 'si no encuentra ninguno
cartones.Recordset.MoveFirst 'va al primer registro.
End If
End Sub
gracias de antemano
Valora esta pregunta


0