+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Bir Değişkene Atanan Değerin If Döngüsünde Kullanımı (/konu-bir-degiskene-atanan-degerin-if-dongusunde-kullanimi.html)
Bir Değişkene Atanan Değerin If Döngüsünde Kullanımı - Alper25 - 20/09/2018
Merhaba,
Ekte bulacağınız çalışmamda kullanıcı Tablosuna 2 kullanıcı tanımlı; Alper ve Misafir.
Kurgu şöyle; Eğer Kullanıcı Alper ile girilirse, Başlanılmamış Çalışma Giriş ekranına giriş yetkisi var, misafir ise yok.
Bunu Başlanılmamış Çalışma Giriş butonuna tıklandığında tetikleyen bir Vba ile yapmaya çalıştım.
Sorun şu, kod her 2 kullanıcıda da ekrana giriş yetkisi var gibi hareket ediyor. Nerede hata yapıyorum?
Yardımlarınız için şimdiden teşekkür ederim.
Saygılarımla,
Cvp: Bir Değişkene Atanan Değerin If Döngüsünde Kullanımı - ozanakkaya - 20/09/2018
Öncelikle Yapılmaması Gereken Ölümcül Hatalar
konusunu mutlaka inceleyin.Modüldeki kodu aşağıdaki ile değiştir
Public GKullanici As StringFAna formundaki butonun tıklandığında olayındaki kodu aşağıdaki ile değiştir.
If Şifre.Value = "" Or IsNull(Şifre) Then
MsgBox ("Lütfen Geçerli Bir Şifre Giriniz!")
Exit Sub
ElseIf İsim.Value = "" Or IsNull(İsim) Then
MsgBox ("Lütfen Geçerli Bir İsim Giriniz!")
Exit Sub
End If
'Şifre Doğrulama Kodu
If Şifre.Value = Dlookup ("şifre", "kullanicilar", "İsim='" & İsim.Value & "'") Then
GKullanici = Me.İsim.Value
MsgBox ("Şifre DOĞRU")
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "ANA MENÜ"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Komut8_Click:
Exit Sub
Else
MsgBox ("Şifre YANLIŞ")
End IfBaşlamamış Çalışmalar isimli formun yüklendiğinde olayına aşağıdaki kodu ekle
If GKullanici = "Misafir" Then
MsgBox ("bu formu açmaya yetkiniz yok")
DoCmd.Close acForm, "Başlamamış Çalışmalar"
End If
Cvp: Bir Değişkene Atanan Değerin If Döngüsünde Kullanımı - Alper25 - 20/09/2018
(20/09/2018, 12:07)ozanakkaya yazdı: Öncelikle Yapılmaması Gereken Ölümcül Hatalar
Modüldeki kodu aşağıdaki ile değiştir
Public GKullanici As String
FAna formundaki butonun tıklandığında olayındaki kodu aşağıdaki ile değiştir.
If Şifre.Value = "" Or IsNull(Şifre) Then
MsgBox ("Lütfen Geçerli Bir Şifre Giriniz!")
Exit Sub
ElseIf İsim.Value = "" Or IsNull(İsim) Then
MsgBox ("Lütfen Geçerli Bir İsim Giriniz!")
Exit Sub
End If
'Şifre Doğrulama Kodu
If Şifre.Value = Dlookup ("şifre", "kullanicilar", "İsim='" & İsim.Value & "'") Then
GKullanici = Me.İsim.Value
MsgBox ("Şifre DOĞRU")
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "ANA MENÜ"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Komut8_Click:
Exit Sub
Else
MsgBox ("Şifre YANLIŞ")
End If
Başlamamış Çalışmalar isimli formun yüklendiğinde olayına aşağıdaki kodu ekle
If GKullanici = "Misafir" Then
MsgBox ("bu formu açmaya yetkiniz yok")
DoCmd.Close acForm, "Başlamamış Çalışmalar"
End If
Yardımlarınız için teşekkür ederim.