Revisa si el archivo que voy a guardar es igual aldescrito en A, si es igual escribir mensaje, si no; abrir Formulario

Sub Ver()

Dim A As String

Dim B As String

A = "C:\Users\Jose Martinez\Documents\Jose Martinez\Jose Martinez\Aplicaciones en Access\APU en Diseño\APU Abril 2020 - Copia.accdb"

B = CurrentProject.Path & "\APU Abril 2020 - copia.accdb"

’Necesito que me copie el archivo que tengo abierto’

If A = B Then

MsgBox ("No se Puede Sobreescribir el Archivo Base")

Else

DoCmd. Close acForm, "AperturaBD"

DoCmd. RunCommand acCmdWindowHide

Application.CommandBars("Menu Bar").Enabled = False

DoCmd. ShowToolbar "Ribbon", acToolbarNo

DoCmd. OpenForm "Portada APU"

DoCmd. Maximize

End If

End Sub