Field.DefaultValue 属性 (DAO)

适用于:Access 2013、Office 2013

设置或返回 Field 对象的默认值。对于尚未追加到 Fields 集合的 Field 对象,该属性是可读写的(仅适用于 Microsoft Access 工作区)。

语法

表达式 .DefaultValue

表达式 一个表示 Field 对象的变量。

说明

设置值或返回值是一个最多包含 255 个字符的 String 数据类型。它可以是文本,也可以是表达式。如果该属性设置是表达式,则不能包含用户定义的函数、Microsoft Access 数据库引擎 SQL 聚合函数,或指向查询、窗体或其他 Field 对象的引用。

备注

还可以将 TableDef 对象上 Field 对象的 DefaultValue 属性设置为名为"GenUniqueID ( ) "。 这样,只要添加或创建了新记录,就会将一个随机数分配给该字段,因而可以给每条记录指定一个唯一标识符。 该字段的 Type 属性必须为 Long 类型。

DefaultValue 属性的可用性取决于包含 Fields 集合的对象,如下表所示。

如果 Fields 集合属于

则 DefaultValue

Index 对象

不受支持

QueryDef 对象

只读

Recordset 对象

只读

Relation 对象

不受支持

TableDef 对象

读/写

创建一个新记录后,会自动将 DefaultValue 属性设置输入为字段值。可通过设置该字段的 Value 属性更改字段值。

DefaultValue 属性不适用于 AutoNumberLong Binary 字段。

示例

以下示例使用 DefaultValue 属性,在系统提示输入时,向用户发出有关字段正常值的警报。此外,该示例还演示了在缺少其他任何输入的情况下,如何使用 DefaultValue 填充新记录。若要使该过程运行,需要使用 DefaultPrompt 函数。

    Sub DefaultValueX() 
     
     Dim dbsNorthwind As Database 
     Dim tdfEmployees As TableDef 
     Dim strOldDefault As String 
     Dim rstEmployees As Recordset 
     Dim strMessage As String 
     Dim strCode As String 
     
     Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
     Set tdfEmployees = dbsNorthwind.TableDefs!Employees 
     
     ' Store original DefaultValue information and set the 
     ' property to a new value. 
     strOldDefault = _ 
     tdfEmployees.Fields!PostalCode.DefaultValue 
     tdfEmployees.Fields!PostalCode.DefaultValue = "98052" 
     
     Set rstEmployees = _ 
     dbsNorthwind.OpenRecordset("Employees", _ 
     dbOpenDynaset) 
     
     With rstEmployees 
     ' Add a new record to the Recordset. 
     .AddNew 
     !FirstName = "Bruce" 
     !LastName = "Oberg" 
     
     ' Get user input. If user enters something, the field 
     ' will be filled with that data; otherwise, it will be 
     ' filled with the DefaultValue information. 
     strMessage = "Enter postal code for " & vbCr & _ 
     !FirstName & " " & !LastName & ":" 
     strCode = DefaultPrompt(strMessage, !PostalCode) 
     If strCode <> "" Then !PostalCode = strCode 
     .Update 
     
     ' Go to new record and print information. 
     .Bookmark = .LastModified 
     Debug.Print " FirstName = " & !FirstName 
     Debug.Print " LastName = " & !LastName 
     Debug.Print " PostalCode = " & !PostalCode 
     
     ' Delete new record because this is a demonstration. 
     .Delete 
     .Close 
     End With 
     
     ' Restore original DefaultValue property because this is a 
     ' demonstration. 
     tdfEmployees.Fields!PostalCode.DefaultValue = _ 
     strOldDefault 
     
     dbsNorthwind.Close 
     
    End Sub 
     
    Function DefaultPrompt(strPrompt As String, _ 
     fldTemp As Field) As String 
     
     Dim strFullPrompt As String 
     
     ' Ask user for new DefaultValue setting for the specified 
     ' Field object. 
     strFullPrompt = strPrompt & vbCr & _ 
     "[Default = " & fldTemp.DefaultValue & _ 
     ", Cancel - use default]" 
     DefaultPrompt = InputBox(strFullPrompt) 
     
    End Function