迷你贵宾犬FAQ：用代码定义字段AllowZeroLength和
监控安装视频教程
Required属性
1、“必填”为“是”——————比方用 not null关键字
2、“必填”为“否”
3、“允许空字符串”为“是”------- 比方用 NULL 关键字
4、“允许空字符串”为“否”
2和4呢？
(A)依据您的解释，我的理解是这样的在设计Table的时候，我们可以看到“必填属性”和“允许空字符串”两个属性。您盼望在今后的使用过程中能够分别地对其进展修改和设置。不知道我理解的正确吗？假如我理解得不够精确，请让我知道尽可能多对问题的描述，以便我能全面理解您的问题并且能够更快解决问题。
依据我的理解，我做了一下试验，发觉状况是这样的。首先，当我们采纳Create或者Alter语句试图进展
创立或者修改数据库表的时候无法对这两个属性就行修改。由于这两个属性并不是通过Jet SQL语句来定义的。而是表本身的一个属性，这也就是为什么无法通过SQL语句修改的缘由。
汉字有哪些特点虽然通过SQL语句无法对其进展修改，但是我们可以通过VB语句来进展修改。下面我将通过一段代码来显示我们假如得到某一个表中数据字
段的定义状况（您可以用类似的方法来得到如何对其属性的修改）体物
1. 在数据库中分别建立表1，表2，表3，表4。定义“必填属性”和“允许空字符串”的4中定义。
2. 建立一个Button大事OnClick
Option Compare Databa
Private Sub Command0_Click()
反思的作文Dim dbs As Databa
Dim tdfloop As TableDef
Set dbs = CurrentDb()
回家过年
With dbs
” Show which fields are required in the Fields
” collections of three different TableDef objects. RequiredOutput .TableDefs(“表1“)
RequiredOutput .TableDefs(“表2“)
RequiredOutput .TableDefs(“表3“)
RequiredOutput .TableDefs(“表4“)
.Clo
End With
End Sub
Sub RequiredOutput(tdfTemp As TableDef)
Dim fldLoop As Field
” Enumerate Fields collection of the specified TableDef ” and show the Required property.
Debug.Print “Fields in “
Debug.Print ““
fldLoop.Required = True
fldLoop.AllowZeroLength = True
Next fldLoop
End Sub
3. 由于我们是通过DAO方式对其属性就行修改，所以在“引用”中请包含DAO
具体的定义您可以参考下面的Access中相关主题“AllowZeroLength 属性”和“Required属性”
农家游4.我们用例如MDB中有一个表“表1“,“表1“中有一个字段“a“ Private Sub Command1_Click()
Dim dbs As Databa
Dim tdfloop As TableDef
Dim fldName As Field
Set dbs = CurrentDb()
Set fldName = dbs.TableDefs(“表1“).Fields(“a“)
With fldName
.AllowZeroLength = Fal”允许空字符串为否.Required = Fal”必填字段为否
吃对你的家常菜End With
End Sub
