can someone help with this code?

[Guest]

Dim sCommand As String, lTaskID As Long
sCommand = """" & SysCmd(acSysCmdAccessDir) & "msaccess.exe """ _
& CurrentDb.Name &
""c\finalproject\sjacadets.mdb"/wrkgrp:c:\finalproject\system.mdw""" &
SysCmd(acSysCmdGetWorkgroupFile) _
& """" ' and add any other switches you require here
lTaskID = Shell(sCommand, vbMaximizedFocus)
If lTaskID <> 0 Then AppActivate lTaskID
DoCmd.Quit

is this right

 

[Douglas J. Steele]

No. If nothing else, you need some spaces in there. (between msaccess.exe
and the database name and between the database name and the /wrkgrp flag)

You also seem to have two different database names (CurrentDb.Name and
c\finalproject\sjacadets.mdb) and two different workgroup names
(c:\finalproject\system.mdw and SysCmd(acSysCmdGetWorkgroupFile))

My advice would be to check what sCommand actually contains, and see whether
it makes sense to you.