AccessTr.neT

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 Sub

----------------------------------------
Arkadaşı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

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]

özür dilerim, kusura bakma.