The last line in red is the problem area. I have tried both e and e: The Debug is always (when I cut out error resume) can't find path. Access 2016 and Windows 10 and .mdb file
Edit: Ext E is shared. Have also tried \\Mike\ before e
Private Sub Label33_Click()
FileCopy "c:\ViperResides\Viper.mdb", ("c:\ViperBackUp\Viper " & Format(Now, "YYYY-MM-DD") + " " & Format(Now, "hh-mm-ss") + ".mdb")
On Error Resume Next
FileCopy "C:\ViperResides\Viper.mdb", "\\MikeM\ViperBackUp\Viper " + Format(Now, "YYYY-MM-DD") + " " & Format(Now, "hh-mm-ss") + ".mdb"
On Error Resume Next
FileCopy "C:\ViperResides\Viper.mdb", "\\MikeMCG\ViperBackUp\Viper " + Format(Now, "YYYY-MM-DD") + " " & Format(Now, "hh-mm-ss") + ".mdb"
On Error Resume Next
FileCopy "C:\ViperResides\Viper.mdb", "\\Mike\ViperBackUp\Viper " + Format(Now, "YYYY-MM-DD") + " " & Format(Now, "hh-mm-ss") + ".mdb"
On Error Resume Next
FileCopy "C:\ViperResides\Viper.mdb", "\\MMcG\ViperBackUp\Viper " + Format(Now, "YYYY-MM-DD") + " " & Format(Now, "hh-mm-ss") + ".mdb"
On Error Resume Next
FileCopy "c:\ViperResides\Viper.mdb", ("e\Viper " & Format(Now, "YYYY-MM-DD") + " " & Format(Now, "hh-mm-ss") + ".mdb")
DoCmd.RunMacro "MBoxCopying", , ""
End Sub
Edit: Ext E is shared. Have also tried \\Mike\ before e
Private Sub Label33_Click()
FileCopy "c:\ViperResides\Viper.mdb", ("c:\ViperBackUp\Viper " & Format(Now, "YYYY-MM-DD") + " " & Format(Now, "hh-mm-ss") + ".mdb")
On Error Resume Next
FileCopy "C:\ViperResides\Viper.mdb", "\\MikeM\ViperBackUp\Viper " + Format(Now, "YYYY-MM-DD") + " " & Format(Now, "hh-mm-ss") + ".mdb"
On Error Resume Next
FileCopy "C:\ViperResides\Viper.mdb", "\\MikeMCG\ViperBackUp\Viper " + Format(Now, "YYYY-MM-DD") + " " & Format(Now, "hh-mm-ss") + ".mdb"
On Error Resume Next
FileCopy "C:\ViperResides\Viper.mdb", "\\Mike\ViperBackUp\Viper " + Format(Now, "YYYY-MM-DD") + " " & Format(Now, "hh-mm-ss") + ".mdb"
On Error Resume Next
FileCopy "C:\ViperResides\Viper.mdb", "\\MMcG\ViperBackUp\Viper " + Format(Now, "YYYY-MM-DD") + " " & Format(Now, "hh-mm-ss") + ".mdb"
On Error Resume Next
FileCopy "c:\ViperResides\Viper.mdb", ("e\Viper " & Format(Now, "YYYY-MM-DD") + " " & Format(Now, "hh-mm-ss") + ".mdb")
DoCmd.RunMacro "MBoxCopying", , ""
End Sub
Last edited: