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
Sorgula butonunun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.