FAQ：用代码定义字段AllowZeroLength和Required属性

(q)如何用JET SQL DDL语句定义:
1、“required”是“yes”——————————比如使用not NULL关键字
2、“required”是“no”
3、“allowed 空 string”是

2和4呢？

(一)根据你的解释，我的理解是，在设计Table的时候，我们可以看到两个属性:“必需属性”和“允许空 string”。希望你以后可以单独修改设置。你知道我理解得对吗？如果我的理解不够准确，请让我知道尽可能多的问题描述，这样我才能充分了解你的问题，更快的解决问题。

根据我的了解，我做了一些实验，发现是这样的。首先，当我们试图使用Create或Alter语句创建或修改数据库表时，我们不能修改这两个属性。因为这两个属性不是Jet SQL语句定义的。它是表本身的一个属性，这也是它不能被SQL语句修改的原因。

虽然不能用SQL语句修改，但是我们可以用VB语句修改。下面，我将使用一段代码来展示我们是否获得了某个表中数据字段的定义(您可以使用类似的方法来获得如何修改其属性)

1.在数据库中分别建立表1、表2、表3和表4。在4中定义“必需的属性”和“允许的空字符串”。
2。创建按钮事件onclick
option compare database
private子命令0 _ click()
dim DBS as database
dim TDF loop as tabledef
set DBS = current db()

With dbs
'显示三个不同TableDef对象的Fields
'集合中需要哪些字段。
RequiredOutput。TableDefs("表1")
所需输出. tabledefs("表2")
所需输出. tabledefs("表3")
所需输出. tabledefs("表4")
..

末端接头

sub required output(TDF temp As TableDef)

Dim fldLoop As字段

枚举指定TableDef
'的字段集合并显示所需的属性。
调试。打印“字段在”& tdfTemp。name & ":"
用于tdfTemp中的每个fldLoop。字段
调试。打印，fldLoop。Name & "，必选= " & _
fldLoop。必需的，" AllowZeroLength = " & fldLoop。AllowZeroLength
调试。打印""

fldLoop。Required = True
fldLoop。AllowZeroLength = True
下一个fldLoop

End
3。因为我们通过DAO修改它的属性，所以请在“引用”中包含DAO

有关的详细定义，可以参考下面Access中的相关主题“AllowZeroLength属性”和“必需属性”。

4.我们使用带有表“Table 1”和“Table 1”中字段“A”的示例MDB

private Sub command 1 _ Click()
Dim DBS As Database
Dim tdfloop As TableDef
Dim fldName As Field

set DBS = current db()
set fld name = DBS . table defs(" table 1 ")。字段(“a”)

使用fldname
。allowzerolength = false ' Allow空字符串为no
。“必填= False”必填字段不是
以结尾

末端接头