Need VBcode to open msPaint from Access 2007

[Citipool]

Does anyone have VB code that I could use to have the option of clicking on
cmd button in a form to open msPaint? Thank you

 

[Arvin Meyer [MVP]]

This will do it:

http://www.mvps.org/access/api/api0018.htm

 

[Citipool]

Thanks Arvin. I have to admit that I am learning my way up the ladder when it
comes to VB. I've added the code you suggested but I get an error
message:"The expression On click you enetered as the event property setting
produced the following error: Invalid outside procedure." Umm, now what?
any insight?

 

[David W. Fenton]

I have to admit that I am learning my way up the ladder when it
comes to VB. I've added the code you suggested but I get an error
message:"The expression On click you enetered as the event
property setting produced the following error: Invalid outside
procedure." Umm, now what? any insight?

More information needed.

Where did you put the code?

Which line is producing the error?

 

[Arvin Meyer [MVP]]

First, you want to copy the code and paste into a new module, that I'd name
something like basUtilities. Now Create a command button with a name like
cmdPaint, and put this code in the Click event:

Private Sub cmdPaint_Click()
Call fHandleFile("C:\Windows\System32\mspaint.exe", WIN_NORMAL)
End Sub
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.accessmvp.com
http://www.mvps.org/access

 

[Douglas J. Steele]

You sure about that, Arvin? Isn't the ShellExecute API intended to open a
file in the appropriate application based on its extension? In other words,
Call fHandleFile("C:\Folder\File.doc", WIN_NORMAL) would open File.doc in
Word.

In this case, I'd forgo the API and simply use

Private Sub cmdPaint_Click()
Shell "C:\Windows\System32\mspaint.exe", vbNormalFocus
End Sub


--
Doug Steele, Microsoft Access MVP
http://www.AccessMVP.com/djsteele
(no e-mails, please!)

 

[Arvin Meyer [MVP]]

You, I'm sure noticed that both ways work just fine. I generally include the
api in most of my applications, so I just use it.
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.accessmvp.com
http://www.mvps.org/access