frmpassword Formunda Command21 in kodlarını incelersen görebilirsin
Public Sub Command21_Click()
closeKeyboard
If IsNull(Me.txtPassword) Then Exit Sub
If Me.txtPassword = "Admin" Then
Select Case PasswordFrom
Case 1
DoCmd.Close acForm, "frmpassword"
DoCmd.OpenForm "frmSettings"
Exit Sub
Case 2
If MsgBox("Are you sure you would like to close the application?", vbYesNo + vbInformation, "Confirm") = vbNo Then Exit Sub
DoCmd.Quit
Exit Sub
End Select
End If
MsgBox "Incorrect Password Entered", vbCritical + vbOKOnly, "Error"
Me.txtPassword = ""
End Sub
bende böyle uyguladım formuma çok güzel oldu türkçe emegi gecen arkadaşa teşekkür ederim
frmpassword Formunda Command21 in kodlarını incelersen görebilirsin
Public Sub Command21_Click()
closeKeyboard
If IsNull(Me.txtPassword) Then Exit Sub
If Me.txtPassword = "Admin" Then
Select Case PasswordFrom
Case 1
DoCmd.Close acForm, "frmpassword"
DoCmd.OpenForm "frmSettings"
Exit Sub
Case 2
If MsgBox("Uygulamayı kapatmak istediğinizden emin misiniz?", vbYesNo + vbInformation, "Confirm") = vbNo Then Exit Sub
DoCmd.Quit
Exit Sub
End Select
End If
MsgBox "Yanlış parola girdiniz !!!", vbCritical + vbOKOnly, "Error"
Me.txtPassword = ""
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.