öncelikle;
bir ricada bulunmak adına,lütfen alıntı yaparken SADECE gerekli olduğunu düşündüğünüz kısmı kullanınız.bütün bir mesajı olduğu gibi tekrar kullanmamaya özen gösteriniz.teşekkürler.
bahsettiğiniz soruna dair aşağıdaki açıklamanın yapılması uygun görülmüştür.
frmşifre adlı formun içeriğindeki Komut29 adlı butonun olay yordamı kodlarını aşağıdaki kodlar ile değiştirerek kullanmayı deneyiniz.
Kod:
'Kullanıcı adını giriniz
If IsNull(Me.kullanıcı) Or Me.kullanıcı = "" Then
MsgBox "Lütfen Kullanıcı Adı Giriniz.", vbOKOnly + vbCritical, "Bilgi"
Me.kullanıcı.SetFocus
Exit Sub
End If
'Kullanıcı şifresini giriniz
'Girilen kullanıcı adı ve şifreyi "tblŞifre" tablosundan kontrol et
If Me.Şifre.Value = DLookup("Şifre", "tblsifre", "[ID]=" & Me.kullanıcı.Value) Then
''' On Error Resume Next
'''Dim Yetki, A As String, C As String
'''
'''Yetki = DLookup("Yetki", "tblsifre", "[ID]=" & Forms!frmşifre!kullanıcı.Value)
'''
'''
'''If Yetki = "Bilgi İşlem" Then
'''Form.Visible = False
''' DoCmd.OpenForm "FRM_SPARISLER"
'''ElseIf Yetki = "Bilgi İşlem" Then
'''Form.Visible = False
''' DoCmd.OpenForm "FRM_SPARISLER"
'''ElseIf Yetki = "Bilgi İşlem" Then
'''Form.Visible = False
''' DoCmd.OpenForm "FRM_SPARISLER"
'''End If
'Me.SL.Value = Nz(DCount("[sid]", "Sigyak"), 0)
'Me.ML.Value = Nz(DCount("[sid]", "MugYak"), 0)
'Me.PL.Value = Nz(DCount("[sid]", "Polyak"), 0)
' Me.KM.Value = Nz(DCount("[SrNO]", "Q_Ajanda"), 0)
''Form.Recalc
If SL Or ML Or PL >= 1 Then
Form.Visible = False
DoCmd.OpenForm "ANA_SAYFA"
'Form_ANA_SAYFA
'DoCmd.OpenForm "SigortaMuayeneList", acNormal
Else
Form.Visible = False
DoCmd.OpenForm "ANA_SAYFA"
' Form_ANA_SAYFA
End If
'Şifre formunu kapat ve frmAdmin kullanıcı tanımlama formunu aç
'DoCmd.SetWarnings False
'DoCmd.OpenQuery "osLOG", acNormal, acEdit
'DoCmd.SetWarnings True
''' Form.Visible = False
''' DoCmd.OpenForm "ANA_SAYFA"
''' Form_ANA_SAYFA.TAMAM = 1
Else
MsgBox "Hatalı Şifre! Lütfen Tekrar Deneyiniz", vbOKOnly + vbCritical, "Bilgi"
Me.Şifre.SetFocus
End If
'Eğer Kullanıcı 3 kez yanlış işlem yaparsa programı kapat
intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 3 Then
MsgBox "***ALOOOO... HOOOOOPSS.. BOŞUNA UĞRAŞMA DOSTUM BEN KAPANIRIM, *** SANA BY ***.", vbCritical, "Bilgi"
'Call cozunurluk
Application.Quit
End IfKod:
'Me.SL.Value = Nz(DCount("[sid]", "Sigyak"), 0)
'Me.ML.Value = Nz(DCount("[sid]", "MugYak"), 0)
'Me.PL.Value = Nz(DCount("[sid]", "Polyak"), 0)Araç Takip V01
yukarıda bağlantısı yazılı sayın Celoyce'nin örnek uygulamasına özgü nesneler olsa gerek.bu nedenle,bu kod satırları geçici olarak iptal edilmiştir.değilse de,açıklamasını yaparsınız zaten.
NOT
ilgili uygulama üzerindeki kodların (özellikle de,şifre doğruluğu üzerine olan kısımdaki) ve tanımlamaların ne anlamda veya ne için kullanıldığı bilinmediğinden dolayı başka herhangi bir işlem yapmaksızın olduğu gibi bırakılmıştır.bilginize...iyi çalışmalar,saygılar.
