Grazie Mauro,
purtroppo non riesco ad attuare i suggerimenti, provo a spiegarmi come posso:
nel file provaAdoSenzaRiferimento.xls linkato da Roberto è disattivato il codice:
a) Public Sub mRecuperaDati()
Mentre è attivo il codice:
b) Public Sub mRecuperaDati(ByVal sQuery As String).
Nel codice “a” è presente la riga:
rs.Open "SELECT * FROM tblAnagrafica", cn, 1, 3, 1
che tu mi dici di sostituire con:
rs.Open "SELECT * FROM tblAnagrafica WHERE Nome='" & RiferimentoCella.Value & "'" , cn, 1, 3, 1.
Visto che è attivato invece il codice “b”, che riporta invece questa riga:
rs.Open sQuery, cn, 1, 3, 1
come devo modificare il codice “b”?
Inoltre, per realizzare ciò che mi serve, dovrei lanciare la macro mQuery2 presente nello stesso file, il cui codice è:
Public Sub mQuery2()
Dim s As String
s = "SELECT Nome, Cognome, Comune " & _
"FROM tblAnagrafica " & _
"WHERE Provincia = 'Fe'"
Call mRecuperaDati(s)
End Sub
..che fa proprio ciò che serve a me, ma l’istruzione ‘Fe’ dovrebbe essere modificabile tramite una cella di “convalida dati” presente nel foglio, da cui lanciare la macro mQuery2 in automatico.
Grazie ancora per l'aiuto.
Ciao
Lupow