• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)#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: 20564_vystrizek.png (13kB, staženo 11x)

citovat

kp57(17.7.2014 21:36)#020566

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse