Merhabalar,

Daha önce bir buton tıkladığımda şifre ekranı çıksın ve doğru şifre girdiğimde istenilen form açılsın şeklindeki talebime aşağıdaki kodlarla yanıt vermiştiniz;

Dim Sifre, DogruSifre As Variant

Sifre = InputBox("Şifreyi Yazınız", "Şifre?", , , , "", 0)
DogruSifre = "accesstr.net"

Select Case Len(Sifre)
Case 0
Exit Sub
Case Else

If Sifre = DogruSifre Then
DoCmd.OpenForm "Form1", acNormal
Else
MsgBox ("hatalı şifre yazdınız")
Exit Sub
End If
End Select

Sistem gayet güzel çalışıyor. Ancak şifre girişi için açılan Inputbox ta şifreyi girerken **** şeklinde veri girişi olmalı. Aksi halde şifre görünür oluyor. Bu penceredeki veri giriş şekline maalesef müdahale edemedim. Bu kodun içine nasıl gömebiliriz bu detayı? Tşk..