Kullanıcı ve şube yönetimi

Giriş formunuzun kodunu aşağıdaki şekilde değiştirip denermisiniz..
Lütfen olumlu-olumsuz geri dönüş yapınız..

Option Compare Database



Private Sub btn_giris_Click()

   

 Dim yetkim As Integer 'kullanıcının yetkisini seç

 

 yetkim = Dlookup ("kul_yetki", "KULLANICILAR", "kul_adi='" & Me.txt_kuladi & "' AND kul_sifre='" & Me.txt_sifre & "'")

 

If yetkim = 3 Then

Subememuru



ElseIf yetkim = 2 Then

BYoneticisi

Else

GYonetici

  End If

  End Sub

Private Function Subememuru()

       Dim kontrolet1 As Byte

       Dim subesec As Integer

        subesec = Dlookup ("kul_sube", "KULLANICILAR", "kul_adi='" & Me.txt_kuladi & "' AND kul_sifre='" & Me.txt_sifre & "'")

        kontrolet1 = DCount("kul_ID", "KULLANICILAR", "kul_adi='" & Me.txt_kuladi & "' AND kul_sifre='" & Me.txt_sifre & "'")

              If kontrolet1 = 1 Then

                  DoCmd.Close acForm, "Giriş", acSaveNo

                  DoCmd.OpenForm "listele_sube", , , , , , subesec

            Else

                 MsgBox " yanlış şifre", vbOKOnly, "Geçersiz Şifre"

                 Me.txt_sifre.SetFocus

            End If

  End Function

Private Function BYoneticisi()

       Dim bolgem As Integer

        

       Dim kontrolet2 As Byte

       

        bolgem = Dlookup ("kul_bolge", "KULLANICILAR", "kul_adi='" & Me.txt_kuladi & "' AND kul_sifre='" & Me.txt_sifre & "'")

        

       

         kontrolet2 = DCount("kul_ID", "KULLANICILAR", "kul_adi='" & Me.txt_kuladi & "' AND kul_sifre='" & Me.txt_sifre & "'")

       

              If kontrolet2 = 1 Then

              

                  DoCmd.Close acForm, "Giriş", acSaveNo

                  

                  DoCmd.OpenForm "listele_bolge", , , , , , bolgem

                  

            Else

            

                 MsgBox " yanlış şifre", vbOKOnly, "Geçersiz Şifre"

                 Me.txt_sifre.SetFocus

            End If

 End Function

Private Function GYonetici()

            









    

       Dim kontrolet3 As Byte

       Dim subesec3 As Integer

        

        subesec3 = Dlookup ("kul_sube", "KULLANICILAR", "kul_adi='" & Me.txt_kuladi & "' AND kul_sifre='" & Me.txt_sifre & "'")

        

       

         kontrolet3 = DCount("kul_ID", "KULLANICILAR", "kul_adi='" & Me.txt_kuladi & "' AND kul_sifre='" & Me.txt_sifre & "'")

       

              If kontrolet3 = 1 Then

              

                  DoCmd.Close acForm, "Giriş", acSaveNo

                  

                  DoCmd.OpenForm "listele"

                  

            Else

            

                 MsgBox " yanlış şifre", vbOKOnly, "Geçersiz Şifre"

                 Me.txt_sifre.SetFocus

            End If

            

            

    

        

    

End Function

Teşekkür ederim problem çözüldü
Örnek olsun diye ekliyorum buraya.

Özellikleri:
1- Kullanıcının departman,şube yada bölgesine göre veri erişimi.
2- kullanıcı seviyesine göre yetki erişimi ( normal,şef müdür, bölge müdürü, genel müdür gibi)

Sayın Yunus Bozkurt;
rarlı dosyadan programı açarken tanınmayan dosya biçimi diyor ve açılmıyor.
Lütfen tekrar yükler misiniz?

Sayın kadirdursun ben problemsizce indirip çalıştırdım. Muhtemel bağlantı hatası yaşadınız, tekrar kontrol edin isterseniz.

ofis sürümünüz kaç 2010 bu dosya