AccessTr.neT

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

Rica ederim,akşama doğru bakarım.

Doğru anladımmı bilemiyorum yinede yazayım.

bitis = Format(TextBox3 & " " & ComboBox10.Value & ":" & ComboBox11.Value, "dd.mm.yyyy hh:mm")

bunu silip

bitis = hangitarih

eklermisiniz.

(02/07/2020, 17:01)feraz yazdı: [ -> ]Doğru anladımmı bilemiyorum yinede yazayım.

bitis = Format(TextBox3 & " " & ComboBox10.Value & ":" & ComboBox11.Value, "dd.mm.yyyy hh:mm")

bunu silip

bitis = hangitarih

eklermisiniz.

@feraz hocam bu değil istediğim maalesef. Niye anlaşamadık bu kez

(02/07/2020, 17:47)kanakan52 yazdı: [ -> ]

(02/07/2020, 17:01)feraz yazdı: [ -> ]Doğru anladımmı bilemiyorum yinede yazayım.

bitis = Format(TextBox3 & " " & ComboBox10.Value & ":" & ComboBox11.Value, "dd.mm.yyyy hh:mm")

bunu silip

bitis = hangitarih

eklermisiniz.

@feraz hocam bu değil istediğim maalesef. Niye anlaşamadık bu kez

Çıkan inputboxa bitis tarihi değil inputboxtaki tarih yazmışsınız.Yani daha nasıl anlayayım
Öncedende yazmıştım o kısmın mantığını alayamadım diye üstad.
Resimlerle anlatabilirseniz yarın bakabilirim.

(02/07/2020, 17:59)feraz yazdı: [ -> ]

(02/07/2020, 17:47)kanakan52 yazdı: [ -> ]

(02/07/2020, 17:01)feraz yazdı: [ -> ]Doğru anladımmı bilemiyorum yinede yazayım.

bitis = Format(TextBox3 & " " & ComboBox10.Value & ":" & ComboBox11.Value, "dd.mm.yyyy hh:mm")

bunu silip

bitis = hangitarih

eklermisiniz.

@feraz hocam bu değil istediğim maalesef. Niye anlaşamadık bu kez

Çıkan inputboxa bitis tarihi değil inputboxtaki tarih yazmışsınız.Yani daha nasıl anlayayım
Öncedende yazmıştım o kısmın mantığını alayamadım diye üstad.
Resimlerle anlatabilirseniz yarın bakabilirim.

hocam, dert oldum başına farkındayım, akşam hazırlamaya çalışacağım.