[Resolvido]Backup do Banco de dados

Bom dia
Atualmente Faço um backup do meu projeto em uma pasta externa usando esse código:
Dim CopiaSegura As Object
 Dim Caminho As String
  Caminho = "\\SERVCOOPER\Arquivo de Sistema\SGC 2.3\Backup\2021\Backup"
   Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
     On Error GoTo ERROA
       CopiaSegura.CopyFile CurrentProject.Path & "\SGC 2.3.1.mdb", Caminho & "Sitem 2022" & Format(Now, "_mm-yyyy") & ".mdb"
         MsgBox "backup Realizado com Sucesso! ", vbQuestion, "Unidade A:"
          Exit Function
ERROA:
    Dim Msg, Title, Help, Response, MyString
       Msg = "Não Foi Possivel Salvar Na Unidade A:!"
           Style = vbInformation
               Title = "Erro: Na unidade A:"
                   Help = "NÃO SEI"
                       Response = MsgBox(Msg, Style, Title, Help, Ctxt)


Só que vai todo o projeto, gostaria de fazer o backup somente do banco de dados sem os forms “tabelas”, teria como fazer isso?

Boa noite.
Voce tem que separar o BD da interface.
Para separar é nas guias  - Ferramentas de Dados - Acessar banco de Dados - Dividir Banco de dados e rafaz o caminha do bkp so para SGC.Be

Tópico movido de "Consultas" por não ter relação com este tipo de objeto.

Fernando, como ficou a situação?

Aguardamos...

bom dia pessoal

separar o BD da interface.

obrigado crysostomo.

cheers cheers cheers cheers cheers

Sucesso.

obrigado crysostomo