Skip to main content

AccessTr.neT


ınputBox a girilen şifre gözükmesin istiyorum

ınputBox a girilen şifre gözükmesin istiyorum

Çözüldü #1
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" Then 'Buraya yazacağınız kelime şifreniz olacaktır.

DoCmd.OpenForm "KONTROL_İZLEME_FORMU" 'Açılacak formun adını belirleyiniz.

Else
MsgBox "Hatalı Şifre Girdiniz."

End If
Exit_genel_Click:
Exit Sub

Err_genel_Click:
MsgBox Err.Description
Resume Exit_genel_Click

End Sub



'Not: yukarıda yazılı olan ınputBox şifre girişlerinde, yazılan şifrenin gözükmemesini istiyorum.
Yıldızlı görüntü şeklini uyarlarmısınız. Teşekkürler.
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
ınputBox a girilen şifre gözükmesin istiyorum - Yazar: Ragıp61 - 15/05/2011, 10:51
Task