VSB front end

[hortizjr59]

I have been using my access 2003 in multi user mode with a VSB front end. The database as worked great for years with no issues. I recently upgraded to access 2007 and noticed the VSB front end no longer works. Is there another solution for using 2007 database in a multi user mode.

Suggestions welcome.

Thanks.

 

[boblarson]

VSB???

It would all depend on what code the frontend is using to access the backend. Did the file for the backend get upgraded to an accdb file from an mdb? If so, that could be the reason. It wouldn't recognize the name change and, if it uses DAO at all, then it could be referencing the wrong thing. In the accdb file formats you would reference the Microsoft Office 12.0 Access Database Engine Object Library instead of the DAO 3.6 Object Library (or the 3.51).

 

[hortizjr59]

Thanks for you responce.

I do have the correct library referenced in tools reference window.

Below is my front end:

Set WshNetwork = CreateObject("WScript.Network")
GetUser = WshNetwork.UserName
Set WshNetwork = Nothing
'Change the LUNmae location below. It's best to use the UNC path and filename.
'It's also best to clone an mde verses and mdb file but this script will work with either.
'Do NoT use this script unless you've either split the MSAccess data files and are using MSAccess linked tables
'Or SQL Server linked tables.
LUName = "O:\Quality\CAPA\clean\CAPAHNS.accdb"
oldname = LUName
'Change the mde in the line below to mdb for mdb files. GetUser gets the user's loginID for Windows.
newName = Replace(LUName, ".mdb", "") & "-" & GetUser & ".mdb"
retval = 0
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Copy file - this code below can be used to copy other files as well.
retval = objFSO.CopyFile(oldname, newName, True)
Set objFSO = Nothing
Dim objShell
Set objShell = CreateObject("Wscript.Shell")
'Now open the new MSAccess cloned file with the user name. Change MSAccess.exe to execute other file types.
objShell.Run "MSAccess.exe """ & newName & """ "
Set objShell = Nothing

Regards:

 

[boblarson]

wouldn't you need to change this line to use accdb instead of mdb?

newName = Replace(LUName, ".mdb", "") & "-" & GetUser & ".mdb"

 

[hortizjr59]

Dah I should have coaght that.

Works great thanks.

I have one addtional question you may be able to answer.

I have tried to compile my database and I get the error message:
"User-Define Type Not Specified.

The highlited line is:

fso As FileSystemObject

Thanks

 

[boblarson]

You would need to add a reference in Tools > References. But if you just change it to Object then you can use late binding and not have to set the reference. But if you want to have Intellisense available then you would need to set the reference to Windows Script Host.

 

[hortizjr59]

Yup that did the trick....

Thanks