followhyperlink error

[Guest]

I have the following code that is to open a folder when the command button is
clicked...however i get a runtime 490 error.

Private Sub Command34_Click()
Dim MyPath As String
MyPath = "G:\Access\5%\"
Application.FollowHyperlink MyPath

End Sub

 

[Alex Dybenko]

Hi,
try to use ShellExecute:
http://www.mvps.org/access/api/api0018.htm

--
Best regards,
___________
Alex Dybenko (MVP)
http://alexdyb.blogspot.com
http://www.PointLtd.com