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