Originariamente inviato da Brainjar
Bene. Ancora un 'passaggio'.
Combo1 viene utilizzato in più di una relazione
codice:
" .... WHERE Sommatotale = '" & Combo1.Text & "'"
codice:
" .... WHERE data = '" & Combo1.Text & "'"
Supponendo che i valori per Sommatotale siano in Combo2

Avresti :

codice:
" .... WHERE Sommatotale = '" & Combo2.Text & "' AND data = '" & Combo1.Text & "'"
Non funziona comunque se il campo Sommatotale è di tipo numerico e
il campo data è di tipo data. Con gli apici ' ' passi delle stringhe.

In questo caso 'dovrebbe' funzionare una cosa del genere :

codice:
" .... WHERE Sommatotale = " & Combo2.Text & " AND data = #" & Combo1.Text & "# "
Ciao,
allora
sommatotale è un campo di testo se io eseguo questo codice tutto funziona perfettamente:
Private Sub Combo1_Click()
With Cn
.ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
"Data Source =" & App.Path & "\elenco.mdb"

.ConnectionTimeout = 5
.CursorLocation = adUseClient
.Mode = adModeShareDenyNone
.Open
End With
With Rs
.ActiveConnection = Cn
.LockType = adLockOptimistic
End With
Rs.Open "SELECT * FROM elenco WHERE Sommatotale = '" & Combo1.Text & "'"
Set DataGrid2.DataSource = Rs qui mi ritrovo la somma del totale per il giorno che mi seleziono dal combo1.

Adesso però oltre a visualizzare la somma del giorno scelto dal combo1, sempre sull' evento del click del combo1 vorrei fare partire anche questo codice:

With Cn
.ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
"Data Source =" & App.Path & "\medici.mdb"

.ConnectionTimeout = 5
.CursorLocation = adUseClient
.Mode = adModeShareDenyNone
.Open
End With
With Rs
.ActiveConnection = Cn
.LockType = adLockOptimistic
End With

Rs.Open "SELECT * FROM medici WHERE data= '" & Combo1.Text & "'"

Set With Cn
.ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
"Data Source =" & App.Path & "\medici.mdb"


.ConnectionTimeout = 5
.CursorLocation = adUseClient
.Mode = adModeShareDenyNone
.Open
End With
With Rs
.ActiveConnection = Cn
.LockType = adLockOptimistic
End With

Rs.Open "SELECT * FROM medici WHERE data= '" & Combo1.Text & "'"

Set DataGrid1.DataSource = Rs dove qui mi dovrei ritrovare i record del giorno selezionato dal combo1.

In pratica in questo modo mi và in errore ma se sull' evento del click inserisco o il primo o il secondo funziona.