Consulta por palabras

[ariesagv]

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 %

ok., lo voy a probar , luego te aviso que onda