AccessTr.neT

Ama rengiyle uğraşırken şu  anda boş kayda izin veriyor. Önce bunu engelleyin. 

Koşullu biçimlendirmeyle renk verirsin.

(13/02/2020, 20:44)userx yazdı: [ -> ]Ama rengiyle uğraşırken şu  anda boş kayda izin veriyor. Önce bunu engelleyin. 

Koşullu biçimlendirmeyle renk verirsin.

 onunla ugrasiyordum engelledim bos kayit yapmiyor su anda kosullu bicimlendirmeyi exel de kullandim ama Access de hic denemedim

(13/02/2020, 20:46)Oğuz Türkyılmaz yazdı: [ -> ]

(13/02/2020, 20:44)userx yazdı: [ -> ]Ama rengiyle uğraşırken şu  anda boş kayda izin veriyor. Önce bunu engelleyin. 

Koşullu biçimlendirmeyle renk verirsin.

 onunla ugrasiyordum engelledim bos kayit yapmiyor su anda kosullu bicimlendirmeyi exel de kullandim ama Access de hic denemedim

 su an sadece Butun hucreleri bos gecerde kaydet derse bos bir kayit atiyor F_1_MemberPayment tablosuna onu nasil engelleyebilirim?

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ü.

Sen gönderdiğim kodları ekle. Biçimlendirmeni de aşağıdaki örnekteki gibi istediğin alanlarda için yaparsın. Kolay gelsin.

(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