(13/02/2020, 20:05)userx yazdı: Altta görüldüğü gibi aynı kodlarla ben de kayıt yapıyorum bir sorun görünmüyor. Hatalı olan kaydı silip tekrar dener misiniz 



 Sn @userx sorun ne bilmiyorum ama ben kodu asagidaki sekilde duzenledim ve suan tam istedigim gibi calisiyor. Yardiminiz icin tesekkur ederim. Umarim sonradan sorun cikarmaz.

Private Sub btnKaydet_Click()

If MsgBox("Bilgiler Kaydedilecek Onaylýyormusunuz ?", vbQuestion + vbYesNo, "Dikkat") = vbYes Then
 
CurrentDb.Execute " insert into T_1_MemberPayment " & _
                " ( UyeNo, GelirKodu,GelirTipi,TaksitAyKapama, Tarih, AidatTutar ) values " & _
              " ( " & Me.txtUyeNo & ", '" & Me.txtGelirKodu & "', '" & Me.txtGelirTipi & "', '" & Me.cboTaksitAyKapama & "','" & Me.txtTarih & "', CCur('" & Me.txtAidatTutar & "'))"

CurrentDb.Execute " insert into T_0_MemberAccount " & _
            " (  UyeNo,Tarih,IslemTuru, Tutar ) values " & _
              " ( " & Me.txtUyeNo & ",'" & Me.txtTarih & "','Alacak', '" & Me.txtAidatTutar & "')"
End If

txtUyeNo.Value = ""
txtUyeAdiSoyadi.Value = ""
cboTaksitAyKapama.Value = ""
txtAidatTutar.Value = ""

End Sub