Access. Удаление форм из проекта

[Putincev]

Добрый день!
Как из проекта Access с помощью кода VBA удалить все формы и модули?
Если кто знает, прошу поделиться
Заранее благодарю.

[Teslenko_EA]

Здравствуйте Putincev.
возможно Вам подойдет совет из справочника Алексея Егорова, как удалять объекты из внешнего файла БД

Код: Выделить всё

Public Sub KillObject(strDBName$, acObjectType&, strObjectName$)
'AcObjectType: acTable = 0, acQuery=1, acForm=2, acReport=3, acMacro=4, acModule = 5
    Dim adb As Object
    Set adb = CreateObject("Access.Application")
    adb.OpenCurrentDatabase (strDBName)
    adb.DoCmd.DeleteObject acObjectType, strObjectName
    adb.CloseCurrentDatabase
    Set adb = Nothing
End Sub

Евгений.

[Putincev]

Здравствуйте Putincev.
возможно Вам подойдет совет из справочника Алексея Егорова, как удалять объекты из внешнего файла БД

Код: Выделить всё

Public Sub KillObject(strDBName$, acObjectType&, strObjectName$)
'AcObjectType: acTable = 0, acQuery=1, acForm=2, acReport=3, acMacro=4, acModule = 5
    Dim adb As Object
    Set adb = CreateObject("Access.Application")
    adb.OpenCurrentDatabase (strDBName)
    adb.DoCmd.DeleteObject acObjectType, strObjectName
    adb.CloseCurrentDatabase
    Set adb = Nothing
End Sub

Евгений.

Очень даже подходит, большое спасибо!