Private Sub ok_Click()
On Error GoTo Err_ok_Click
If Me.secret <> "tn mot de passe" Or IsNull(Me.secret) Then
MsgBox "mot de passe incorrect.", vbCritical, "Fehler!"
DoCmd.Close
Else
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "tu mets le nom du doc ke tu ve ouvrir"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "le nom du form mot de passe"
End If
Exit_ok_Click:
Exit Sub
Err_ok_Click:
MsgBox Err.Description
Resume Exit_ok_Click
End Sub
Private Sub annul_Click()
On Error GoTo Err_annul_Click
DoCmd.Close
Exit_annul_Click:
Exit Sub
Err_annul_Click:
MsgBox Err.Description
Resume Exit_annul_Click
End Sub
Je pense que ces petits bouts de code pourrait t'aider.