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