Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Create a button on an Access form to open a specific form in Excel

Status
Not open for further replies.

csegal

Technical User
Jun 12, 2001
38
US
I have a main access form that has buttons to various forms in (access).This main form is called "Starting Point"
I also have an excell form that I would like to make a button link from my main access form.
When I create a button using the wizard, I can get as far as linking to excell, but not linking directly to my actual form that I want to open.
There is a short cut on my desktop to this excell form.
When I try to create a button using the wizard and run application using this short cut path to the file an error stating that the file is not found.

How do i create a button on an access form to open a specific form in excel?
I have used the tool wizzard to create the button but i can only open excel in a new workbook.
My specific form is:

"C:\My Documents\JW3 NON-ROUTINE FORM.XLS"

This is how it looks when I use the wizzard to create the button:
The wizzard for the button was:

Private Sub Command80_Click()
On Error GoTo Err_Command80_Click

Dim oApp As Object

Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True

Exit_Command80_Click:
Exit Sub

Err_Command80_Click:
MsgBox Err.Description
Resume Exit_Command80_Click

End Sub

Tip from likelylad was:

Call Shell("C:\Program Files\Microsoft Office\Office\excel.exe c:\temp.xls", 1)

This sort of worked but i am not sure wher to place this:

Call Shell("C:\Program Files\Microsoft Office\Office\excel.exe c:\temp.xls", 1)
When i placed it in it called up excel twice and only opens excell to a blank data sheet and a blank screen.
My link to my excel form is:
C:\My Documents\JW3 NON-ROUTINE FORM.XLS
(with a short cut on my desktop)
and i am not sure where to place all of this.

Tip 2 from dz:
Dim retVal as Variant

retVal = Shell("Excel " & Chr(34) & "C:\My Documents\JW3 NON-ROUTINE FORM.XLS" & Chr(34))

dz
dzaccess@yahoo.com
This really worked...
Except when the button is clicked,
excel / form opens only to the task bar at the lower screen and I have to click "it" to bring up my form.
Also when excel is clicked on the lower task bar the form open up in minimized size and i have to maximize it before use.

Sorry people but I need a litttttle more help.
csegal
csegal@arrowair.com
Thanks...
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top