Private Sub Komut4_Click()
Dim bas As Long
Dim son As Long
Dim say As Integer
say = 1
CurrentDb.Execute ("delete * from Tablo1")
CurrentDb().TableDefs.Refresh
bas = CLng(Metin0)
son = CLng(Metin2)
CurrentDb.Execute ("insert into Tablo1 ([TARÝH]) values('" & Format((bas), "dd.mm.yyyy") & "')")
Do Until bas = son
say = say + 1
CurrentDb.Execute ("insert into Tablo1 ([TARÝH]) values('" & Format((bas + 1), "dd.mm.yyyy") & "')")
bas = bas + 1
Loop
End Sub
İki Tarih Arası Tarihler
| Bu Konudaki Yorumlar |
|
İki Tarih Arası Tarihler - Yazar: yahyamacit - 30/05/2021, 18:27
RE: İki Tarih Arası Tarihler - Yazar: berduş - 30/05/2021, 19:02
RE: İki Tarih Arası Tarihler - Yazar: yahyamacit - 30/05/2021, 19:22
RE: İki Tarih Arası Tarihler - Yazar: berduş - 30/05/2021, 19:36
RE: İki Tarih Arası Tarihler - Yazar: yahyamacit - 30/05/2021, 19:37
RE: İki Tarih Arası Tarihler - Yazar: berduş - 30/05/2021, 19:43
RE: İki Tarih Arası Tarihler - Yazar: yahyamacit - 30/05/2021, 19:50
RE: İki Tarih Arası Tarihler - Yazar: ozanakkaya - 30/05/2021, 20:23
Re: İki Tarih Arası Tarihler - Yazar: feraz - 30/05/2021, 20:31
RE: İki Tarih Arası Tarihler - Yazar: yahyamacit - 30/05/2021, 20:38
RE: İki Tarih Arası Tarihler - Yazar: ozanakkaya - 30/05/2021, 21:09
RE: İki Tarih Arası Tarihler - Yazar: feraz - 30/05/2021, 21:55
|
Konuyu Okuyanlar: 1 Ziyaretçi
