Arkadaşlar Merhabalar
Aşağıdaki Kodları " Frm_Kullanıcı_Giriş" Formundaki Komut10'un Tıklandığında Olayına Eklemek İstiyorum Ancak Sürekli Hata Veriyor,Hata Vermediği Zamanda Çalışmıyor.Kontrol Edebilirseniz Çok Sevinirim.İyi Çalışmalar
DoCmd.OpenForm "FFatura", , , , , , "Value=" + str
Forms!FFatura.SetFocus
Forms!FFatura.Form!düzenleyenIsmi.Value = Me.Kullanici
DoCmd.Close acForm, "Frm_Kullanici_Giris"
Sayın lifeexciting;
İnceleyip dönerseniz, eğer olmuşsa nerelerde ne yaptığımı açıklayayım.
Private Sub Komut10_Click()
On Error GoTo Hata
Dim Str As String
Str = oturum.Value
If Me.dogrusifre = Me.Sifre Then
YetkiNe = Me.dogruyetki
KullaniciKim = Me.oturum
AktifKullaniciYetkisi
AktifKullanici
DoCmd.SetWarnings False
CurrentDb.Execute "INSERT INTO tbl_Kullanici_Kayit ( [user] ) SELECT aktifkullanici()"
DoCmd.SetWarnings True
If Me.aktiflik = 0 Then
MsgBox "Kullanıcı yetkileriniz İptal Edilmiştir. Lütfen sistem yöneticinizle görüşünüz..", vbCritical, "Kargo 2011"
Quit
Else
DoCmd.OpenForm "FFatura", , , , , , "Value=" + Str
Forms!FFatura.SetFocus
Forms!FFatura.Form!düzenleyenIsmi.Value = Me.Kullanici
DoCmd.Close acForm, "Frm_Kullanici_Giris"
End If
Else
YanlisSifre = YanlisSifre + 1
MsgBox YanlisSifre & ". Denemenizde şifrenizi yanlış girdiniz. Lütfen tekrar deneyiniz.. " & Chr(13) & "4. Hatanızda Program Kapanacaktır.", vbOKOnly + vbCritical, "Hatalı Şifre "
If YanlisSifre = 4 Then DoCmd.Quit (acQuitSaveNone)
End If
Exit Sub
Hata:
End Sub
Denedim, normal çalışıyor.
Ben yanlış anlamışım.
Dikkate alma lifeexiciting. Ben varolan durumda komut 10 tuşuna basıdığında olayına baktım. Teşekkürler Ercan Hocam.
Sn.Hayri16 Yardımınız İçin Teşekkür Ederm.Ancak Kodu Uyguladığımda Yine Aynı Hatayı Alıyorum.
Verdiğim kodu yazarak denedinizmi Sn lifeexciting.