Sorgu Oluşturmak Hk.

1 2
21/03/2020, 13:10

komutan63

[attachment=31792]Hocam

Açılan kutudan herhangi bir ay seçtikten sonra sorgu çalıştır butonu ile seçilen aya ait tutar bilgilerini görmek istiyorum.

Saygılar
21/03/2020, 13:12

berduş

açıklamaları forma yaptığınız gibi konuya da eklemeniz daha iyi olur. (forum kuralları)

sorguya aşağıdaki kodu yazıp dener misiniz?
SELECT Tablo1.Tarih, Tablo1.Tutar
FROM Tablo1
WHERE (((Year([Tarih]))=Year([Formlar]![Frm1]![Tarih])) AND ((MonthName(Month([Tarih])))=[Formlar]![Frm1]![Açılan_Kutu7]));

bu arada yapılmaması gereken ölümcül hatalar konusunu incelemenizi öneririm
iyi çalışmalar
21/03/2020, 13:59

komutan63

(21/03/2020, 13:12)berduş yazdı: açıklamaları forma yaptığınız gibi konuya da eklemeniz daha iyi olur.  (forum kuralları)

sorguya aşağıdaki kodu yazıp dener misiniz?
SELECT Tablo1.Tarih, Tablo1.Tutar
FROM Tablo1
WHERE (((Year([Tarih]))=Year([Formlar]![Frm1]![Tarih])) AND ((MonthName(Month([Tarih])))=[Formlar]![Frm1]![Açılan_Kutu7]));

bu arada yapılmaması gereken ölümcül hatalar konusunu incelemenizi öneririm
iyi çalışmalar

Hocam tam istediğim gibi çalıştı.Teşekkür ederim.

Saygılar
21/03/2020, 14:14

berduş

Iyi calismalar)
21/03/2020, 14:42

feraz

Sorgu yapılmadan alttaki kodlada olabilir alternatif olarak.
Tutar metin kutusu ilişkisiz olmalı.

Private Sub Komut6_Click()
  Tutar.Value = Dlookup ("Tutar", "Tablo1", "MonthName(Month([Tarih]))='" & Açýlan_Kutu7.Value & "'" & _
                                          " And year([Tarih]) = " & Year(Tarih.Value) & "" & _
                                          " And day([Tarih]) = " & Day(Tarih.Value) & "")
End Sub
22/03/2020, 12:45

komutan63

(21/03/2020, 14:42)feraz yazdı: Sorgu yapılmadan alttaki kodlada olabilir alternatif olarak.
Tutar metin kutusu ilişkisiz olmalı.

Private Sub Komut6_Click()
  Tutar.Value = Dlookup ("Tutar", "Tablo1", "MonthName(Month([Tarih]))='" & Açýlan_Kutu7.Value & "'" & _
                                          " And year([Tarih]) = " & Year(Tarih.Value) & "" & _
                                          " And day([Tarih]) = " & Day(Tarih.Value) & "")
End Sub

Hocam ilginize teşekkür ederim.
Sizin verdiğiniz kodlarda textbox  a tarihi yazıyorum alttaki textbox a  açılan kutudan seçtiğim aya ait tutarı getiriyor.
bunu da örnek olarak saklayacağım.

Saygılar
1 2