DoCmd.CopyObject problem (1 Viewer)

[meenctg]

I have a main.mdb and backup.mdb in same directory. In main.mdb has a account table. I wanna copy account table to backup.mdb file with click event

I have use the function to retrieve the current db path. but it doesn't retrieve the currentdbpath with backup.mdb file.

Public Function GetDBPath() As String
    Dim strFullPath As String
    Dim I As Integer

    strFullPath = CurrentDb().Name

    For I = Len(strFullPath) To 1 Step -1
        If Mid(strFullPath, I, 1) = "\" Then
            GetDBPath = Left(strFullPath, I)
            Exit For
        End If
    Next
End Function

I have use Docmd.CopyObject

Private Sub Command4_Click()
DoCmd.CopyObject "[COLOR="Red"]how can call destination function[/COLOR]","account", acTable, "account"
end sub

how can use the destination path with CurrentdDbPath/backup.mdb.

anybody help me please?

 

[Estuardo]

Have you tried Application.CurrentProject.Path