< návrat zpět

MS Excel


Téma: VBA Error1004-Excel teď aktualizuje některá data rss

Zaslal/a 21.3.2016 10:49

Zdravím,
mám databázi v Accessu a přes Excel ji zobrazuji, upravuji, atd.
Na jednom listu jsem na ní připojený (OLEDBConnection) a zobrazuji ji normálně jako tabulku.

1. část programu je o úpravě určitých dat ve stávající databázi
2. kopíruji stávající databázi jako zrcadlovou
3. měním připojení na zrcadlovou databázi
4. aktualizuji celý sešit a konec

Chyba mě vyskakuje u bodu č.3.
- "Run-time Error 1004 - Microsoft Excel teď aktualizuje některá data. Zkuste to prosím znova později."

Když hnedka kliknu na "Debug" a hned spustím makro dál, tak projde bez problémů.
Zkoušel jsem různé varianty aby sešit dodělal aktualizaci dat (např. DoEvents / Application.Wait / On Error GoTo errWait(MsgBox) -> MsgBox -> spustění kódu od začátku / Zrušení aktualizací u připojení / atd...), ale buď to nefunguje už vůbec a nebo to dělá to stejné.

Pro ukázku můj kód:

2.část

ZrcadlovaDatabaze = "Z:\Technologie\Databáze\Databaze2.accdb"

FileCopy "Z:\Technologie\Databáze\Databaze.accdb", ZrcadlovaDatabaze


3.část

DoEvents

With ActiveWorkbook.Connections("Databaze").OLEDBConnection

U následujícího řádku mi nahlásí tu chybu.

.BackgroundQuery = True
.CommandText = Array("PROJEKTY_2015")
.CommandType = xlCmdTable
.Connection = Array( _
"OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=Z:\Technologie\Databáze\Databaze2.accdb;Mode=Share Deny Wri" _
, _
"te;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engin" _
, _
"e Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:Ne" _
, _
"w Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Co" _
, _
"mpact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Jet OLEDB:By" _
, _
"pass UserInfo Validation=False;Jet OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Validation=False" _
)
.RefreshOnFileOpen = True
.SavePassword = False
.SourceConnectionFile = ""
.SourceDataFile = "Z:\Technologie\Databáze\Databaze2.accdb"
.ServerCredentialsMethod = xlCredentialsMethodIntegrated
.AlwaysUseConnectionFile = False
End With


Nevíte prosím co s tím, už si nevím rady. Děkuji

Zaslat odpověď >

#030858
avatar
vyřešeno, stačilo On Error Resume Nextcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09