Kod:
Private Sub Komut369_Click()
On Error GoTo Err_Komut369_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim c As String
c = InputBox("Lütfen şifreyi giriniz", "FATURA TAKİP")
If c = "2112401" Then
stDocName = "KULLANICITANIMLA"
DoCmd.OpenForm stDocName, , , stLinkCriteria
ElseIf c <> "2112401" Then
MsgBox "Hatalı şifre...Bence boşuna uğraşma", vbOKOnly + vbCritical, "FATURA TAKİP"
Me.Undo
End If
stDocName = "anamenu"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Komut369_Click:
Exit Sub
Err_Komut369_Click:
MsgBox Err.Description
Resume Exit_Komut369_Click
End Sub