Kullanıcı giriş ekranı yaptım kullanıcının adının aynı formunu açtırtıyorum fakat ben tek bir forum açtırmak istiyorum kodu düzelttiğimde bozuluyor.
Kod:
'eğer kullanıcı veya şifre girilmemişse
If Nz(Açılan_Kutu2, "") = "" Or Nz(Metin4, "") = "" Then
MsgBox "Gerekli alanları doldurunuz"
Else
'kulalnıcının gerçek şifresi alıyoruz ve girdiği şifre ile kontrol ediyoruz
sifre = DLookup("sifre", "Kullanıcılar", "Kimlik= " & Açılan_Kutu2)
If sifre <> Metin4 Then 'eğer yanlışsa
MsgBox "hatalı şifre"
Exit Sub
Else
'eğer doğru ise
DoCmd.OpenForm Açılan_Kutu2.Column(1) 'kullanıcı formu ile aynı isimli formu aç
DoCmd.Close acForm, "giriş" 'bu formu kapat
End If