Dim GTarih As Date
Dim GSayi As Integer
DoCmd.SetWarnings False
For GSayi = 1 To CLng(Me.Metin15) - CLng(Metin13) - 1
GTarih = CDate(Format(DateAdd("d", GSayi, Me.Metin13), "dd/mm/yyyy"))
DoCmd.RunSQL "INSERT INTO Tablo1 (kisi_id, Tarih,A1) VALUES (" & id & ",#" & Format(GTarih, "yyyy-mm-dd") & "#, " & Metin23 & ");"
Next
DoCmd.SetWarnings True
Me.Tablo1_Alt_Form.Requery
| Bu Konudaki Yorumlar |
|
İki Tarih Arası Satır Ekleme Ve Veri Kaydetme - Yazar: fkilic76 - 25/02/2019, 14:37
Cvp: İki Tarih Arası Satır Ekleme Ve Veri Kaydetme - Yazar: ozanakkaya - 25/02/2019, 17:25
Cvp: İki Tarih Arası Satır Ekleme Ve Veri Kaydetme - Yazar: fkilic76 - 25/02/2019, 21:12
Cvp: İki Tarih Arası Satır Ekleme Ve Veri Kaydetme - Yazar: ozanakkaya - 26/02/2019, 16:08
Cvp: İki Tarih Arası Satır Ekleme Ve Veri Kaydetme - Yazar: ozanakkaya - 26/02/2019, 17:12
Cvp: İki Tarih Arası Satır Ekleme Ve Veri Kaydetme - Yazar: fkilic76 - 26/02/2019, 18:04
|
