GelirTipi ve GelirKodu değişmiyorsa

Private Sub btnKaydet_Click()

If [txtUyeNo] = "" Then

Else

CurrentDb.Execute " insert into T_1_MemberPayment " & _

                  " ( UyeNo,TaksitAyKapama, Tarih, AidatTutar ) values " & _

                  " ( " & Me.txtUyeNo & ", '" & Me.cboTaksitAyKapama & "','" & Me.txtTarih & "', CCur('" & Me.txtAidatTutar & "'))"

Me.txtUyeNo = ""

Me.txtUyeAdiSoyadi = ""

Me.txtGelirKodu = ""

Me.txtGelirTipi = ""

Me.cboTaksitAyKapama = ""

Me.txtTarih = ""

Me.txtAidatTutar = ""

End If

End Sub

 şeklinde kullanabilirsin.