Değerli arkadaşlar,

SplashScreen (açılış) formunun Unload olayına yazdığım kod çalışıyor. Yalnız girilen şifrenin (xyz) yıldız karakterlerinde olmasını istiyorum. Denediğim hiç bir modülle çalışmadı. Bu sorun modülsüz çözülebilir mi? Access 2016, 64 bit kullanıyorum. Herkese iyi günler... Kodlar:

Private Sub Form_Unload(Cancel As Integer)
Dim sifre
sifre = InputBox("Lütfen giriş kodunuzu giriniz ...", "GİRİŞ ONAYI")
If sifre <> "xyz" Then
MsgBox "Yetkisiz kullanıcılar giremez", vbApplicationModal, "DİKKAT"
Cancel = True
End If
End Sub

Inputbox özellikler kısmında giriş maskesini parola olarak değiştirirseniz girdiğiniz karakterler * olarak görünür. Sanırım yanlış anladım textbox olarak düşündüm. Neyse yazmış bulundum bir kere. Kolay gelsin.

Sayın Volger, size bir örnek buldum, biraz inceledim oldukça karmaşık ekte gönderiyorum. Aslında bir form oluşturup textboxlarla olay daha kolay çözülebilir ancak tercih sizin. Kolay gelsin

Sayın EminA kardeşim,

Daha önce öyle yaptım ama istediğim gibi olmadığı için InputBox kullandım. Çünkü form modal olmadığında çalışıyor, fakat alttaki ana forma tıklandığında pas geçiliyordu biliyorsunuz. Formu modal yaptığımda da çalışmadı maalesef. Kodlar:

Private Sub Komut5_Click()
If Metin0 = "Ahmet" And Metin2 = "xyz" Then
Dim stDocName As String
Dim stLinkCriteria As String
DoCmd.OpenForm "Contacts"
ad = Clear
şifre = Clear
DoCmd.Close acForm, "userForm", acSaveNo
Else
MsgBox ("Yanlış kullanıcı adı veya şifre girdiniz")
End If
End Sub

Login formunun Load olayında, kodla formu modal olarak açtırınca bir kez açıldı fakat form kilitleniyor...

(24-03-2017, 11:59)volger demiş ki: Sayın EminA kardeşim,

Daha önce öyle yaptım ama istediğim gibi olmadığı için InputBox kullandım. Çünkü form modal olmadığında çalışıyor, fakat alttaki ana forma tıklandığında pas geçiliyordu biliyorsunuz. Formu modal yaptığımda da çalışmadı maalesef. Kodlar:

Private Sub Komut5_Click()
If Metin0 = "Ahmet" And Metin2 = "xyz" Then
Dim stDocName As String
Dim stLinkCriteria As String
DoCmd.OpenForm "Contacts"
ad = Clear
şifre = Clear
DoCmd.Close acForm, "userForm", acSaveNo
Else
MsgBox ("Yanlış kullanıcı adı veya şifre girdiniz")
End If
End Sub

Bende login formu oluşturup kullandım. Ben kullanıcı adı ve şifreyi tablodan aldırdım. Şöyle kodladım.

Private Sub Komut_Click()
If IsNull (Me.kullaniciadi) or kullaniciadi="" Then
MsgBox ("Lütfen kullanıcı adını giriniz!")
Me.kullaniciadi.Setfocus
Else If (tblX.kullaniciadi)<>'"&kullaniciadi&"' Then (Me.kullaniciadi) da olabilir emin değilim
MsgBox ("Geçersiz kullanıcı adı!")
Me.kullaniciadi.Setfocus
Else If IsNull (Me.sifre) or sifre="" Then
MsgBox ("Lütfen şifre giriniz!")
Me.sifre.Setfocus
Else If (tblX.sifre)<>'"&sifre&"' Then
MsgBox ("Hatalı şifre!")
Me.sifre.Setfocus
Else
DoCmd.OpenForm "Form adı",acNormal devamı da vardı sanırım.
End If

Kodlamada işleç hatası olabilir. Ama bu mantıkla kullanmıştım.