Ekleme sorgusuna ne gerek var anlamadım. 

Private Sub btnKaydet_Click()



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 & "',' Borç', '" & Me.txtAidatTutar & "')"



End Sub

Kaydet Butonu kodunu üstteki kodla değiştirerek dener misin? İşlem Türüne Borç yazdım değilse değiştirirsin