Change save in location for save as Back Up Database

[twgonder]

Before a few days ago, if I backed up a database, it would save to the same directory of the .accdb that I was working in.
(File > Save As > Back Up Database > Save As)
Now it tries to go to the Documents folder.
I've searched and looked, but I can't find where this is set or why it changed.
It's not the same as the Options > General > Default database folder, which isn't Documents.


Any ideas?

[ranman256]

i use this code to backup my db to the target folder in :Const kTargetDir =

make a button to run: BackupDB

Public Function BackupDb()
Dim vDir, f, vExt, vTargFile, vSrcDB
Dim vTargDir, vSuffx


Const kTargetDir = "\\server\BackupFolder\"


   vSrcDB = CurrentDb.Name
   If vSrcDB <> "" Then
        getDirName vDB, vDir, f
        vExt = Mid(f, InStrRev(f, "."))
        
        vTargDir = kTargetDir
    
        vSuffx = "_Backup" & format(Now,"yymmdd-hhnn") & vExt
        
         vTargFile = vTargDir & f & vSuffx
         Copy1File vSrcDB, vTargFile
  End If
     
     'FRONT END APP
   MsgBox "Done", vbInformation, "Backup"
End Function




Public Function Copy1File(ByVal pvSrc, ByVal pvTarg) As Boolean
Dim fso
On Error GoTo errMake


Set fso = CreateObject("Scripting.FileSystemObject")    '(reference: ms Scripting Runtime)
fso.CopyFile pvSrc, pvTarg
Copy1File = True
Set fso = Nothing
Exit Function


errMake:
'MsgBox Err.Description & vbCrLf & pvSrc, , "Copy1File(): " & Err
Set fso = Nothing
End Function







Public Sub getDirName(ByVal psFilePath, ByRef prvDir, Optional ByRef prvFile)
    'psFilePath: full file path given
    'prvDir : directory name output
    'prvFile: filename only output
Dim i As Integer, sDir As String


i = InStrRev(psFilePath, "\")          'not available in '97
If i > 0 Then
  prvDir = Left(psFilePath, i)
  prvFile = Mid(psFilePath, i + 1)
  ''If Asc(Mid(prvFile, Len(prvFile), 1)) = 0 Then RemoveLastChr prvFile
End If
End Sub

[twgonder]

I should have mentioned that I am now on Access 2021 Version 2407 Build 16.0.17830.20166 64-bit

[twgonder]

Just as quickly as the problem appeared, it just disappeared. No changes to Access or Windows settings were made.
Version 2411 Build 18227.20162

[twgonder]

@ ranman256 Post #2 Doesn't compile

[Welshgasman]

@ ranman256 Post #2 Doesn't compile

And you cannot say why?

[twgonder]

@Welshgasman post #6 Because there is a bug in the code? I wish I had time to debug code that a person says works for them, but not for which versions of Access. I'm using 2021, and it doesn't compile. It's easy to copy the code and see the error message for yourself, if you have a version of Access that has a problem with the code similar to my version.

[June7]

I had to deal with "variable not defined" on vDB, otherwise compiles. (Where is vDB declared and populated?)

Do you have reference to Microsoft Scripting Runtime Library? This is needed for FSO.

This is why you should provide error message you get, because I don't get same.

[Welshgasman]

I had to deal with "variable not defined" on vDB, otherwise compiles. (Where is vDB declared and populated?)

Do you have reference to Microsoft Scripting Runtime Library? This is needed for FSO.

This is why you should provide error message you get, because I don't get same.

I believe the vDB is meant to be vSrcDB ?

getDirName vSrcDB, vDir, f

With a slight change for backup path, I am now using that for my Diabetes DB. So thank you @ranman256