Private Sub itarih_Change()
'ATOZ112
'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.
Me.Komut15.SetFocus
If Nz(DLookup("cirosu", "Tablo1", "tarih=#" & Format(Me.itarih, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'"), 0) <> 0 Then
Me.Metin11 = DMax("cirosu", "Tablo1", "tarih=#" & Format(Me.itarih, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'")
Me.Metin13 = DMin("cirosu", "Tablo1", "tarih=#" & Format(Me.itarih, "mm\/dd\/yyyy") & "# And d_kat='KAT -1'")
Else
MsgBox ("Bu Aya Ait Veri Yoktur")
End If
End Sub
İnceleyip olumlu olumsuz bildirimde bulununuz.