Skip to main content

AccessTr.neT


İki Tarih Arası Tarihler

İki Tarih Arası Tarihler

#7
dosyayı ekliyorum. İncelersiniz sevinirim.
.rar deneme.rar (Dosya Boyutu: 20,4 KB | İndirme Sayısı: 5)
Cevapla
#8
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
Cevapla
#9
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
Cevapla
#10
Çok teşekkür ederim arkadaşlar istediğim buydu. emeğinize sağlık.
Cevapla
#11
(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 HatalarURL'ye Git Id, id, TARIH veya tarih olmalı, Türkçe karakter içermemeli.
Cevapla
#12
(30/05/2021, 21:09)ozanakkaya yazdı: Türkçe karakter içermemeli
Abey 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 Img-grin
@yahyamacit  yazdığımın sizle alakası yok abey.Yazıyı okuyunca içimden geldi Img-grin
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task