Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

access de kullanıcı ve şifre oluşturarak, yetkilendirme yapmak

hasanzengi
hasanzengi
Access Cevaplanmış Soruları
9
21524

access de kullanıcı ve şifre oluşturarak, yetkilendirme yapmak

Çözüldü #1
hasanzengi
Üye
hasanzengi
Bul
Üye
Adı Soyadı:
Yaşı: 50
Konum: İstanbul
Ofis Versiyonu: Ofis 2000
Son Oturumu: 21/09/2011,17:08
Yorumları: 14
Konuları: 5
Kayıt Tarihi: 03/07/2009
Teşekkür Puanı: 0
Arkadaşlar, merhaba ben bu forma yeni katıldım, yaklaşık iki haftadır bir stok yönetim programı yazıyorum, accesde kullanıcılar oluşturmak, şifreler tanımlamak ve tabloları, formları kullanıcıya göre yetkilendirmek istiyorum.
Bu konuda yardımcı olabilirmisiniz.
Teşekkürler
Cevapla
Çözüldü #2
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 10/03/2025,22:50
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
aşağıdaki konuları incele

Kullanıcı Yetkisine Göre Form Açtırma

Kullanıcı Hesapları Hakkında Yardım

Açılışta Kullanıcı Adı ve Parola Sorma

konuları inceleyerek çözüm bulamazsanız takıldığınız yerleri bu konuya yazın.
Cevapla
Çözüldü #3
hasanzengi
Üye
hasanzengi
Bul
Üye
Adı Soyadı:
Yaşı: 50
Konum: İstanbul
Ofis Versiyonu: Ofis 2000
Son Oturumu: 21/09/2011,17:08
Yorumları: 14
Konuları: 5
Kayıt Tarihi: 03/07/2009
Teşekkür Puanı: 0
Ok teşekkürler, şifreli giriş ve şifre kontrolunu yaptırdım, yalnız doğru şifre ile kullanıcı girdiğinde ayrı bir makro ile belirlediğim yetkili formları açsın istiyorum, ama aşağıdaki komut yerine yazamıyorum, "şifre" adlı oluşturduğum macroyu nasıl çalıştırabilirim, yardımcı olabilirmisiniz.
şifre makrosunu aşağıya ekledim

Kod:
Private Sub Command5_Click()
    If IsNull(Me.Kullanıcı) Or Me.Kullanıcı = "" Then
            MsgBox "Lütfen Kullanıcı Adı Giriniz.", vbOKOnly + vbInformation, "Bilgilendirme Penceresi"
            Me.Kullanıcı.SetFocus
        Exit Sub
    End If
    If Me.Şifre.Value = DLookup("KULLANICIŞİFRESİ", "KULLANICILAR", "[ID]=" & Me.Kullanıcı.Value) Then

        ID = Me.Kullanıcı.Value
      
        Me.Form.Visible = False
     DoCmd.RunMacro "şifre", acNormal
        Else
        MsgBox "Hatalı Şifre! Lütfen Tekrar Deneyiniz", vbOKOnly + vbCritical, "Bilgilendirme Penceresi"
        Me.Şifre.SetFocus
    End If
    intLogonAttempts = intLogonAttempts + 1
    If intLogonAttempts > 2 Then
        MsgBox "KAPATILACAK.", vbCritical, "Bilgilendirme Penceresi"
        Application.Quit
    End If
End Sub
[Resim: adsznmp.jpg]
Cevapla
Çözüldü #4
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 10/03/2025,22:50
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
hasanzengi, örneğinizi ekleyiniz.

Hızlı Cevap Almanın Püf Noktaları
Cevapla
Çözüldü #5
mehmetdemiral
.
mehmetdemiral
Bul
Uzman
Adı Soyadı: Me.... De....
Yaşı: 60
Konum: Samsun
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 10/07/2024,19:24
Yorumları: 5.123
Konuları: 224
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 1.947
Mesleğiniz: Öğretmen
Benim size önerim, bu işlemler için makro kullanmayın. Vb kodlarıyla hallederseniz daha az sorun yaşar ve daha doğru bir çözüm üretmiş olursunuz. Benim önerim case kullanılmasıdır. Hiç bir şey yapamam, ille de makrolar kullanacağım derseniz de modül olarak kaydedip, kodlarını kullanın.
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #6
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 10/03/2025,22:50
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Ayrıca, makroya 3 kullanıcı için koşul yazmışsın, bu şekilde 4 kullanıcı eklediğinde makroyu açıp 4. koşulu eklemen gerekecek.

şifre formuna kullanıcının yetkisini yazan metin kutusu ekle, kullanıcı adı seçildiğinde bu metin kutusuna "column" kullanarak yetkiyi aktar.
Kod:
MetinKutusuAdi = KULLANICIADI.Column(3)
daha sonra mehmet hocamın dediği gibi case kullanarak yetkiye göre form açtır.

yukarıda verdiğim linklerden birindeki örnek (ornekgiris) bu şekilde yapıldı.

https://accesstr.net/konu-kullanici-hesa...ardim.html

7. mesaj
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da