29/05/2016, 19:45
arkadaşlar şifreli giriş ekranında kullanıcı adı ve şifreyi girdikten sonra ana form ekrana gelmiyor (aynı zamanda program çalışıyor gözüküyor) nerde yanlış yapmış olabilirim ?
şifre ekranın giriş butonu kodu aşağıdaki gibi;
Option Compare database
Option Explicit
Dim YanlisSifre
--------------------------
Private Sub Form_Close()
DoCmd.penFOrm”Form_Ana”
End Sub
---------------------------
Private Sub Form_Open(Cancel As Integer)
Dim KulSay As String
KulSay=DCount(“*”,”Tbl_Kullanici”)
If KulSay=0 Then
DoCmd.OpenForm "Form_SfrShrbaz"
End If
End Sub
---------------------------------
Private Sub Komut”0_Click()
On Error GoTo Hata
Dim str As String
str=oturum.value
on Error GoTo hatas
If Me.Dogrusifre=Me.sifre Then
YetkiNe=Me.dogruyetki
KullaniciKim=Me.Kullanici
AktifKullaniciYetkisi
AktifKullanici
DoCmd.SetWarnings False
CurrentDb.Execute “INSERT INTO Tbl_Kullanici_Kayit ( [user] ) SELECT aktifkullanici()”
DoCmd.SetWarnings True
Hatas:
DoCmd.Close
DoCmd.OpenForm “Form_Ana”,,,,, “Value=”+str
Else
YanlisSifre=YanlisSifre+1
MsgBox YanlisSifre & “. Denemenizde Şifrenizi Yanlış Girdiniz. Lütfen Tekrar Deneyiniz.” & Chr(13) & “4. Hatanızda Program Kapanacaktır.”, vbOKOoly+vbritical, “Hatalı Şifre”
If YanlisSifre=4. Then DoCmd.Quit(acQuitSaveNone)
End If
Exit Sub
Hata:
End Sub
------------------------------
Private Sub Kullanici_AfterUpdate()
Me.Sifre.SetFocus
End Sub
şifre ekranın giriş butonu kodu aşağıdaki gibi;
Option Compare database
Option Explicit
Dim YanlisSifre
--------------------------
Private Sub Form_Close()
DoCmd.penFOrm”Form_Ana”
End Sub
---------------------------
Private Sub Form_Open(Cancel As Integer)
Dim KulSay As String
KulSay=DCount(“*”,”Tbl_Kullanici”)
If KulSay=0 Then
DoCmd.OpenForm "Form_SfrShrbaz"
End If
End Sub
---------------------------------
Private Sub Komut”0_Click()
On Error GoTo Hata
Dim str As String
str=oturum.value
on Error GoTo hatas
If Me.Dogrusifre=Me.sifre Then
YetkiNe=Me.dogruyetki
KullaniciKim=Me.Kullanici
AktifKullaniciYetkisi
AktifKullanici
DoCmd.SetWarnings False
CurrentDb.Execute “INSERT INTO Tbl_Kullanici_Kayit ( [user] ) SELECT aktifkullanici()”
DoCmd.SetWarnings True
Hatas:
DoCmd.Close
DoCmd.OpenForm “Form_Ana”,,,,, “Value=”+str
Else
YanlisSifre=YanlisSifre+1
MsgBox YanlisSifre & “. Denemenizde Şifrenizi Yanlış Girdiniz. Lütfen Tekrar Deneyiniz.” & Chr(13) & “4. Hatanızda Program Kapanacaktır.”, vbOKOoly+vbritical, “Hatalı Şifre”
If YanlisSifre=4. Then DoCmd.Quit(acQuitSaveNone)
End If
Exit Sub
Hata:
End Sub
------------------------------
Private Sub Kullanici_AfterUpdate()
Me.Sifre.SetFocus
End Sub