(01/07/2020, 18:13)feraz yazdı: Dim ayBas As Date, aySon As Date değişkenlerini tanımladım.
filtre kodunada alttakilerini ekledim.
ayBas = DateSerial(Year(Date), Month(Date - 1), 1)
aySon = DateSerial(Year(Date), Month(Date - 1) + 1, 0)
select case yede ekledim ve Combobox10 ada fitre yazdım.Yani combo10dan geçen ay seçilirse listelenir.
Case "Geçen Ay": rs.Open "select * from Ajandam where fix(" & alan & ") between " & Fix(CDbl(CDate(ayBas))) & " and " & Fix(CDbl(CDate(aySon))) & "", baglan, 1, 1
@feraz hocam destek için teşekkür ederim.
Kaydet, Sil, Güncelle, Filtreler dahil tamam, Sadece yineleme tarihi seçme olayı kaldı. Onunda basit taslağını kurdum, Yeni bir kayıt eklemek istediğinizde göreceksiniz. Bu çalışma için son bir desteğinizi rica ediyorum.
Çalışmanın son halini ekledim.. Bu haliyle bile muhteşem oldu..Şimdiden teşekkür ederim.