after installing office 2003

[elie chucrallah]

Dear Sirs,

I am using access 97 database and connecting to it via VB6 using
Microsoft DAO 3.6. I had office 2002 after opening a report using the
follwing method then after pressing escape on the report the access
database used to close by itself.

now that i installed office 2003 the database is still open after
pressing escape.

Dim AccessApp As Access.Application
Set AccessApp = New Access.Application
With AccessApp
.OpenCurrentDatabase gsDatabase
.Visible = True
.RunCommand acCmdAppMaximize
.DoCmd.OpenReport "Activities", acViewPreview, , ""
.RunCommand acCmdAppMaximize
End With

i don't mind writing in the access datatabse, i already wrote

Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub

CloseCurrentDatabase closed the database but i need to close access too

i wonder if there is an option in access i could do to keep my version
unchanged

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[MGFoster]

elie chucrallah wrote:

Dear Sirs,

I am using access 97 database and connecting to it via VB6 using
Microsoft DAO 3.6. I had office 2002 after opening a report using the
follwing method then after pressing escape on the report the access
database used to close by itself.

now that i installed office 2003 the database is still open after
pressing escape.

Dim AccessApp As Access.Application
Set AccessApp = New Access.Application
With AccessApp
.OpenCurrentDatabase gsDatabase
.Visible = True
.RunCommand acCmdAppMaximize
.DoCmd.OpenReport "Activities", acViewPreview, , ""
.RunCommand acCmdAppMaximize
End With

i don't mind writing in the access datatabse, i already wrote

Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub

CloseCurrentDatabase closed the database but i need to close access too

i wonder if there is an option in access i could do to keep my version
unchanged

Use AccessApp.DoCmd.Quit to close Access.

--
MGFoster:::mgf00 <at> earthlink <decimal-point> net
Oakland, CA (USA)

[elie chucrallah]

thank you sir it worked

Regards

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!