[RESOLVED] DB Backup and Restore

[RobDog888]

You can place the "Call PromptBackup" in the Activate event but then you will need to create a boolean flag variable to only let it call it once or when the user minimizes or switches apps, when they come back it will active again.

Or you could use a timer that is set to enabled in the last line of the MDIForm_Load event and an interval of about 500 (30 seconds) to fire its Timer event procedure where you wil have the call to your "Call PromptBackup" call. Disable the timer as the first call as the next line of code should be the one calling the backup call..

[Simply Me]

You can place the "Call PromptBackup" in the Activate event but then you will need to create a boolean flag variable to only let it call it once or when the user minimizes or switches apps, when they come back it will active again.

Or you could use a timer that is set to enabled in the last line of the MDIForm_Load event and an interval of about 500 (30 seconds) to fire its Timer event procedure where you wil have the call to your "Call PromptBackup" call. Disable the timer as the first call as the next line of code should be the one calling the backup call..

Got it working!

One last Problem. What if the first day of the month falls on Saturday or Sunday (no work, computers are off) is it still possible that vb would check if DB was backed-up or not?

[rory]

Got it working!

One last Problem. What if the first day of the month falls on Saturday or Sunday (no work, computers are off) is it still possible that vb would check if DB was backed-up or not?

Dim Firstofmonth As Date
    Dim Lastofmonth As Date
    Dim DateBefore As Date
    Dim DateBeforeThat As Date
    Dim ThisDay As String
    Dim YesterDay As String
    
    Firstofmonth = DateAdd("d", 1, Date - Day(Date))
    Lastofmonth = DateAdd("m", 1, Date - Day(Date))
    ThisDay = Format(Now, "dddd")
    YesterDay = Format(Now - 1, "dddd")
    DateBefore = DateAdd("d", -1, Date)
    DateBeforeThat = DateAdd("d", -2, Date)
    
    Debug.Print Firstofmonth
    Debug.Print Lastofmonth
    Debug.Print DateBefore
    Debug.Print DateBeforeThat
    Debug.Print ThisDay
    Debug.Print YesterDay
    
    If Date = Firstofmonth Then
        Debug.Print "Today is first of Month"
    End If
    
    If ThisDay <> "Saturday" And ThisDay <> "Sunday" Then
        Debug.Print "Today is a Weekday"
    End If
    
    If YesterDay = "Sunday" Then
        Debug.Print "Today is a First Of Week"
    End If
    
    If DateBefore = Firstofmonth And ThisDay = "Monday" Then
        Debug.Print "Day Before Was First of Month"
    ElseIf DateBeforeThat = Firstofmonth And ThisDay = "Monday" Then
        Debug.Print "Day Before That Was First of Month"
    End If

[rory]

so your code would look like this ..

Private Sub PromptBackup()
 
    Dim Firstofmonth As Date
    Dim DateBefore As Date
    Dim DateBeforeThat As Date
    Dim ThisDay As String
    
    Firstofmonth = DateAdd("d", 1, Date - Day(Date))
    DateBefore = DateAdd("d", -1, Date)
    DateBeforeThat = DateAdd("d", -2, Date)
    ThisDay = Format(Now, "dddd")
    
    If Date = Firstofmonth Or _
       DateBefore = Firstofmonth And ThisDay = "Monday" Or _
       DateBeforeThat = Firstofmonth And ThisDay = "Monday" Then
            MsgBox "You need to Back up your Database"
            frmBackup.Show vbModal
    End If
 
End Sub