Auto backup on entire database close, forms included

[cuddles]

I have a database with multiple forms and I would like to on close I would assume of the form, save a backup to a specific folder. This will all change once I move the database to the server but for now want a backup on my machine.

Here is my code:

Private Sub Form_Close()
Call db_backup
End Sub

Below is in a module

Option Compare Database
Option Explicit
Public Function db_backup()
Dim sourceFile As String, destinationFile As String
Dim aFSO As Variant
Dim path As String, name As String
sourceFile = CurrentProject.QualityTest
path = CurrentProject.path
name = CurrentProject.name
destinationFile = path & "c:\users\AD36742\documents\db backups - please do not remove\" & Left(name, Len(name) - 6) & "_backup" & "_" & _
Year(Now) & "_" & Month(Now) & "_" & Day(Now) & ".accdb"
'this removes a file created on the same day
If Dir(destinationFile) <> "" Then
Kill destinationFile
End If
'this creates a backup into destination path
If Dir(destinationFile) = "" Then
Set aFSO = CreateObject("Scripting.FileSystemObject")
aFSO.CopyFile sourceFile, destinationFile, True
MsgBox "A database backup has been stored under " & destinationFile
End If
End Function

The problem is when I run this the program will give me an error saying: runtime error 438 object does not support this property or method

[RuralGuy]

It looks to me like this:

path = CurrentProject.path
name = CurrentProject.name
destinationFile = path & "c:\users\AD36742\documents\db backups - please do not remove\"...

...should *not* begin with path!
FYI: PATH is a reserved word as well.

[cuddles]

Thanks. It does not have path! It runs but it does nothing. My Access db is named Qualitytest so I am confused why this is not working.

[cuddles]

Maybe I don't need to call the function and it just does it. Nope, that did not work. It let me close the DB and nothing was saved anywhere

[RuralGuy]

The code you posted indicated it did. What do you think this line will do? sourceFile = CurrentProject.QualityTest

[cuddles]

Isn't it supposed to look at qualitytest as my source file and then back that up?

[RuralGuy]

Why not look at sourceFile and see what you have?

[RuralGuy]

Do you know how to do that? A MsgBox sourceFile will do it.

[cuddles]

got it. perfect thnx