merhabalar 

ben Veritabanı Yedekleme ve Bakım Uygulaması V3  bu uygulamayı kullanıyorum çalışmama ekledim. kendim el ile programı onarım yapıp yedeğini alıyorum gayet güzel çalışıyor istediğim gibi ...

yedek alma ayarlarında otomatik bölümünü 7 gün sonra yedek alınsınmı diye onayladım ama 7 gün geçince bana haber vermiyor 7 gündür yedek almadınız diye bunun için başlangıç ana forma birşey eklemem gerekiyor muydu bilgi verirmisiniz teşekkürler

sayın uMits,

mevcut olduğunu beyan ettiğiniz örnek uygulamanızı konunuza dahil ediniz lütfen.

bilginize...iyi çalışmalar,saygılar.

hocam örnek ektedir ana sayfa formum açıldığında yedek ve bakım butonu var manuel olarak oradan yapıyorum . 
ben form açıldığında yedekleme ve bakım uygulaması v3 de ayarlama bölümünde 7 gün de bir otomatikl yedek var otomatik yedek almıyor. ben 7 günde bir bana 7 gün yedek alınmamıştır yedek alınız diye kendi uyarı yapsın istiyorum.  acaba programın otomatik yedek alması çalışmıyormu

teşekkür ederim şimdiden

Merhaba, 
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

(19/05/2017, 07:10)ozanakkaya yazdı: Dim YedekGunAyar As IntegerYedekGunAyar = 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

teşekkür ederim