Her 2 tabloya da Açıklama alanlarını eklemeden önce çalışan Kaydet işlevi Acıklama alanının 2 tabloya  ve ınsert ınto koduna eklenmesinden sonra aşağıdaki hatayı veriyor çözümü konusunda ne yapabilirim teşekkürler.

Private Sub Kaydet_BTN_Click()



If Len(Trim(Me.UyeNo_TXT)) = 0 Or Len(Trim(Me.TaksitKapama_CBO)) = 0 Or Len(Trim(Me.Tutar_TXT)) = 0 Then

MsgBox "Lütfen eksik bilgileri tamamlayiniz."



DoCmd.GoToControl "UyeNo_TXT"

 

 Else





If MsgBox("Bilgiler Kaydedilecek Onaylıyormusunuz ?", vbQuestion + vbYesNo, "Dikkat") = vbYes Then

  

CurrentDb.Execute " insert into T_UyeTahsilat " & _

          " ( UyeNo, GelirKodu,GelirTipi,TaksitAyKapama, Tarih, AidatTutar, Aciklama ) values " & _

          " ( " & Me.UyeNo_TXT & ", '" & Me.GelirKodu_TXT & "', '" & Me.GelirTipi_TXT & "', '" & Me.TaksitKapama_CBO & "','" & Me.Tarih_TXT & "', CCur('" & Me.Tutar_TXT & "','" & Me.Aciklama_TXT & "'))"



CurrentDb.Execute " insert into T_UyeHesap " & _

             " (  UyeNo,Tarih,IslemTuru, Tutar, Aciklama ) values " & _

              " ( " & Me.UyeNo_TXT & ",'" & Me.Tarih_TXT & "','Alacak', '" & Me.Tutar_TXT & "','" & Me.Aciklama_TXT & "')"

End If

 

UyeNo_TXT.Value = ""

AdSoyad_TXT.Value = ""

TaksitKapama_CBO.Value = ""

Tutar_TXT.Value = ""



UyeNo_TXT.SetFocus



End If



End Sub