Skip to main content

AccessTr.neT


butona atanan şifrenin yıldızlı görünmesi

butona atanan şifrenin yıldızlı görünmesi

Çözüldü #1
aşağıda butona atana şifre kodu var gelen ekranda şifrenin yazılırken yıldız olarak görünmesini istiyorum yardımlarınızı için teşekkürler

Private Sub Komut82_Click()

sifre = "SKM06" 'şifreyi başka bir yerden almak isterseniz değişken tanımlayıp yapabilirsiniz.
On Error GoTo Err_Komut82_Click

cevap = InputBox("Lütfen şifreyi yazınız", vbOKOnly, "ŞİFRE GİRİN")
If cevap = sifre Then

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Else
MsgBox "şifre kabul edilmedi", vbOKOnly, "ŞİFRE YANLIŞ"
End If
Exit_Komut82_Click:
Exit Sub

Err_Komut82_Click:
MsgBox Err.Description
Resume Exit_Komut82_Click
End Sub
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
butona atanan şifrenin yıldızlı görünmesi - Yazar: osman06 - 04/02/2009, 16:16
Task