AccessTr.neT
Access Sorgusunda Alan Adı Değişkeni - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access Sorgusunda Alan Adı Değişkeni (/konu-access-sorgusunda-alan-adi-degiskeni.html)

Sayfalar: 1 2 3 4 5 6 7 8


RE: Access Sorgusunda Alan Adı Değişkeni - kanakan52 - 01/07/2020

(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

[Resim: do.php?img=10402]


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


RE: Access Sorgusunda Alan Adı Değişkeni - feraz - 02/07/2020

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


RE: Access Sorgusunda Alan Adı Değişkeni - feraz - 02/07/2020

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.


RE: Access Sorgusunda Alan Adı Değişkeni - kanakan52 - 02/07/2020

(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 Img-grin


RE: Access Sorgusunda Alan Adı Değişkeni - feraz - 02/07/2020

(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 Img-grin
Çıkan inputboxa bitis tarihi değil inputboxtaki tarih yazmışsınız.Yani daha nasıl anlayayım Img-grin
Öncedende yazmıştım o kısmın mantığını alayamadım diye üstad.
Resimlerle anlatabilirseniz yarın bakabilirim.


RE: Access Sorgusunda Alan Adı Değişkeni - kanakan52 - 02/07/2020

(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 Img-grin
Çıkan inputboxa bitis tarihi değil inputboxtaki tarih yazmışsınız.Yani daha nasıl anlayayım Img-grin
Ö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.