如何遍历MS Access数据库并锁定所有表

如何解决如何遍历MS Access数据库并锁定所有表

我使用以下代码锁定数据库中的某些数据表：

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”参数不是可选的。

您知道我该怎么做吗？

解决方法

我想您应该记住这一点：

out <- aggregate(OrderTotals ~ Customer_ID,CustomerData,sum)
head(out[order(-out$OrderTotals),],10)

请注意，这不会“锁定”表，仅将它们从常规视图中隐藏。

要删除隐藏的属性，请执行以下操作：

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