Access Report

  • Thread starter Thread starter ChrisNet
  • Start date Start date
it's a example:

Dim MSAccess As Access.Application

Private sub Command1_Click()
¡¡¡¡Set MSAccess=NEW Access.Application
¡¡¡¡MSAccess.OpenCurrentDatabase(App.Path & "\data.mdb")
¡¡¡¡
¡¡¡¡MSAccess.DoCmd.OpenReport "rptMyData",acViewNormal
¡¡¡¡MSAccess.CloseCurrentDatabase

¡¡¡¡Set MSAccess=Nothing
End Sub
 
Back
Top