istruzione non valida all'esterno del blocco type

[Amodio Piscitelli]

salve,

sto cercando di filtrare i dati di una maschera con valori che si trovano all'interno di una tabella.
ho scritto la seguente istruzione ma mi restituisce l'errore in oggetto, non so come andare avanti.

Private Sub Comando249_Click()


rs As Recordset
sql As String
dicmapi As String

dicmapi = "form1"

sql = "SELECT Form1.[Codice Fiscale] From Form1 GROUP BY Form1.[Codice Fiscale];"
Set rs = CurrentDb.OpenRecordset(sql, dbOpenDynaset)

Me.Filter = "[codice fiscale] = rs![codice fiscale]"
Me.FilterOn = True

End Sub

[Karl Donaubauer]

Salve,

Amodio Piscitelli:
> ...

Me.Filter = "[codice fiscale] = '" & rs![codice fiscale] & "'"

> Me.FilterOn = True
>
> End Sub

--
Ciao
Karl
*********
Access Info: https://AccessForever.org
Access News: https://youtu.be/cs_mZvaKYeY
Access DevCon: https://www.donkarl.com/devcon
Access FAQ: https://www.donkarl.com/it

[Amodio Piscitelli]

grazie per la correzione ma l'errore è segnalato su questo gruppo

rs As Recordset
sql As String
dicmapi As String

Saluti

[Karl Donaubauer]

Salve,

> Amodio Piscitelli:
> ...l'errore è segnalato su questo gruppo
>
> rs As Recordset
> ...

https://www.donkarl.com/it?FAQ7.11
o
https://www.donkarl.com/it?FAQ7.1

[Amodio Piscitelli]

Grazie Karl,

non ho risolto l'errore ma sono riuscito ad ottenere il risultato che volevo in questo modo:

Dim source As String

source = "SELECT prev_class.* From prev_class WHERE (((prev_class.[codice fiscale]) In (select [codice fiscale] from form1)));"
Me.RecordSource = source

Saluti