все-таки отказ от ON Error Resume Next резко усложняет код.
(кстати, не важно, записаный с использованием DAO - объектов или ADO.)
В частности, при наличии связей между таблицами, удалять придется в последовательности "значала все дочерние, потом все ведущий".
"на адо" код, удаляющий пользовательские таблицы,
мог бы быть (приблизительно) таким.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
Dim tRec As ADODB.Recordset
Dim cNN As ADODB.Connection
Dim strName As String
Dim bDelete As Boolean
Dim lngDeleteCounter As Long
Dim jro As jro.JetEngine
Set jro = New JetEngine
Set cNN = CurrentProject.Connection
Set tRec = cNN.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table"))
On Error Resume Next
Do
lngDeleteCounter = 0 &
Do While Not tRec.EOF
strName = tRec.Collect( 2 )
bDelete = (strName Like "*Def*")
bDelete = bDelete Or (strName Like "*Que*")
bDelete = bDelete Or (strName Like "*Object*")
bDelete = Not bDelete
If bDelete Then
cNN.Execute ("DROP Table " & strName)
lngDeleteCounter = lngDeleteCounter + 1 &
End If
tRec.MoveNext
Loop
If lngDeleteCounter = 0 Then Exit Do
jro.RefreshCache cNN
Set tRec = cNN.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table"))
Loop While Not tRec.EOF
(с выражением лица)
