Access 2007 Query SQL

[congisat]

Buon pomeriggioo a tutti, sono nuovo del forum che ho individuato cercando di risolvere un problema che ho riscontrato nell'esecuzione di una query sql da una maschera access 2007.
La maschera creata serve per la ricerca di record all'interno di una tabella tramite delle combobox che ho inserito sulla maschera stessa.
Ho prima provato con una semplice query di selezione ma non era sufficiente per eseguire le ricerche in quanto se il valore della combobox veniva inserito come criterio allora dovevano per forza essere selezionati i valori in tutte le combobox presenti (and) se usavo righe diverse per ogni criterio combo (or) non veniva eseguito il filtro per ogni valore presente.
Allora ho scritto la query direttamente in linguaggio sql che prevede la possibilità di valori nulli all'interno delle combo che viene attivata dopo la selezione delle combo premendo un pulsante di comando, ed in grandi linee funziona, solo che per ogni combo selezionata mi richiede tramite una textbox di re-inserire il valore già prente nella combo e tra l'altro visibile nello spazio grigio tra il titolo della messagebox e il campo bianco di inserimento ....

Questo è il codice sql:

Private Sub Comando27_Click()
Dim sql As String
sql = "SELECT Inserimento.ID, Inserimento.Barcode_Interno, Inserimento.Ricezione_Spedizione, Inserimento.Tipologia_Collo, Inserimento.Data_Partenza, Inserimento.Barcode_Corriere, Inserimento.Data_Arrivo, Inserimento.Corriere, Inserimento.Data_Consegna_Destinatario, Inserimento.Nome_Destinatario, Inserimento.Reparto FROM [Inserimento] WHERE true "
If RicezioneoSpedizione <> "" And Not IsNull(RicezioneoSpedizione) Then
sql = sql & " and ((Inserimento.Ricezione_Spedizione)=" & RicezioneoSpedizione & ")"
End If
If TipoCollo_Comb <> "" And Not IsNull(TipoCollo_Comb) Then
sql = sql & " and ((Inserimento.Tipologia_Collo)=" & TipoCollo_Comb & ")"
End If
If Reparto_CasellaComb <> "" And Not IsNull(Reparto_CasellaComb) Then
sql = sql & " and ((Inserimento.Reparto)>=" & Reparto_CasellaComb & ")"
End If
sql = sql & ";"
Me.RecordSource = sql
End Sub


Help me please!

Grazie in anticipo.

[congisat]

Sono riuscito a trovare il problema ....
Per chi fosse interessato di seguito il codice corretto ....

codice:

Private Sub Esegui_Ricerca_Click()
Dim sql As String

sql = "SELECT Inserimento.ID, Inserimento.Barcode_Interno, Inserimento.Ricezione_Spedizione, Inserimento.Tipologia_Collo, Inserimento.Data_Partenza, Inserimento.Barcode_Corriere, Inserimento.Data_Arrivo, Inserimento.Corriere, Inserimento.Data_Consegna_Destinatario, Inserimento.Nome_Destinatario, Inserimento.Reparto FROM [Inserimento] WHERE true "
If RicezioneoSpedizione <> "" And Not IsNull(RicezioneoSpedizione) Then
sql = sql & " and Inserimento.Ricezione_Spedizione = '" & RicezioneoSpedizione & "'"
End If
If TipoCollo_Comb <> "" And Not IsNull(TipoCollo_Comb) Then
sql = sql & " and Inserimento.Tipologia_Collo = '" & TipoCollo_Comb & "'"
End If
If Reparto_CasellaComb <> "" And Not IsNull(Reparto_CasellaComb) Then
sql = sql & " and Inserimento.Reparto = '" & Reparto_CasellaComb & "'"
End If
If Corriere_Comb <> "" And Not IsNull(Corriere_Comb) Then
sql = sql & " and Inserimento.Corriere = '" & Corriere_Comb & "'"
End If
If BarcodeInt_text <> "" And Not IsNull(BarcodeInt_text) Then
sql = sql & " and Inserimento.Barcode_Interno = '" & BarcodeInt_text & "'"
End If
If BarcodeCorr_text <> "" And Not IsNull(BarcodeCorr_text) Then
sql = sql & " and Inserimento.Barcode_Corriere = '" & BarcodeCorr_text & "'"
End If
If NomeDest_text <> "" And Not IsNull(NomeDest_text) Then
sql = sql & " and Inserimento.Nome_Destinatario = '" & NomeDest_text & "'"
End If
If DataCons_text <> "" And Not IsNull(DataCons_text) Then
sql = sql & " and Inserimento.Data_Consegna_Destinatario = '" & DataCons_text & "'"
End If

Me.RecordSource = sql
End Sub

Grazie comunque ...