Когда-то надо было удалять таблицы по маске- использовала перебор всех имеющихся таблиц. МОжно посмотреть использовавшуюся функцию

Function alltables1(vnam As String, Needdel()) As Byte
Dim dbs As Database, tabl As TableDef, j As Integer

Set dbs = CurrentDb
j = 0
For Each tabl In dbs.TableDefs
' MyCheck = tabl.Name Like vnam + "*" ' Возвращает True.
If tabl.Name Like vnam + "*" Then 'Рисуем маску
j = j + 1
ReDim Preserve Needdel(UBound(Needdel) + 1)
Needdel(j) = tabl.Name
End If
Next tabl
alltables1 = j
End Function

успехов:)