Kullanıcı ve şube yönetimi

Kullanıcı ve şube yönetimi - Baskı Önizleme

+- 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ığı: Kullanıcı ve şube yönetimi (/konu-kullanici-ve-sube-yonetimi.html)

Sayfalar: 1 2

Cvp: Kullanıcı ve şube yönetimi - SCavusoglu - 21/05/2014

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

Cvp: Kullanıcı ve şube yönetimi - Yunus Bozkurt - 22/05/2014

Teşekkür ederim problem çözüldü Img-grin

Ö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)

Cvp: Kullanıcı ve şube yönetimi - kadirdursun - 16/07/2014

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?

Cvp: Kullanıcı ve şube yönetimi - alpeki99 - 16/07/2014

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

Cvp: Kullanıcı ve şube yönetimi - Yunus Bozkurt - 18/07/2014

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