Estrucutura de la tabla
campo1, campo2, campo3, campo4
Cita: Public Function Añadir(palabras As String) As String
Dim base As Database
Dim ttablaAs Recordset
Dim campo3 As Field
Set base = OpenDatabase(App.Path & "\basededatos.mdb")
Set tmiha = base.OpenRecordset("SELECT * FROM tabla WHERE campo1='" & (LCase(palabras)) & "'")
Set campo3 = ttabla.Fields("campo3")
If ttabla.RecordCount < 1 Then
Añadir = palabras & " " & "[Sin Concordancia]"
Else
Añadir = palabras & " " & "[" & campo3 & "]"
Aqui deberia hacer algo pero no se el qué, porque de esta forma solo me muestra un solo registro. Y hay registros con más de un tercercampo.
End If
ttabla.Close
Set ttabla= Nothing
base.Close
Set base = Nothing
End Function
Resulta que la sentencia SQL puede tener varios campo tres. EJ.
campo1 campo2 campo3 campo4
1 casa 1 roja
2 casa 1 azul
3 autopista 1 grande
4 autopista 1 pequeña
5 botella 1 tequila
6 autopista 1 llena
ejecutamos sentencia SQL
select * from tabla where campo1 = casa
Resultados:
casa [roja][azul]
Hasta ahora solo consigo mostar esto:
casa [roja]
¿como hago para mostrar el/los resultado/s que me falta/n?
Muchas GRacias