< návrat zpět

MS Excel

Téma: Chyba 462 rss

Zaslal/a kp57 17.7.2014 19:00

Ahoj lidi! Nevěděl by někdo, proč tato proc někdy končí chybou? Jak tomu předejít?Sub Copy_Ace_Table()
Dim objAcc As Object
Dim dbAcc As String
Dim nTab As Long
dbAcc = ThisWorkbook.Path & "\" & "NewDB.accdb"

'Object ACCESS
Set objAcc = CreateObject("Access.Application")
'Otevrit databázi
objAcc.OpenCurrentDatabase (dbAcc)

'Kopie TAB
For nTab = 2 To 11
objAcc.DoCmd.CopyObject , nTab, acTable, 1
Next nTab

'Application.Wait (Now + TimeValue("0:00:05"))
CurrentDb.Close 'tady Chyba 462 pocitac je nedostupny

objAcc.Quit
Set objAcc = Nothing
MsgBox "HOTOVO", , "Copy_Ace_Table"
End Sub

Zaslat odpověď >
icon AL(17.7.2014 21:11)#020564
avatar
Na toto nie som najväčší odborník na svete, takže posielam síce pmn funkčný, ale asi nie optimálny pokus:Sub Copy_Ace_Table()
Dim dbAcc As String
Dim nTab As Long
dbAcc = ThisWorkbook.Path & "\" & "NewDB.accdb"
Access.OpenCurrentDatabase dbAcc
'Kopie TAB
For nTab = 2 To 11
DoCmd.CopyObject , nTab, acTable, 1
Next nTab
Access.CloseCurrentDatabase
MsgBox "HOTOVO", , "Copy_Ace_Table"
End Sub
Použil som early binding s referenciami viď obrázok
Příloha: png20564_vystrizek.png (13kB, staženo 11x)
20564_vystrizek.png
citovat
kp57(17.7.2014 21:36)#020566
avatar
Test: pokusů(x) => chyb(0). Díky.citovat

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje