Sub 设置是否字段默认值()
Dim tbl As Object
Dim fld As Object
For Each tbl In CurrentDb.TableDefs
If tbl.Name Like "MSys*" = False And tbl.Connect = "" Then
For Each fld In tbl.Fields
If fld.Type = dbBoolean And Len(fld.DefaultValue) = 0 Then fld.DefaultValue = 0
Next
End If
Next
End Sub