Sayın berduş hocam oldu Teşekkürler

Yalnız Şöyle Bir sıkıntı oluyor
Bu Göndermiş Olduğunuz Kodu


Sadece Metin Kutusu Kasa Olan Olay Çıkıldığında Bölümüne Kodu Şu Şekil Yazdığımda

Private Sub Kasa_Exit(Cancel As Integer)
Dim x As Long

x = Nz(Me.Kasa, 0)

If IsNumeric(x) And x <> 0 Then Me.Tarih = Date


End Sub

Kasa sütununa rakam girdiğimde yeni satıra veya bir sonraki satıra geçmiyor 
Diğer Manav, Şarküteri, Kuruyemiş, Kasap, Unlu_Mamüller Sütunlarını Hiç Görmesini İstemiyorum
Sadece Kasa Sütununda Tarih Atmasını İstiyorum