Cita:
Iniciado por Avellaneda 
Si como dices al principio:
"quiero hacer la consulta, cuando le ponga por ejemplo: incendio que me muestre el texto donde se encuentra dicha palabra"
entiendo que lo que quieres es que busque el primer registro que incluya la palabra en cualquier posición del campo, si así sólo tienes que hacer esto:
Código:
Private Sub CmdConsultas_Click()
Dim buscar As String
buscar = InputBox(" Ingrese la palabra que desea consultar.", "Palabra")
Data1.Recordset.FindFirst "[descripcion] LIKE '*" + buscar + "*'"
If Data1.Recordset.NoMatch Then
MsgBox "No hay mas archivos.", vbCritical, "FINAL DE LA CONSULTA"
CmdConsultas.Visible = False
Else
CmdConsultas.Visible = True
End If
End Sub
Supongo que "Data1" es un control DAO, si lo fuera de ADO sustituye los comodines (*) por %
Hola muchas gracias, ya me salio. una pregunta si quiero hacer la consulta de x palabra y que me muestre los registros que tiene dicha palabra; debo usar if anidados y un contador.?
