I copied a table, just using copy paste, and renamed the old table
tblPerformance_old
and renamed the new one I copied just tblPerformance.
I did this as I am testing some new data used for calculations.
Anyway, when i run the vba code in excel which calls the table, I get an error box
"Please Enter MS JET OLE DB Initialization Information"
it gives me the path,
username
password
provider string
open Mode: DB_MOD_READWRITE
if I push ok it works, but why is is popping up? I can't give this to others if it popping up errors.
here is the code in excel
With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Documents and Settings\ahenderson\My Documents\june2.mdb;Mode=Share Deny Write;Ext" _
, _
"ended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB
atabase Password="""";Jet OLEDB:Engine Type" _
, _
"=5;Jet OLEDB
atabase Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Data" _
, _
"base Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB
on't Copy Locale on Compact=" _
, "False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"), _
Destination:=Range("B36"))
tblPerformance_old
and renamed the new one I copied just tblPerformance.
I did this as I am testing some new data used for calculations.
Anyway, when i run the vba code in excel which calls the table, I get an error box
"Please Enter MS JET OLE DB Initialization Information"
it gives me the path,
username
password
provider string
open Mode: DB_MOD_READWRITE
if I push ok it works, but why is is popping up? I can't give this to others if it popping up errors.
here is the code in excel
With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Documents and Settings\ahenderson\My Documents\june2.mdb;Mode=Share Deny Write;Ext" _
, _
"ended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB
, _
"=5;Jet OLEDB
, _
"base Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB
, "False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"), _
Destination:=Range("B36"))