(13/02/2020, 20:58)berduş yazdı: Sayın Oğuz Türkyılmaz, En son hangi dosyayı kullanıyorsanız belirterek sorunun ne olduğunu ve tam olarak ne istediğinizi maddeler halinde yazar mısınız kafam iyice karıştı çünkü.

Sn @berduş maddelemeye gerek yok sorun kalmadi sadece F_1_MemberPayment formunda tum alanlari bos gecip kaydet derseniz tablosuna bos bir kayit atiyor onu engelleyemedim henuz. Kodun son sekli asagidaki gibi 

Private Sub btnKaydet_Click()



If IsNull([txtUyeNo]) Or IsNull([cboTaksitAyKapama]) Or IsNull([txtAidatTutar]) Then

MsgBox "Lütfen eksik bilgileri tamamlayiniz."



DoCmd.GoToControl "txtUyeNo"



Else



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 = ""



txtUyeNo.SetFocus



End If



End Sub

Private Sub btnUyeAdiSoyadi_Click()



DoCmd.OpenForm "F_1_MemberList"



End Sub

Private Sub Form_Load()



txtUyeNo.Value = ""

txtUyeAdiSoyadi.Value = ""

cboTaksitAyKapama.Value = ""

txtAidatTutar.Value = ""



End Sub