+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access Parolalı Giriş Ekranı Oluşturma? (/konu-access-parolali-giris-ekrani-olusturma--6897.html)
Cvp: Access Parolalı Giriş Ekranı Oluşturma? - Ragıp61 - 15/05/2011
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 = "gen2345" 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 SubArkadaşım yukarıda yazılı olan kod da ınputbox a şifre girişlerinde, şifrenin gözükmemesini veya **** şeklinde gözükmesini nasıl sağlarım. Benim için önemlidir lütfen cevaplarmısınız.. Teşekkürler
Cvp: Access Parolalı Giriş Ekranı Oluşturma? - benremix - 15/05/2011
Sn Ragıp61 lütfen Site Kurallarını okuyalım ve uygulayalım.
Saygılar...
6/c-) Başka bir üyenin soru içerikli konusuna soru yazmayınız. Sorunuz için yeni konu açınız.
[Uyarı Puanı: +2]
Cvp: Access Parolalı Giriş Ekranı Oluşturma? - Ragıp61 - 15/05/2011
özür dilerim, kusura bakma.