I am trying the following routines in one of my functions and I get runtime error 424 :
If Not Object.FileExists(CurrentProject.path & "\Archives\Reports " & ccmonth & ".mdb") Then
fs.copyfile CurrentProject.path & "\" & CurrentProject.name, CurrentProject.path & "\Archives\Reports " & ccmonth & ".mdb"
End If
Thanks for your help !!
Brenda
If Not Object.FileExists(CurrentProject.path & "\Archives\Reports " & ccmonth & ".mdb") Then
fs.copyfile CurrentProject.path & "\" & CurrentProject.name, CurrentProject.path & "\Archives\Reports " & ccmonth & ".mdb"
End If
Thanks for your help !!
Brenda