runfineline
New member
- Local time
- Yesterday, 19:56
- Joined
- Oct 10, 2007
- Messages
- 4
I have a link to tables in a backend database.
But the backend database itself needs refreshing from Sage Line 50 via an ODBC link so I need to actually run refresh routines in the backend database.
I use this code
Sub Refresh Tables
Dim objAccess As Access.Application
Set objAccess = GetObject("\\Marbel-fs\Marbel\060 Databases\010SageTables\SageTables.accdb", "Access.Application")
objAccess.Visible = False
objAccess.Run "CreateSageTables", "tblSALES_LEDGER", "tblSTOCK", "tblInvoice", "tblInvoice_Item", "tblPOP_ITEM", "tblPURCHASE_ORDER", _
"tblSALES_ORDER", "tblSOP_ITEM", "tblPURCHASE_LEDGER"
Set objAccess = Nothing
...
Even with "objAccess.Visible = False" the backend database still appears.
Any ideas on how to keep it hidden?
Thanks,
Vince
But the backend database itself needs refreshing from Sage Line 50 via an ODBC link so I need to actually run refresh routines in the backend database.
I use this code
Sub Refresh Tables
Dim objAccess As Access.Application
Set objAccess = GetObject("\\Marbel-fs\Marbel\060 Databases\010SageTables\SageTables.accdb", "Access.Application")
objAccess.Visible = False
objAccess.Run "CreateSageTables", "tblSALES_LEDGER", "tblSTOCK", "tblInvoice", "tblInvoice_Item", "tblPOP_ITEM", "tblPURCHASE_ORDER", _
"tblSALES_ORDER", "tblSOP_ITEM", "tblPURCHASE_LEDGER"
Set objAccess = Nothing
...
Even with "objAccess.Visible = False" the backend database still appears.
Any ideas on how to keep it hidden?
Thanks,
Vince