salve a tutti
essendo che ho un progetto che usa i report di access, dovrei renderli piu dinamici, infatti sto pensando di modificare le query dal mio programma vb.net
attualmente questa routine riesce a modificare la query ma la schermata di access rimane visibile a video e solo con task manager si riesce a chiudere.
sapete come posso rilasciare le risorse?
grazie
codice:
Public Sub StampaAccess(NomeFileDisco As String, strsql As String, NomeReportAcc As String, NomeQuery As String)
Dim StrPercorsoDb As String
StrPercorsoDb = PathDB ' Application.StartupPath & "\Magazzino.accdb" ' reg.GetValue("dbq")
Dim oAccess As Access.Application
oAccess = New Access.Application
Dim sDBPath As String 'path to DB
sDBPath = StrPercorsoDb
oAccess.OpenCurrentDatabase(filepath:=sDBPath, Exclusive:=False, bstrPassword:=PassDb)
oAccess.DoCmd.Minimize()
oAccess.Visible = False
Try
oAccess.DoCmd.DeleteObject(Access.AcObjectType.acQuery, NomeQuery)
oAccess.CurrentDb.CreateQueryDef(NomeQuery, strsql)
Catch ex As Exception
MsgBox(ex.ToString)
Finally
oAccess.Quit()
oAccess = Nothing
End Try
end sub