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.