Acesste İlk açılışta kullanıcı kontrolünü nasıl yaparim

[bardereli]

arkadaşlar ufak bir örnek gonderiyorum. Program ilk başladiğinda kullanici kontrolu nasıl yaparim?

 

[cyberwolf1980]

bardereli, buna benzer bı kodu tamam dugmesıne ekleyebılırsınız
ıyı gunler

Private Sub LOGIN_Click()
If KULLANICIADI = "YONETICI" Then GoTo Adım2 Else GoTo STANDARTKULLANICI
Exit Sub

Adım2:
If SIFRE = "YONETIM" Then GoTo Adım3 Else MsgBox "GIRIS HATASI KULLANICI ADI VE SIFRENIZI KONTROL EDIN"
Exit Sub

Adım3:
Me.Visible = False
DoCmd.OpenForm "USERCONTROLX"
Exit Sub
'-----------------------------------------------------------------------
'-----------------------------------------------------------------------
'-----------------------------------------------------------------------

STANDARTKULLANICI:
KULLANICICTRL = DLookup("[TCKIMLIK]", "[USERCONTROLX]", "[TCKIMLIK] =Forms![USER_LOGIN]![KULLANICIADI]")
SIFRECTRL = DLookup("[SIFRE]", "[USERCONTROLX]", "[SIFRE] =Forms![USER_LOGIN]![SIFRE]")


If KULLANICIADI = KULLANICICTRL Then GoTo SIFREKONTROL Else GoTo KULLANICIYOK


SIFREKONTROL:
If SIFRE = SIFRECTRL Then GoTo KULLANICIGIRISOK Else GoTo SIFREYOK

KULLANICIYOK:
MsgBox "KULLANCI HATASI : SISTEM YONETICINE BASVURUN."
Exit Sub
SIFREYOK:
MsgBox "SIFRE HATASI : SISTEM YONETICINE BASVURUN."
Exit Sub

KULLANICIGIRISOK:
Me.Visible = False
DoCmd.OpenForm "AnaForm"
Exit Sub

End Sub

 

[bardereli]

örneğin içinden çıkamadim bununla ilgili çalışan ufak bir örneğin varmi

 

[squarez]

Sayın bardereli ;

http://www.excel.web.tr/viewtopic.php?t=17262

umarım istediğiniz böyle birşeydir.

 

[cyberwolf1980]

bardereli, once kendıne user logın dıye bı tablo olustur ardından userformun tamam tusuna yukardakı gıbı bır kod ekle
Not : yukardakı ornegı ben kendı verıtabanımda kullanıyorum sen ıstersen farklı alan adları kullanabılırsın
ıyı gunler