ayuda para unir consulta

[Yerim]

Hola, un saludo a todos y quiero agradecer el apoyo de ustedes con sus respuestas.

Estoy armando mi consulta ahi esta el codigo, pero al momento de ejecutar me manda error en la sintaxis de Like, espero alguien pueda ayudarme con este problemita.

Dim condicion As String
condicion = ""

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

If Trim(nombre1) <> "" Then
condicion = condicion & "(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 Where" & condicion

[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

[Indigo77]

Esta parte,

la primera parte yo la cambiaría por esto

Dim condicion As String
condicion = "1=1 "

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

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

Así te ahorras la parte de los if para quitar el "and" final. Los espacio están siempre al final de cada cadena concatenada.

Saludos...