Sayın Hocalarım,
Butonlara koyduğum şifrelerde, şifre yazılırken ne yazdığımı herkes görüyor. Bunu numara yerine veya metin yerine *** gibi görünmesini sağlayabilirmiyiz. Örnek kodu aşağıda görebilirniz. Şifre de 123
YARDIMLARINIZ İÇİM ŞİMDİDEN TEŞEKKÜRLER.
Private Sub TKLF_Click()
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 = "Teklifler"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox ("Hatalı Şifre")
End If
End Sub
Adı Soyadı:
OR.... TA....
Yaşı:
46
Konum:
Ankara
Ofis Versiyonu:
Ofis 2010 64 Bit
Son Oturumu:
09/10/2025,10:52
Cevapla