The topic you requested is included in another documentation set. For convenience, it's displayed below. Choose Switch to see the topic in its original location.

Field.DefaultValue Property

Office 2007
Sets or returns the default value of a Field object. For a Field object not yet appended to the Fields collection, this property is read/write (Microsoft Access workspaces only).



expression   A variable that represents a Field object.


The setting or return value is a String data type that can contain a maximum of 255 characters. It can be either text or an expression. If the property setting is an expression, it can't contain user-defined functions, Microsoft Access database engine SQL aggregate functions, or references to queries, forms, or other Field objects.

Bb208448.vs_note(en-us,office.12).gif  Note
You can also set the DefaultValue property of a Field object on a TableDef object to a special value called "GenUniqueID( )". This causes a random number to be assigned to this field whenever a new record is added or created, thereby giving each record a unique identifier. The field's Type property must be Long.

The availability of the DefaultValue property depends on the object that contains the Fields collection, as shown in the following table.

If the Fields collection belongs to anThen DefaultValue is
Index objectNot supported
QueryDef objectRead-only
Recordset objectRead-only
Relation objectNot supported
TableDef objectRead/write

When a new record is created, the DefaultValue property setting is automatically entered as the value for the field. You can change the field value by setting its Value property.

The DefaultValue property doesn't apply to AutoNumber and Long Binary fields.


This example uses the DefaultValue property to alert the user of a field's normal value while prompting for input. In addition, it demonstrates how new records will be filled using DefaultValue in the absence of any other input. The DefaultPrompt function is required for this procedure to run.

Visual Basic for Applications
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 = "98052"

   Set rstEmployees = _
      dbsNorthwind.OpenRecordset("Employees", _

   With rstEmployees
      ' Add a new record to the Recordset.
      !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

      ' 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.
   End With

   ' Restore original DefaultValue property because this is a 
   ' demonstration.
   tdfEmployees.Fields!PostalCode.DefaultValue = _


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