Busqueda
Publicado por GRIS (48 intervenciones) el 14/08/2007 14:37:35
Hola a tod@s, alguien me podría ayudar ??? ,tengo una busqueda, que la realizo por medio de un cuadro de texto, pero quiero realizarla con 2 o mas cuadros de texto, como le prodría hacer ????, este es mi codigo ...
Set sql = CurrentDb()
strSQL = "SELECT * FROM Tubular where no_ensamble like '*" & NBUSCA & "*'"
Set sales = sql.OpenRecordset(strSQL, dbOpenDynaset)
With sales
If .EOF And .BOF Then 'Si está al comienzo y al final del Recordset al mismo tiempo.
MsgBox "No se encuentra o no existe el Numero de Ensamble"
NBUSCA = ""
NBUSCA2 = ""
Etiqueta247.Caption = "0"
GoTo Salida
Else
.MoveLast
.MoveFirst 'Voy al primer y al último registros con el objetivo de contar los registros.
End If
cuentapalabra = sales.RecordCount
Etiqueta247.Caption = cuentapalabra
alguien podria ayudarme ???
Set sql = CurrentDb()
strSQL = "SELECT * FROM Tubular where no_ensamble like '*" & NBUSCA & "*'"
Set sales = sql.OpenRecordset(strSQL, dbOpenDynaset)
With sales
If .EOF And .BOF Then 'Si está al comienzo y al final del Recordset al mismo tiempo.
MsgBox "No se encuentra o no existe el Numero de Ensamble"
NBUSCA = ""
NBUSCA2 = ""
Etiqueta247.Caption = "0"
GoTo Salida
Else
.MoveLast
.MoveFirst 'Voy al primer y al último registros con el objetivo de contar los registros.
End If
cuentapalabra = sales.RecordCount
Etiqueta247.Caption = cuentapalabra
alguien podria ayudarme ???
Valora esta pregunta


0