Muchas Gracias Bubilo y una duda más.
He quitado algunas cositas
Código:
Private Sub Command1_Click()
Dim i As Integer
Dim palabras As Variant
palabras = Split(Text1.Text)
For i = 0 To UBound(palabras)
Text2.Text = Text2.Text & " " & Añadir(CStr(palabras(i))) & " "
Next i
End Sub
Public Function Añadir(palabras As String) As String
Dim base As Database
Dim tablanueva As Recordset
Dim campo_campo3 As Field
Set base = OpenDatabase(App.Path & "\database.mdb")
Set tablanueva= base.OpenRecordset("SELECT * FROM tabla WHERE campo1='" & palabras & "'")
Set campo_campo3 = tablanueva.Fields("campo3")
If tmiha.RecordCount < 1 Then
Añadir = palabras & " " & "[Sin Concordancia]"
Else
Añadir = palabras & " " & "[" & campo_campo3 & "]"
End If
End Function
No se si has probado el fichero que te pase pero por ejemplo en el fichero hay un la, que el programa me responde [Sin Corcondancia], pero sin embargo en la base de datos si que está. ¿puede ser debido a algún espacio en blanco? Y si es así ¿como podría quitarlo?.