Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Toplu Taksitlendirmede Her Taksit İçin Tabloya Ayrı Kayıt Nasıl Yapabilirim.

Oğuz Türkyılmaz
Oğuz Türkyılmaz
Access Cevaplanmış Soruları
4
465

Toplu Taksitlendirmede Her Taksit İçin Tabloya Ayrı Kayıt Nasıl Yapabilirim.

#4
Oğuz Türkyılmaz
Aktif Üye
Oğuz Türkyılmaz
Bul
Aktif Üye
Adı Soyadı: Oğ.... Tü....
Yaşı: 55
Konum: Antalya
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 03/05/2023,09:23
Yorumları: 1.583
Konuları: 265
Kayıt Tarihi: 08/02/2018
Teşekkür Puanı: 0
Mesleğiniz: İşletmeci
Herkese sağlıklı günler dilerim sorumla ilgili belli bir yol kat ettim. Foun üstündeki bilgileri istediğim format da döngü ile alabiliyorum, F8 ile kontrol ettiğim de döngüde hem taksit no hem taksit vadesi hem de taksit tutarı değerlerini görüyorum.. Fakat hem ado ile hem de ınsert ınto yöntemi kaydet dediğimde kod herhangi bir hata vermeden kayıt gerçekleşti mesajı ile koddan hatasız bir şekilde çıkıyor. (ADO da taksitlendirme formuna manuel okarak veri girdiğimde hata vermiyor. Ama Poliçe giriş formu üzerinden açtığımda hata veriyor.) Tabloya kaydetmemesinin sebebi nedir. Yardımlarınız için teşekkür ederim.

Kod:
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

                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
.zip PoliceTakip - FORUM.zip (Dosya Boyutu: 390,05 KB | İndirme Sayısı: 1)
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 12/03/2023, 00:39, Düzenleyen: Oğuz Türkyılmaz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Re: Toplu Taksitlendirmede Her Taksit İçin Tabloya Ayrı Kayıt Nasıl Yapabilirim. - Yazar: Oğuz Türkyılmaz - 12/03/2023, 00:19
Task