+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Docmd.gotorecord , , Acnewrec Hakkinda (/konu-docmd-gotorecord-acnewrec-hakkinda.html)
Cvp: Docmd.gotorecord , , Acnewrec Hakkinda - userx - 13/02/2020
Ama rengiyle uğraşırken şu anda boş kayda izin veriyor. Önce bunu engelleyin.
Koşullu biçimlendirmeyle renk verirsin.
Cvp: Docmd.gotorecord , , Acnewrec Hakkinda - Oğuz Türkyılmaz - 13/02/2020
(13/02/2020, 20:44)userx yazdı: Ama rengiyle uğraşırken şu anda boş kayda izin veriyor. Önce bunu engelleyin.onunla ugrasiyordum engelledim bos kayit yapmiyor su anda kosullu bicimlendirmeyi exel de kullandim ama Access de hic denemedim
Koşullu biçimlendirmeyle renk verirsin.
Cvp: Docmd.gotorecord , , Acnewrec Hakkinda - Oğuz Türkyılmaz - 13/02/2020
(13/02/2020, 20:46)Oğuz Türkyılmaz yazdı:su an sadece Butun hucreleri bos gecerde kaydet derse bos bir kayit atiyor F_1_MemberPayment tablosuna onu nasil engelleyebilirim?(13/02/2020, 20:44)userx yazdı: Ama rengiyle uğraşırken şu anda boş kayda izin veriyor. Önce bunu engelleyin.onunla ugrasiyordum engelledim bos kayit yapmiyor su anda kosullu bicimlendirmeyi exel de kullandim ama Access de hic denemedim
Koşullu biçimlendirmeyle renk verirsin.
Cvp: Docmd.gotorecord , , Acnewrec Hakkinda - berduş - 13/02/2020
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ü.
Cvp: Docmd.gotorecord , , Acnewrec Hakkinda - userx - 13/02/2020
Sen gönderdiğim kodları ekle. Biçimlendirmeni de aşağıdaki örnekteki gibi istediğin alanlarda için yaparsın. Kolay gelsin.
![[Resim: 4VOOZ7IA.gif]](https://s2.imagebanana.com/file/200213/4VOOZ7IA.gif)
Cvp: Docmd.gotorecord , , Acnewrec Hakkinda - Oğuz Türkyılmaz - 13/02/2020
(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