Skip to main content

AccessTr.neT


Bir Değişkene Atanan Değerin If Döngüsünde Kullanımı

Bir Değişkene Atanan Değerin If Döngüsünde Kullanımı

Çözüldü #1
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,
.7z ornek.7z (Dosya Boyutu: 45,9 KB | İndirme Sayısı: 3)
Cevapla
#2
Öncelikle Yapılmaması Gereken Ölümcül HatalarURL'ye Git konusunu mutlaka inceleyin.

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
.rar kullanicigirisveyetki.rar (Dosya Boyutu: 43,94 KB | İndirme Sayısı: 8)
Cevapla
#3
(20/09/2018, 12:07)ozanakkaya yazdı: Öncelikle Yapılmaması Gereken Ölümcül HatalarURL'ye Git konusunu mutlaka inceleyin.

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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task