[Access]如何将"允许空字符串属性"设置为"是"到所有表中

通过设置允许空字符串属性，您可以控制是否为零长度字符串 ("") 将文本和备注字段的有效条目。允许空字符串属性的默认设置为否，，但您可以设置允许空字符串属性为是为每个数据库中的表按照下面的步骤。

注意：在此示例中的步骤将修改示例数据库 Northwind.mdb （或 NWIND。MDB 在 2.0 版或更早版本）。您可能希望备份 Northwind.mdb （或 NWIND。MDB) 文件和数据库的副本上执行这些步骤。

注意：在下面的代码示例中，一行末尾处的下划线 (_) 用作连行符。从一行末尾删除下划线，当重新创建此代码中访问基本。

创建一个模块，如果还没有的话，在声明部分中，键入以下行：

Option Explicit

键入以下过程：

Function SetAllowZeroLength ()

Dim I As Integer, J As Integer

Dim db As Database, td As TableDef, fld As Field

Set db = CurrentDB()

'The following line prevents the code from stopping if you do not

'have permissions to modify particular tables, such as system

'tables.

On Error Resume Next

For I = 0 To db.TableDefs.Count - 1

Set td = db(I)

For J = 0 To td.Fields.Count - 1

Set fld = td(J)

If (fld.Type = DB_TEXT Or fld.Type = DB_MEMO) And Not _

fld.AllowZeroLength Then

fld.AllowZeroLength = True

End If

Next J

Next I

db.Close

End Function

若要测试此函数，在调试窗口中（或在 2.0 版中立即窗口），键入下面一行，然后按 enter 键：

?SetAllowZeroLength()

请注意几秒钟后，允许空字符串属性将更改为是为每个数据库中的表中的所有文本和备注字段。

注意：更改 If...

然后条件和赋值，紧跟在它后面上面的代码中，可以循环还修改以下字段属性的表：名称、有效性规则、有效性，要求和默认值。