Uygulamada, yedekleme ayarı kısmındaki gün olayı hatırlatma için. Alınan son yedekten itibaren belirlenen gün sonrasında yedek alınmamış ise uyarır ancak otomatik yedekleme yapmaz.
Otomatik yedekleme işlemi, BEKLEME isimli form açıkken yapar. Bekleme isimli formu kapatırsanız otomatik yedekleme yapmaz.
Belirlenen süre geçmesine rağmen yedekleme yapılmamış ise uyarı vermesi ve yedekleme yapması için,
anasayfa isimli formun açıldığında olayına aşağıdaki kodu ekle,
Dim YedekGunAyar As Integer
YedekGunAyar = Dlookup ("YedekGun", "YEDEKZAMAN")
If YedekGunAyar < (Date - DLast("[TARİH]", "YEDEKGEÇMİŞ")) Then
If MsgBox("Yedekleme Ayarınız " & YedekGunAyar & " Gün Olarak Ayarlanmış, Ancak " & (Date - DLast("[TARİH]", "YEDEKGEÇMİŞ")) & " Gündür Yedek Alınmıyor. Veritabanınızın yedeği alınsın mı?", vbCritical + vbYesNo) = vbYes Then
DoCmd.OpenForm "YEDEKALINIYOR"
End If
End If