通過設置允許空字符串屬性，您可以控制是否為零長度字符串 ("") 將文本和備注字段的有效條目。允許空字符串屬性的默認設置為否，，但您可以設置允許空字符串屬性為是為每個數據庫中的表按照下面的步驟。
注意： 在此示例中的步驟將修改示例數據庫 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...
然后條件和賦值，緊跟在它后面上面的代碼中，可以循環還修改以下字段屬性的表： 名稱、 有效性規則、 有效性，要求和默認值。
