Open and display an Access 2000 Database
Posted on 2003-12-10
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\AnnuityGeneralServices\DailyVarianceSystem\Variance.mdb")
If x Is Nothing Then
'if you get here, the database is not available or Access is not installed!
x.Visible = True
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?