救命啊！动态创建一个MDB表，如何设置它的字段属性可以为空？

Question

'用VB建立Access数据库结构 
Private Sub Command1_Click()On Error GoTo Err100'注释：定义表与字段
Dim DefDatabase As Database
Dim DefTable As TableDef, DefField As FieldSet DefDatabase = Workspaces(0).OpenDatabase(App.Path & "\vbeden.mdb", 0, False)
Set DefTable = DefDatabase.CreateTableDef("VB编程乐园")'注释：dbBinary = 9
'注释：dbBoolean = 1
'注释：dbByte = 2
'注释：dbChar=18
'注释：dbDate=8
'注释：dbInteger=3
'注释：dbLong=4
'注释：dbMemo=12
''注释：dbText=10'注释：建立Name字段为8个字符型
Set DefField = DefTable.CreateField("Name", dbText, 8)
DefTable.Fields.Append DefFieldSet DefField = DefTable.CreateField("Sex", dbText, 2)
DefTable.Fields.Append DefField'注释：该字段允许为空
DefField.AllowZeroLength = True
'注释：建立Age字段为3个的常整型
Set DefField = DefTable.CreateField("Age", dbInteger, 3)
'注释：字段追加
DefTable.Fields.Append DefField'注释：表追加
DefDatabase.TableDefs.Append DefTableMsgBox " VB编程乐园数据库建立完成！", vbInformationExit SubErr100:
MsgBox "对不起，不能建立表。请先再建表前建立VBEden数据库？ ", vbCriticalEnd SubPrivate Sub cmdCreate_Click()On Error GoTo Err100'注释：建立名为 VBEDEN 的数据库
CreateDatabase "VB-CODE", dbLangGeneralMsgBox "数据库建立完成！ ", vbInformationExit SubErr100:
MsgBox "不能建立数据库! " & vbCrLf & vbCrLf & Err.Description, vbInformationEnd Sub 
//转贴

Answer 1

Set Pw_Tbl = New Table
  
  ''''MDB ﾌｨｰﾙﾄﾞ名ﾘｽﾄ
  Mw_FldNames = Array("YBN_NO", "YBN_NO_1", "JSY_001", "JSY_001_1", "JSY_002", _
    "JSY_002_1", "JSY_003", "JSY_003_1", "IRK_NAM_001", "IRK_NAM_001_1", _
    "IRK_NAM_002", "IRK_NAM_002_1", _
    "SMI_MEI", "SMI_MEI_1", "ISK_TRK_COD", "ISK_TRK_COD_1")
      
  ''''ﾃｰﾌﾞﾙﾃﾞｻﾞｲﾝ
  Pw_Tbl.Name = Gw_PrgID
'出错
'  Pw_Tbl.AllowZeroLength = True  With Pw_Tbl.Columns    .Append Mw_FldNames(0), adVarWChar, 8        'SEQ
    .Append Mw_FldNames(1), adVarWChar, 8        '会区
    .Append Mw_FldNames(2), adVarWChar, 22        '請求先コード
    .Append Mw_FldNames(3), adVarWChar, 22       '請求先郵便番号
    .Append Mw_FldNames(4), adVarWChar, 14       '住所上段
    .Append Mw_FldNames(5), adVarWChar, 14       '住所中段
    .Append Mw_FldNames(6), adVarWChar, 21       '住所下段
    .Append Mw_FldNames(7), adVarWChar, 21       '医療機関名称上段
    .Append Mw_FldNames(8), adVarWChar, 14       '医療機関名称下段
    .Append Mw_FldNames(9), adVarWChar, 14       '請求先名称上段
    .Append Mw_FldNames(10), adVarWChar, 35      '請求先名称下段
    .Append Mw_FldNames(11), adVarWChar, 35      '敬称
    .Append Mw_FldNames(12), adVarWChar, 16       '発行部署コード
    .Append Mw_FldNames(13), adVarWChar, 16      '発行部署名称(課)
    .Append Mw_FldNames(14), adVarWChar, 6      '発行部署名称(係)
    .Append Mw_FldNames(15), adVarWChar, 6      '請求年月日
'    Pw_Tbl.Columns.Item(1).Type = adEmpty
    
'    Pw_Tbl.Columns.Item(1).RelatedColumn = adEmpty
  End With

Answer 2

我问的是"如何修改Access中字段属性"允许空字符串""必填字段"等"

Answer 3

是啊，我不是给你都帖了吗？你自己有没有看完啊~~？注释：该字段允许为空
DefField.AllowZeroLength = True

Answer 4

修改：
Dim db As Database
Set db = OpenDatabase("数据库全路径名")
db.TableDefs("表1").Fields("字段1").AllowZeroLength = True‘or false
db.TableDefs("表1").Fields("字段1").Required = True ‘or false
db.Close

Answer 5

我们发现了一个,虽然不是改的"允许空字符串""必填字段"项但效果是一样的.
Pw_Tbl.Columns.Item(0).Attributes = adColNullable
非常感谢各位!
结贴了!