Imam tabele koja se generise nakon importa excel file u Acces. Istu zelim obrisati nakon importa "Sheet$_ImportError".
Skinuo sam par rijesenja sa weba ali ni jedno mi ne radi. Nakon kopiranja coda u Modul/Save/Run dobijem poruku o greski "Compile error: invalid outside procedure".
1. Code
Dim tbl As AccessObject
>
For Each tbl In CurrentData.AllTables
If tbl.Name Like "*_ImportError*" Then
DoCmd.DeleteObject acTable, tbl.Name
End If
Next tbl
2. Code
Dim intLoop As Integer
For intLoop = (CurrentData.AllTables.Count - 1) To 0 Step -1
If CurrentData.AllTables(intLoop).Name Like "*_ImportError*" Then
DoCmd.DeleteObject acTable, CurrentData.AllTables(intLoop).Name
End If
Next intLoop
Ako koristim opciju iz Macros "DeleteObjects" tabela se obrise ali ako je nema onda skripta stane i izbaci gresku.
Na webu sam naso par rjesenja ali svako od njih pravi isti problem.
Ili ja gresim prilikom kreiranja (vjerovatno) ili ima greska u samom kodu koju ja ne mogu otkriti.
Access 2003