Hi all,
I've come across quite a strange problem on one of the locations I have installed my software.
I have four client machines looking at an Access 2000 DB on a server, each running my VB application.
When the user tries to run one of the Access reports from his machine, it seems to damage the DB. He closes down the app on all machines, goes to the server and tries to open the database but is told that he must repair the DB in order to open it.
The report runs fine from any other machine I've used it on.
Here is the code I am using...
Set objAccess = CreateObject("Access.Application"
With objAccess
.OpenCurrentDatabase strDBDir, False
.DoCmd.OpenReport "rptAbsentPupilsByDate", acViewDesign
.Reports(0).RecordSource = sSQL
.DoCmd.OpenReport "rptAbsentPupilsByDate", acViewPreview
.Visible = True
.DoCmd.Maximize
.CommandBars("Menu Bar"
.Enabled = False
.CommandBars("Print Preview"
.Enabled = True
.CommandBars("Print Preview"
.Controls("View"
.Visible = False
.CommandBars("Print Preview"
.Controls("Database Window"
.Visible = False
.CommandBars("Print Preview"
.Controls("Office Links"
.Visible = False
.CommandBars("Print Preview"
.Controls("New Object"
.Visible = False
.CommandBars("Print Preview"
.Controls("Microsoft Access Help"
.Visible = False
End With
Has anyone got any idea what could be causing this?
Thanks for any help,
Robin
I've come across quite a strange problem on one of the locations I have installed my software.
I have four client machines looking at an Access 2000 DB on a server, each running my VB application.
When the user tries to run one of the Access reports from his machine, it seems to damage the DB. He closes down the app on all machines, goes to the server and tries to open the database but is told that he must repair the DB in order to open it.
The report runs fine from any other machine I've used it on.
Here is the code I am using...
Set objAccess = CreateObject("Access.Application"
With objAccess
.OpenCurrentDatabase strDBDir, False
.DoCmd.OpenReport "rptAbsentPupilsByDate", acViewDesign
.Reports(0).RecordSource = sSQL
.DoCmd.OpenReport "rptAbsentPupilsByDate", acViewPreview
.Visible = True
.DoCmd.Maximize
.CommandBars("Menu Bar"
.CommandBars("Print Preview"
.CommandBars("Print Preview"
.CommandBars("Print Preview"
.CommandBars("Print Preview"
.CommandBars("Print Preview"
.CommandBars("Print Preview"
End With
Has anyone got any idea what could be causing this?
Thanks for any help,
Robin