Блог

Я использую следующий код для блокировки некоторых таблиц данных в моей базе данных:

 Application.SetHiddenAttribute acTable, "Employees", True
  

И я использую этот код для перебора формы, чтобы очистить все текстовые поля в пользовательской форме:

 Dim ctl_text As Control
For Each ctl_text In Me.Controls
    If ctl_text.ControlType = acTextBox Then ctl_text = Null
Next
Set ctl_text = Nothing
  

Я надеялся объединить приведенную выше логику, чтобы иметь возможность перебирать базу данных и блокировать все таблицы.

Я пытался выполнить следующее:

 Dim tdf As Dao.TableDef
Dim db As Dao.Database
Set db = CurrentDb

For Each tdf In db.TableDefs
    If (VBA.Left(tdf.Name, 6) = "prefix") Then
Set Application.SetHiddenAttribute = True
   End If
Next tdf
  

Однако я получаю сообщение об ошибке, сообщающее мне, что аргумент «SetHiddenAttribute» не является необязательным.

Есть идеи, как я могу это сделать?

Я думаю, вы это имеете в виду:

 Dim tdf As DAO.TableDef
Dim db As DAO.Database

Set db = CurrentDb

For Each tdf In db.TableDefs
    If VBA.Left(tdf.Name, 6) = "prefix" Then
        tdf.Attributes = tdf.Attributes Or dbHiddenObject
    End If
Next
  

Обратите внимание, что это не «блокирует» таблицы, а только скрывает их от обычных представлений.

Чтобы удалить скрытый атрибут:

         tdf.Attributes = tdf.Attributes And Not dbHiddenObject