Docmd.gotorecord , , Acnewrec Hakkinda

(13/02/2020, 19:50)userx yazdı:

(13/02/2020, 19:35)Oğuz Türkyılmaz yazdı: Sn @userx

Resimde dikkatinizi cekecektir. MemberPayment tablosuna en son yapılan kayıt ısleminin  uye ve ay bılgılerı olmayan bos bır kaydını atıyor, 18 kımlık nolu ıslem bır kayıt daha gırıldıgınde o kaydın tarıh ve aıdat tutar bılgılerıyle guncellenıyor.

Gönderdiğim koddan sonra mı oluyor anlayamadım.

Evet gonderdiginiz kodun ciktisi bu sekilde oluyor.

(13/02/2020, 20:05)userx yazdı: Altta görüldüğü gibi aynı kodlarla ben de kayıt yapıyorum bir sorun görünmüyor. Hatalı olan kaydı silip tekrar dener misiniz 



 Sn @userx sorun ne bilmiyorum ama ben kodu asagidaki sekilde duzenledim ve suan tam istedigim gibi calisiyor. Yardiminiz icin tesekkur ederim. Umarim sonradan sorun cikarmaz.

Private Sub btnKaydet_Click()

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

End Sub

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

MsgBox "Lütfen eksik bilgileri tamamlayınız."

DoCmd.GoToControl "txtUyeNo"

 Else

(13/02/2020, 20:11)userx yazdı: Ama benim gönderdiğim kodun üst bölümünü kaldırmışsın. O kısmı ekler misin?

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

MsgBox "Lütfen eksik bilgileri tamamlayınız."

DoCmd.GoToControl "txtUyeNo"

 Else

üstte yazdığın Private Sub btnKaydet_Click() in hemen altına ekle.

(13/02/2020, 20:39)Oğuz Türkyılmaz yazdı:

(13/02/2020, 20:11)userx yazdı: Ama benim gönderdiğim kodun üst bölümünü kaldırmışsın. O kısmı ekler misin?

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

MsgBox "Lütfen eksik bilgileri tamamlayınız."

DoCmd.GoToControl "txtUyeNo"

 Else

üstte yazdığın Private Sub btnKaydet_Click() in hemen altına ekle.

Ekledim deminden beri onla ugrasiyorum. O kodu gelistirebilirmiyiz diye soracaktim size. Soyleki bu form icin degil ama metin kutularinin girilmesi zorunlu olan alanlardan hangileri bos birakildiysa o metin kutularini renklendirmek vs yada baska bir sey yapilabilirmi diye soracaktim