Problem with function

[rry2k]

I have a function that I'm trying to run but I need help resolving a space in the path. I probably don't want to rename the file if I don't have to. The function works fine without the space.
Public Function OpenOtherMDB()
On Error GoTo Err_Handler

Dim stAppName As String

stAppName = "C:\Program Files\Microsoft Office\Office\msaccess.exe
O:\WorkOrders.[Work Order New.mdb]&quot; <--- space Here
Call Shell(stAppName, 1)
DoCmd.Quit
Exit_ErrHandler:
Exit Function

Err_Handler:
MsgBox Err.Description
Resume Exit_ErrHandler

End Function

Thanks..Russ

 

[snoopy75]

Check out the ShellExecute API function, which allows you to specify parameters for executable files. Find the syntax and an example at

http://www.vbapi.com/ref/s/shellexecute.html.

 

[rry2k]

Thanks. I checked out the link but it still doesn't tell me how to resolve the space.

 

[snoopy75]

Just enclose it in quotes. It will work.

retval = ShellExecute(Application.hWndAccessApp, "open", "C:\Program Files\Microsoft Office\Office\MSAccess.exe", "O:\WorkOrders\Work Order New.mdb", "C:\Program Files\Microsoft Office\Office", SW_MAXIMIZE)

 

[rry2k]

Cool thanks, I appreciate the help.

Russ