简述： 如何定义字段默认值  问题：  如何设定表的某字段默认值？ 方法一： 用 JET SQL 来完成 ALTER TABLE TABLENAME ALTER COLUMN FIELDNAME TEXT(40) DEFAULT 默认值  请注意，上述语句要用 ADODB.CONNECTION.EXECUTE 等方法来执行，直接用上述代码建立一个查询无法保存或者运行，会得到 ACCESS 的错误提示。 方法二： ADOX 可以。 Function ChengTableFieldPro_ADO()     Dim MyTableName As String     Dim MyFieldName As String     Dim GetFieldDesc_ADO     Dim GetFieldDescription     MyTableName = "ke_hu"     MyFieldName = "dw_name"     Dim MyDB As New ADOX.Catalog     Dim MyTable As ADOX.Table     Dim MyField As ADOX.Column     On Error GoTo Err_GetFieldDescription     MyDB.ActiveConnection = CurrentProject.Connection     Set MyTable = MyDB.Tables(MyTableName)     GetFieldDesc_ADO = MyTable.Columns(MyFieldName).Properties("Description")            Dim pro As ADODB.Property     For Each pro In MyTable.Columns(MyFieldName).Properties         Debug.Print pro.Name & " : " & pro.Value & " ---- type : " & pro.Type     Next     With MyTable.Columns(MyFieldName)         '.Properties("nullable") = True    '必填         '必填无法用上述代码设置，出错提示为：         '多步 OLE DB 操作产生错误。如果可能，请检查每个 OLE DB 状态值。没有工作被完成。         '目前可以用以下语句设置：         'CurrentDb.TableDefs("ke_hu").Fields("DW_NAME").Properties("Required") = False         .Properties("Jet OLEDB:Allow Zero Length") = True   '允许空         .Properties("default") = "默默默默认认认认"      '默认值     End With     Set MyDB = Nothing Bye_GetFieldDescription:     Exit Function Err_GetFieldDescription:     Beep     Debug.Print Err.Description     MsgBox Err.Description, vbExclamation     GetFieldDescription = Null     Resume Bye_GetFieldDescription End Function   关于“多步错误”的一些参考： Sub ChangeUnicode()    Dim tdf As TableDef    Dim fld As Field    Dim db As Database    Dim pro As Property    Set db = CurrentDb    For Each tdf In db.TableDefs        For Each fld In tdf.Fields            If fld.Type = dbText Then            If DBEngine.Errors(0).Number = 3270 Then                Set pro = fld.CreateProperty("UnicodeCompression", 1, 0)                fld.Properties.Append p            End If                fld.Properties("UnicodeCompression") = True            End If        Next fld    Next tdf End Sub