30/05/2021, 19:50
İki Tarih Arası Tarihler
1 2
30/05/2021, 20:23
ozanakkaya
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 30/05/2021, 20:31
feraz
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
30/05/2021, 20:38
yahyamacit
Çok teşekkür ederim arkadaşlar istediğim buydu. emeğinize sağlık.
30/05/2021, 21:09
ozanakkaya
(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:55
feraz
(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
1 2