Skip to main content

AccessTr.neT


Etiketler
Yazar: Ragıp61 - Cevaplar: 9 - İzleme: 6757
ınputBox a girilen şifre gözükmesin istiyorum
[vb]Private Sub genel_Click()
On Error GoTo Err_genel_Click
Dim sifre As String

sifre= InputBox("Bu forma giriş yapabilmek " & Chr(10) & Chr(10) & "için lütfen şifreyi giriniz...", "Şifreli Giriş Alanı")

If sifre= "" Or sifre= Empty Then
MsgBox "Şifre alanını boş bıraktınız." & vbCrLf &
"Şifrenizi girmediğiniz sürece bu formu göremezsiniz." & vbCrLf &
"Form içeriğini görebilmek için lütfen şifrenizi giriniz...", , "Boş Alan Uyarısı"

Exit Sub
End If

If sifre= "12345" T