Merhaba, belirttiğiniz kodları formun yüklendiğinde olayına yazmışsınız. Formu her açtığınızda bu veriler tabloya yeni kayıt olarak ekleniyor.

Formun yüklendiğinde olayındaki kodu

If DCount("[TARIH]", "URUN", "clng([TARIH])=" & CLng(Date)) > 0 Then



MsgBox (Date & " tarihli veri daha önce kaydedilmiş, yeni tarih belirleyin.")



Me.TARIH = ""



Else



Me.Metin7 = Dlookup ("URUN_FIYAT", "TBL_URUN_FIYAT", "URUN_ADI='LOKMA'")

Me.Metin34 = Dlookup ("URUN_FIYAT", "TBL_URUN_FIYAT", "URUN_ADI='LOKMA YARIM'")

Me.Metin40 = Dlookup ("URUN_FIYAT", "TBL_URUN_FIYAT", "URUN_ADI='MUZLU SÜT'")

Me.Metin11 = Dlookup ("URUN_FIYAT", "TBL_URUN_FIYAT", "URUN_ADI='LİMONATA'")

Me.Metin9 = Dlookup ("URUN_FIYAT", "TBL_URUN_FIYAT", "URUN_ADI='ÇAY'")

Me.Metin46 = Dlookup ("URUN_FIYAT", "TBL_URUN_FIYAT", "URUN_ADI='SU'")

Me.Metin52 = Dlookup ("URUN_FIYAT", "TBL_URUN_FIYAT", "URUN_ADI='KAHVE'")



End If

kodu ile değiştirirseniz, formu açtığınızda, tarih daha önceden girilmiş ise uyarır. 

Formun güncelleştirme sonrasında olayına 

If IsNull(Me.TARIH) Or Me.TARIH = "" Then



DoCmd.RunSQL "DELETE URUN.TARIH FROM URUN WHERE (((URUN.TARIH) Is Null));"



End If

şeklinde kod eklerseniz tarih alanı boş olan veriler form kapandığında silinir.