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
21568

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

Çözüldü #3
hasanzengi
Üye
hasanzengi
Bul
Üye
Adı Soyadı:
Yaşı: 51
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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: access de kullanıcı ve şifre oluşturarak, yetkilendirme yapmak - Yazar: hasanzengi - 21/07/2009, 18:21