| Usuario |
realizar una busqueda de texto en ... |
Gufa
3 Mensaje(s)
|
| Enviado - 15/7/2004 |
| |
tengo el siguiente codigo para buscar un datos en una tabla que solo tiene el nombre de la empresa, como pueden imagina el nombre es un string
private sub cmdbuscar_click()
Dim numero As String, ant As String
numero = UCase(InputBox("Nombre de la empresa :"))
ant = Trim(Text1.Text)
If numero = "" Then Exit Sub
numero = "empresa LIKE ' *" & numero & "*' "
Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find (numero)
End If
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
'BUSCA DESDE EL PRINCIPIO
Adodc1.Recordset.Find numero
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
MsgBox ("NO EMCUENTRO ESE NOMBRE")
End If
End If
end sub
pero al correrlo me marca error,¿acaso tengo que tener necesariamente un ampo numerico?
|
| |
|
Gufa
3 Mensaje(s)
|
| Enviado - 19/10/2004 |
| |
Gracias a todos por su ayuda, ya pude solucionar el problema....
|
| |
|
|
|
