OK I run a set of queries which manipulate data and make a table. This is all done in extrenal database. What I want to do is press a button, have access open the propper database...run the queries in it, and open the table so that I can see the table in its maximized position. I believe that access is doing everything except showing the opened database and table....how do I get it to show the maximized table?
here's my code so far:
Private Sub Command73_Click()
Dim db As Access.Application
Set db = CreateObject("access.application")
db.OpenCurrentDatabase ("J:\ocseuser\Public\Special Collections\MI Report Tool\FPLS NDNH MONTHLY STATISTICS.mdb")
db.DoCmd.SetWarnings False
db.DoCmd.OpenQuery "00745 Make 0074 FEDERAL OFFSET COLLECTIONS FINAL", acViewNormal, acEdit
db.DoCmd.OpenQuery "00745 Make 0074 FEDERAL OFFSET COUNTS FINAL", acViewNormal, acEdit
db.DoCmd.OpenQuery "00755 Make 0075 TANF-NONTANF ARREARAGE AND CASELOAD FINAL", acViewNormal, acEdit
db.DoCmd.OpenQuery "0079 MAKE FPLS NDNH MONTHLY STATISTICS", acViewNormal, acEdit
db.DoCmd.OpenTable "FPLS NDNH MONTHLY STATISTICS", acViewNormal, acEdit
db.DoCmd.Maximize
db.DoCmd.SetWarnings True
End Sub
Thanks
Gary
here's my code so far:
Private Sub Command73_Click()
Dim db As Access.Application
Set db = CreateObject("access.application")
db.OpenCurrentDatabase ("J:\ocseuser\Public\Special Collections\MI Report Tool\FPLS NDNH MONTHLY STATISTICS.mdb")
db.DoCmd.SetWarnings False
db.DoCmd.OpenQuery "00745 Make 0074 FEDERAL OFFSET COLLECTIONS FINAL", acViewNormal, acEdit
db.DoCmd.OpenQuery "00745 Make 0074 FEDERAL OFFSET COUNTS FINAL", acViewNormal, acEdit
db.DoCmd.OpenQuery "00755 Make 0075 TANF-NONTANF ARREARAGE AND CASELOAD FINAL", acViewNormal, acEdit
db.DoCmd.OpenQuery "0079 MAKE FPLS NDNH MONTHLY STATISTICS", acViewNormal, acEdit
db.DoCmd.OpenTable "FPLS NDNH MONTHLY STATISTICS", acViewNormal, acEdit
db.DoCmd.Maximize
db.DoCmd.SetWarnings True
End Sub
Thanks
Gary