Toplu Taksitlendirme Işleminde Her Taksit Için Tabloya Ayrı Kayıt Nasıl Yapabilirim.

OĞUZ TÜRKYILMAZ · **Kayıt Tarihi:** 06.11.2018

Sn @alperalper Uygulamada gerekli değişiklikleri yaptım. Poliçe giriş formunda gerekli bilgileri girip Taksitleri oluşturuyor fakat bu Textboxlara müdahale ettirmiyorum, toplam taksit sayısı yada poliçe toplam tutarı yanlış girildiyse tekrardan doğru verileri girip taksitleri yeniden oluşturması gerekiyor. Daha sonra Taksit ödeme planı oluştur butonuna basarak kullanıcının Ödeme planı ve tarihleri üzerinde istediği gibi değişiklikleri yapabileceği F_Taksitlendirme formunun açılmasını sağlıyorum. Buraya kadar senaryo çalışıyor. Sonuçta Bu forma girilen bilgilerin Taksit tablosuna kaydedildiğinde sonucun Taksit Tablosu resmindeki gibi, her bir taksit tutarı ve tarihinin ayrı bir ID numarası ile Taksit tablosuna kaydedilmesi amaçlanıyor. Döngü ile ya da başka bir yöntem ile Formun üstündeki textboxların üzerinde dolaşıp dolu Texboxlardaki bilgileri tabloya nasıl aktarabilirim. Yardımlarınız için tekrar teşekkür ederim.

alperalper · **Kayıt Tarihi:** 06.11.2013

Bir döngü istiyorsan aşağıdaki kodu kullanabilirsin. Tabi döngünün kontrol etmesini istediğin form denetimlerinin imtag kısmına kontrol yazmanız gerekiyor. Ancak bu iş için döngüye gerek yok. Dao ile alanları ilgili tabloya atabilirsin.

Visual Basic
Dim f As Form
Dim c As Control
 
For Each c In f.Controls
        If c.Tag = "kontrol" AND c<>"" Then
         'imtag kısmı kontrol olan ve boş olmayan alanlar için yapılmasını istediğin şeyi
Buraya yazabilirsin.   
        End If
    Next c

OĞUZ TÜRKYILMAZ · **Kayıt Tarihi:** 06.11.2018

Sn. alperalper aşağıdaki gibi bir kod yazdım ayrıca ado ile de yaptım ado da bir hata aldım onuda birazdan paylaşırım. Ama bu kod hata vermiyor istediğim şekilde tüm bilgileri alıyor F8 ile basamak basamak kontrol ettim fakat döngüden kayıt işlemi gerçekleşti diyip hata vermeden çıkmasına rağmen tabloya eklemiyor. Koda bir göz atarmısınız eksik ne var. Birazdan ado ile yaptığım çrneğide yükleyeceğim.

Visual Basic
Private Sub btn_Kaydet_Click()
 
If MsgBox("Veriler Kaydedilecek . Onaylıyormusunuz.?", 36, "Kayıt Ediliyor") = vbYes Then
 
Dim x As Byte
 
             For x = 1 To Form_F_PoliceGiris.ComboBox_TaksitSayisi
             
 
                PoliceNo = TextBox_PoliceNo.Value
                TaksitNo = x
                TaksitVadesi = Controls("TextBox_T" & x).Value
                TaksitTutari = Controls("TextBox_TT" & x).Value
                OdemeDurumu = ComboBox_OdemeDurumu.Value
 
'          
 
              DoCmd.SetWarnings False
              
              DoCmd.RunSQL "INSERT INTO T_Taksitler ( PoliceNo, TaksitNo, TaksitVadesi, TaksitTutari, OdemeDurumu ) " & _
              "VALUES ('" & PoliceNo & "'," & TaksitNo & ", #" & Format(TaksitVadesi, "dd-mm-yyyy") & "#,'" & TaksitTutari & "','" & OdemeDurumu & "''')"
 
              DoCmd.SetWarnings True
 
                Next x
                
                MsgBox "Kayıt işlemi gerçekleşmiştir.", 64, "Kayıt İşlemi"
                GoTo 777
                Else
                MsgBox "Kayıt İşleminden Vazgeçtiniz. Veriler Kaydedilmedi!", 64, "Kayıt İşlemi"
                End If
                
