ayuda para unir consulta

[Peterpay]

pon un espacio entre tu Where y la comilla asi como en el inicio de tus comparadores

ademas recuerdad q necesitas agregar AND cuando sean mas de una condicion en tu where


Dim condicion As String
condicion = ""

If Trim(placa1) <> "" Then
condicion = condicion & "unsepacioaqui(NOMBRE Like '%" & nombre & "%')and"
End If

If Trim(nombre1) <> "" Then
condicion = condicion & "unsepacioaqui(CALLE Like '%" & calle & "%')and"
End If

If Len(condicion) Then
If Right(condicion, 4) = "and" Then
condicion = Left(condicion, Len(condicion) - 4)
End If
End If

Dim consulta1 As String
consulta1 = " SELECT * from ALUMNOS Whereunespacioaqui" & condicion