13/03/2008, 02:23
|
 | | | Fecha de Ingreso: diciembre-2007 Ubicación: España
Mensajes: 60
Antigüedad: 16 años, 5 meses Puntos: 0 | |
| Re: ayuda para unir consulta
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... |