Backup van db bij afsluiten, vraag over melding 'mislukt'.

[nwametze]

Dankzij de nuttige bijdrage in dit topic, wordt er nu bij het klikken op de knop een kopie van de database gemaakt. Werkt als een trein.
Echter, krijg ik na het klikken eerst de melding: "De backup van de database is gelukt!" en na het klikken op OK de melding: "De backup is mislukt!"
Er wordt echter wel een kopie gemaakt welke goed functioneert. Iemand enig idee waarom ik de 2e melding (mislukt) ook krijg?

Private Sub Knop0_Click()
On Error GoTo fout
Dim MijnBestand
Dim fileObj As Object
Dim strBestandNaam As String
Dim strBackupNaam As String
Dim strBackupNaam1 As String
Dim strBackupNaam2 As String
Dim MijnBestand1 As String
Dim MijnBestand2 As String
Dim msg As Integer
'Dim fout As String

strBestandNaam = "BIU.accdb"
strBackupNaam1 = "Copy1" & strBestandNaam
strBackupNaam2 = "Copy2" & strBestandNaam
MijnBestand1 = Dir(CurrentProject.Path & "\Copy1" & strBestandNaam)
MijnBestand2 = Dir(CurrentProject.Path & "\Copy2" & strBestandNaam)
        If MijnBestand1 = "" Then
            strBackupNaam = strBackupNaam1
            Laatste = strBackupNaam1
            ElseIf MijnBestand2 = "" Then
            strBackupNaam = strBackupNaam2
            Laatste = strBackupNaam2
        End If
            If Laatste = MijnBestand1 Then
                strBackupNaam = strBackupNaam2
                ElseIf Laatste = MijnBestand2 Then
                strBackupNaam = strBackupNaam1
                End If
                    If strBackupNaam = "" Then
                    strBackupNaam = strBackupNaam1
                    Else
                    End If
Laatste = strBackupNaam
strBestandNaam = CurrentProject.Path & "\" & strBestandNaam
strBackupNaam = CurrentProject.Path & "\" & strBackupNaam
Set fileObj = CreateObject("scripting.filesystemobject")
fileObj.copyfile strBestandNaam, strBackupNaam, True
msg = MsgBox("De backup van de database is gelukt!")
DoCmd.RunMacro "DBAfsluiten"

Exit Sub

fout:
MsgBox "De backup is mislukt!", vbCritical

End Sub

 

[nwametze]

Juist...
Aan het einde wordt er naar de macro DBAfsluiten verwezen, en die had ik nog niet. Gevolg: het foutbericht werd weergegeven.
Vraag opgelost