ник: Lukas
Для таблицы инвертирует атрибут:
Public Function funReversAttributHiddenObject(tableName As String)
Select Case CurrentDb(tableName).Attributes
Case Is = 1
CurrentDb(tableName).Attributes = 0
Case Is = 0
CurrentDb(tableName).Attributes = 1 'dbHiddenObject
End Select
End Function
|