Dim x As Long
x = Nz(Me.Manav, 0) + Nz(Me.Şarküteri, 0) + Nz(Me.Kuruyemiş) + Nz(Me.Kasa, 0) + Nz(Me.Unlu_Mamüller, 0) + Nz(Me.Kasap, 0)
If IsNumeric(x) And x <> 0 Then Me.Tarih = Date
metin kutularının çıkıldığında olayına aşağıdaki kodu yazarak dener misiniz?