Originariamente inviato da ciao

--------------------------------------------------
Private Sub Sicurezze_Click()
On Error GoTo Err_Sicurezze_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Sicurezze"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Sicurezze_Click:
Exit Sub

Err_Sicurezze_Click:
MsgBox Err.Description
Resume Exit_Sicurezze_Click

End Sub
----------------------------------------------
con questo codice però apri una maschera che ti permette di visualizzare tutti i record della maschera sicurezze, la variabile stLinkCriteria non la vedo valorizzata.