777
 
End Sub

OĞUZ TÜRKYILMAZ · **Kayıt Tarihi:** 06.11.2018

ADO ile de aşağıdaki gibi yazdım kodu hatayıda buldum düzelttim. Yine formun üstündeki bilgileri alıyorum hata vermiyor kaydedildi mesajını alıyorum fakat bu kod da tabloya kaydı gerçekleştirmiyor. Örneği ekledim.

Visual Basic
Private Sub btn_Kaydet_Click()
 
Dim rs As New ADODB.Recordset
 
If MsgBox("Veriler Kaydedilecek . Onaylıyormusunuz.?", 36, "Kayıt Ediliyor") = vbYes Then
 
Dim x As Byte
 
             For x = 1 To Form_F_PoliceGiris.ComboBox_TaksitSayisi
             
             rs.Open "T_Taksitler", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
             rs.AddNew
             
                rs!PoliceNo = TextBox_PoliceNo.Value
                rs!TaksitNo = x
                rs!TaksitVadesi = Controls("TextBox_T" & x).Value
                rs!TaksitTutari = Controls("TextBox_TT" & x).Value
                rs!OdemeDurumu = ComboBox_OdemeDurumu.Value
                
                rs.Update
                rs.Close
                
                Set rs = Nothing
 
 
                Next x
                
                MsgBox "Kayıt işlemi gerçekleşmiştir.", 64, "Kayıt İşlemi"
                GoTo 777
                Else
                MsgBox "Kayıt İşleminden Vazgeçtiniz. Veriler Kaydedilmedi!", 64, "Kayıt İşlemi"
                End If
                
777
 
End Sub

OĞUZ TÜRKYILMAZ · 12-03-2023, 21:18

Sonunda becerebildim. Şu anda hem ado hem de insert into ile Kodlarım istediğim gibi her Taksit, Taksitler tablosuna Ayrı ayrı işleniyor. Çalışan halini bırakıyorum buraya belki birilerinin de işine yarar.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Ekteki Su Faturası Buna Elektrik Doğalgaz Internet Vs Icin Nasıl Ekleyebilriz	kadirnet	2	373	21-08-2025, 18:01 Son Mesaj: dsezgin
	[TABLO] Tabloya Veri Eklerken Kayıt Hatası	anno	3	520	11-06-2024, 15:29 Son Mesaj: dsezgin
	Access Formu üzerinden Sql Server Tabloya Nasıl Veri Kaydı Yapılır	karacahil	4	667	15-02-2024, 12:10 Son Mesaj: halily
	Insert ile formdan tabloya kayıt ekleme	Enigmatic	18	21.536	07-02-2024, 18:41 Son Mesaj: halil.tefci
	[VBA] Bir Tabloda Alan Türü Uzun Metin Olan Iki Ayrı Alanı Karşılaştırmak	abkbek	13	1.187	10-11-2023, 22:26 Son Mesaj: abkbek
	Etiket Isimlerini Toplu Değiştirme	hedefkaya	1	342	24-10-2023, 21:06 Son Mesaj: dsezgin
	[VBA] Kayıt Iptali: Kayıt Iptal Tablosuna Ekle, Kayıdı Sil Işlemi	programmer67	6	843	21-07-2023, 10:40 Son Mesaj: onur_can
	Toplu .csv, .xlsx, .xls, .xml Dosya Aktarımı Yapmak	adnnfrm	2	575	22-06-2023, 19:04 Son Mesaj: dsezgin

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL