syn Orhantanrıverdi
aşagıdaki kodları HAKEDİŞ butonu için yaptım,kodu buton tıkladıgı olayına yazın....geri dönüş yapın lütfen

'.........................
Dim Celoyce As String
Celoyce = InputBox("Burayı Açmak için Lütfen Şifre Girin.", "Şifre Ekranı")
If Celoyce = "123" Then
' MsgBox "Şifre Tamam ", vbOKOnly, "İkaz"
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Hakediş"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox ("Hatalı Şifre")
End If
'..............................