Ekranda Klavye

[ozanakkaya]

...................

 

[ozanakkaya]

Dosya EKTE

 

[simendifer]

TeŞekkÜrler

Paylaştıgınız için teşekkürler fevkalde bir olay degişik bir parola örnegi

 

[kaikai]

şifre nasıl koyacağız

 

[ozanakkaya]

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

 

[simendifer]

bende böyle uyguladım formuma

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