If IsNull([txtUyeNo]) Or IsNull([cboTaksitAyKapama]) Or IsNull([txtAidatTutar]) Then
MsgBox "Lütfen eksik bilgileri tamamlayınız."
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
Me.txtUyeNo = ""
Me.txtUyeAdiSoyadi = ""
Me.cboTaksitAyKapama = ""
End If
Kaydet butonundaki kodu aşağıdaki kodla değiştirerek dener misin?
