Grande Alex!
Ho trovato il problema.
Siccome ho delle sottomaschere alle quali imposto i filtri da codice su Form_Load che parte prima di impostare tramite frm.Filter, mi sembrava che non lo prendesse.
Trovo il modo di sistemare le cose.
Sai dirmi se posso passare una variabile al comando 'Set frm = <Parametro>'?
Ho provato con il comando:
Set frm = Forms(CurrentProject.AllForms(nItem).Name)
nel modo che segue, ma non funziona.
Dim nItem As Long
Dim bFormExist As Boolean
bFormExist = False
For nItem = 0 To CurrentProject.AllForms.Count - 1
'Debug.Print CurrentProject.AllForms(nItem).Name
If CurrentProject.AllForms(nItem).Name = sFormName Then
Set frm = Forms(CurrentProject.AllForms(nItem).Name)
bFormExist = True
Exit For
End If
Next