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.