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

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