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