dosyayı ekliyorum. İncelersiniz sevinirim.
İki Tarih Arası Tarihler
Butonun tıklandığında olayına aşağıdaki kodu ekleyiniz.
Dim GKayit As DAO.Recordset
Dim GTarih As Date
Set GKayit = CurrentDb.OpenRecordset("Select * From Tablo1")
GTarih = Me!Metin0.Value
While DateDiff("d", GTarih, Me!Metin2.Value) >= 0
GKayit.AddNew
GKayit!TARİH.Value = GTarih
GKayit.Update
GTarih = DateAdd("d", 1, GTarih)
Wend
GKayit.Close
Set GKayit = Nothing
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
Çok teşekkür ederim arkadaşlar istediğim buydu. emeğinize sağlık.
(30/05/2021, 20:38)yahyamacit yazdı: Çok teşekkür ederim arkadaşlar istediğim buydu. emeğinize sağlık.
Bizim istediğimiz malesef bu değil, tabloda İD ve TARİH adında alan olmaz. Yapılmaması Gereken Ölümcül Hatalar Id, id, TARIH veya tarih olmalı, Türkçe karakter içermemeli.
(30/05/2021, 21:09)ozanakkaya yazdı: Türkçe karakter içermemeliAbey bunlar bu forumda yada başka forumlarda denk geldiğim kadarıyla o kadar yazılmışki Tr karakter kullanmayın diye.Malisef millet inat eder gibi Tr karakter kıllanıyor
@yahyamacit yazdığımın sizle alakası yok abey.Yazıyı okuyunca içimden geldi
Konuyu Okuyanlar: 2 Ziyaretçi