MS Excel

Téma: Chyba 462

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ěď >

AL(17.7.2014 21:11)citovat#020564

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: png

20564_vystrizek.png (13kB, staženo 11x)

kp57(17.7.2014 21:36)citovat#020566

Test: pokusů(x) => chyb(0). Díky.

Téma: Chyba 462

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje