Me ayudan con este algoritmo?

[u_goldman]

Pues no se, pero se me ocurre una función que le pases como argumentos los 8 campos

Function DevuelveAND(itera, campo1, campo2, campo3, campo4, campo5, campo6, campo7, campo8)
esAND= false
For i = 2 to itera
If eval(campo & i) <> ""
esAND = true
Exit For
Next
DevuelveAND = esADN
End Function

Function(campo1, campo2, campo3, campo4, campo5, campo6, campo7, campo8)
strSQL = "SELECT campo FROM tabla WHERE "
If campo1 <> ""
mi_campo = "nombre_campo"
strSQL = strSQL & mi_campo & "=" & campo1
es_and = DevuelveAND(2, campo1, campo2, campo3, campo4, campo5, campo6, campo7, campo8)
If es_and Then
strSQL = strSQL & " AND "
End If
End If

If campo2 <> "" Then
mi_campo = "nombre_campo"
strSQL = strSQL & mi_campo & "=" & campo2
es_and = DevuelveAND(3, campo1, campo2, campo3, campo4, campo5, campo6, campo7, campo8)
If es_and Then
strSQL = strSQL & " AND "
End If
End If
.
.
.
.
.
'hasta 8
End Function

No se, demasiado redundante, pero podría funcionar... :-p


Salu2,