TopPicLogo TopPicText

Удаление всех подлинкованных таблиц


Public Sub esDelAllConnectedTables()
'es 02.02.2011 v002
'Удаляет из текущей базы все подлинкованные таблицы
Dim tbl As TableDef
On Error GoTo DelAllConnectedTablesErr
    For Each tbl In CurrentDb.TableDefs
        If tbl.Connect <> "" Then
            CurrentDb.TableDefs.Delete tbl.Name
        End If
    Next
    CurrentDb.TableDefs.Refresh
    DoEvents
DelAllConnectedTablesBye:
    Exit Sub
DelAllConnectedTablesErr:
    MsgBox "Произошла ошибка при удалении подключенных таблиц:" & vbCrLf & _
    Err.Description, vbCritical
    Resume DelAllConnectedTablesBye
End Sub


Назад ToTop
L.E. 27.07.2015
Рейтинг@Mail.ru