AccessTr.neT

Merhaba
Yapmaya çalıştığım avm ciro takip uygulamasında çözemediğim sorunlar yaşıyorum.Yardımcı olursanız sevinirim.

KATINCELE formunda Metin20 ve Metin18 (ayın en yüksek ve düşük cirosu) alanlarında koşulları sağlayan (ayın ciro sıralamasında bulunan firmalardan en yüksek ve en düşüğün)  firma_bilgileri. f_kisaad alanları yazdırmak isiyorum. eklediğimiz kod koşulları sağlayan firmalar arasında alfabetik sıraya göre birinciyi ve sonucuyu alanlara yazıdırıyor.

Me.Metin18 = DMax("f_kisaad", "ciro_kat", "m_tarih=#" & Format(Me.Metin32, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'")

Me.Metin20 = DMin("f_kisaad", "ciro_kat", "m_tarih=#" & Format(Me.Metin32, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'")

 
Listelemelerde tekrarlayan kayıtları Sql  kodlamada DISTINCT kullanarak çözdüm.

SELECT DISTINCT firma_bilgileri.f_kisaad AS Firma, muhasebe.m_ciro AS Ciro, muhasebe.firma_id, muhasebe.m_tarih, dukkan.d_kat

FROM (muhasebe INNER JOIN firma_bilgileri ON muhasebe.firma_id = firma_bilgileri.firma_id) INNER JOIN dukkan ON firma_bilgileri.firma_id = dukkan.firma_id

WHERE (((muhasebe.m_tarih)=[Forms]![KATINCELE]![Metin91]) AND ((dukkan.d_kat)="KAT 1"))

ORDER BY muhasebe.m_ciro DESC;

Sorgula butonunun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

Private Sub Komut35_Click()



Me.Komut35.SetFocus



If Nz(DLookup("m_ciro", "ciro_kat", "m_tarih=#" & Format(Me.Metin32, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'"), 0) <> 0 Then



Me.Metin24 = Round(DAvg("m_ciro", "ciro_kat", "m_tarih=#" & Format(Me.Metin32, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'"), 3)



Me.Liste26.Requery

Me.Metin18 = Me.Liste26.Column(0, 1)



Me.Metin20 = Me.Liste26.Column(0, Me.Liste26.ListCount - 1)





Me.Metin41 = DMax("m_ciro", "ciro_kat", "m_tarih=#" & Format(Me.Metin32, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'")

Me.Metin43 = DMin("m_ciro", "ciro_kat", "m_tarih=#" & Format(Me.Metin32, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'")





Else



MsgBox ("Seçtiğiniz Zaman Diliminde Veri Yoktur. Lütfen 2016 ve 2017 yılında her ayın 1. gününü seçiniz.")



End If



End Sub

(26/04/2017, 09:45)ozanakkaya yazdı: [ -> ]Sorgula butonunun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

Private Sub Komut35_Click()



Me.Komut35.SetFocus



If Nz(DLookup("m_ciro", "ciro_kat", "m_tarih=#" & Format(Me.Metin32, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'"), 0) <> 0 Then



Me.Metin24 = Round(DAvg("m_ciro", "ciro_kat", "m_tarih=#" & Format(Me.Metin32, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'"), 3)



Me.Liste26.Requery

Me.Metin18 = Me.Liste26.Column(0, 1)



Me.Metin20 = Me.Liste26.Column(0, Me.Liste26.ListCount - 1)





Me.Metin41 = DMax("m_ciro", "ciro_kat", "m_tarih=#" & Format(Me.Metin32, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'")

Me.Metin43 = DMin("m_ciro", "ciro_kat", "m_tarih=#" & Format(Me.Metin32, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'")





Else



MsgBox ("Seçtiğiniz Zaman Diliminde Veri Yoktur. Lütfen 2016 ve 2017 yılında her ayın 1. gününü seçiniz.")



End If



End Sub

hocam ellerinize sağlık ben sorguya DISTINCT ekleyerek sorunu çözmüştüm ama bununda denedim teşekkür ederim.