19/01/2011, 15:16
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
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