dick3677
asked on
Open and display an Access 2000 Database
The Following is my code for this event:
Private Sub cmdOpenDatabase_Click()
Dim x As Object
On Error Resume Next
Set x = GetObject("G:\Common\Annui tyGeneralS ervices\Da ilyVarianc eSystem\Va riance.mdb ")
If x Is Nothing Then
'if you get here, the database is not available or Access is not installed!
Else
x.Visible = True
End If
End Sub
When it executes you can see the Splash screen for the database flash for just a fraction of a second and then it closes the Database. Can you help?
Private Sub cmdOpenDatabase_Click()
Dim x As Object
On Error Resume Next
Set x = GetObject("G:\Common\Annui
If x Is Nothing Then
'if you get here, the database is not available or Access is not installed!
Else
x.Visible = True
End If
End Sub
When it executes you can see the Splash screen for the database flash for just a fraction of a second and then it closes the Database. Can you help?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
I will leave a recommendation in the Cleanup topic area that this question is:
No response from dick3677 from 12/10/2003 comment
Award points to shivsa(50%) and vinnyd79(50%) is recommend.
Please leave any comments here within the next seven days.
PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER!
planocz
EE Cleanup Volunteer