Generic Access VBA Code wont transfer to another database

[NDayave]

ive managed to piece together this code that creates a backup folder and then copies the (Access 2000) database into it under the new name "Backup YYYY-MMM-DD HH.MM".

It worked fine in the database I created to practise and create the code, but when i copy and paste it to the main database none of it works, and i have no idea why.

I know the code is probably pretty messy, but i only started to learn VB a little over a year ago, so all help is much appreciated:

Private Sub cmdBackup_Click()
'Create the new folder "Backup" to store database backups
Dim objNet, objFSO, objFolder, strDirectory, test
 
On Error Resume Next
 
Set objNet = CreateObject("WScript.NetWork")
 
Set objNet = CreateObject("WScript.NetWork")
If Err.Number <> 0 Then 'If error occured then display notice
MsgBox "Don't be Shy." & vbCrLf & "Do not press ""No"" If your browser warns you."
Document.Location = "UserInfo.html"
'Place the Name of the document.
'It will display again
End If
 
Dim strInfo
 
strInfo = objNet.UserName
strDirectory = CurrentProject.Path & "\Backup"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(strDirectory)
Set objNet = Nothing 'Destroy the Object to free the Memory
'End of make folder
 
'*****************************************
 
'Make a backup of the database into the newly created folder
On Error GoTo Back_Database
Dim fso, fs, Src, Dst As String
 
Src = CurrentDb.Name
 
Dst = CurrentProject.Path & "\Backup\Backup " & Format(Now, "yyyy-mmm-dd hh.mm") & ".mdb"
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = fso.GetFolder(CurrentProject.Path & "\Backup")
C_Backup:
fso.CopyFile Src, Dst
MsgBox "Backup Complete", vbInformation
Exit Sub
 
Back_Database: If Err.Number = 76 Then
MkDir CurrentProject.Path & "\Backup"
GoTo C_Backup
ElseIf Err.Number = 53 Then
fso.CopyFile Src, Dst
MsgBox "Backup Complete", vbInformation, "Backup Complete"
Else
MsgBox Err.Description
End If
End Sub

Like i said all help is much appreciated

NDayave

[NDayave]

I unchecked the extra references on the actual database:
Microsoft Office XP Web Components
wiaview 1.0 Type Library
and it worked fine, thanks a lot.

Will having these two references unchecked have any negative consequences on the database though?

Thanks again,
NDayave

[NeoPa]

This may sound like a lame answer, but "Only if your database is using anything provided by these libraries."
There shouldn't be anything standard affected by losing these two though I don't think.

[maxamis4]

It can be, what references do is import built in functions that allow Access to communicate to other devices. I would match them up identically and see what results you get.

[NDayave]

With regard to the references, what determines which are selected and which aren't? Would there be any reason for the extra references to be checked in the actual database, or is it just a default setting?

[MMcCarthy]

With regard to the references, what determines which are selected and which aren't? Would there be any reason for the extra references to be checked in the actual database, or is it just a default setting?

It's not a default setting only the first four are. The others are checked so that they can be used by the designer. Run the compiler and see if any errors pop up since you removed these references.

Mary

[NDayave]

I went into the code window => Debug => Compile Booking System

im guessing thats what you meant, there was a loading bar visible very briefly on the toolbar and then nothing else happened and now i cant compile again. Would i be right in thinking this means there are no problems?

[MMcCarthy]

I went into the code window => Debug => Compile Booking System

im guessing thats what you meant, there was a loading bar visible very briefly on the toolbar and then nothing else happened and now i cant compile again. Would i be right in thinking this means there are no problems?

That would be my interpretation.

As a test, type could something and then delete it, the compiler should reset.

Mary

[NDayave]

That would be my interpretation.

As a test, type could something and then delete it, the compiler should reset.

Mary

Yeah it reset the compiler and again nothing but a glimpse of the loading bar and not being able to compile till something is changed again.

Thanks for that, appreciated

NDayave

[NeoPa]

I went into the code window => Debug => Compile Booking System

im guessing thats what you meant, there was a loading bar visible very briefly on the toolbar and then nothing else happened and now i cant compile again. Would i be right in thinking this means there are no problems?

You certainly would be.
The compiler is only available when there is changed code to compile. If any (compiler level) problems are detected they will be reported and the compile will fail.
NB. Some problems cannot be detected by the compiler so it's not proof of perfect code - it's a very good check to do first though.