Required Property Example

This example uses the Required property to report which fields in three different tables must contain data in order for a new record to be added. The RequiredOutput procedure is required for this procedure to run.

Sub RequiredX()

    Dim dbsNorthwind As Database
    Dim tdfloop As TableDef

    Set dbsNorthwind = OpenDatabase("Northwind.mdb")

    With dbsNorthwind
        ' Show which fields are required in the Fields 
        ' collections of three different TableDef objects.
        RequiredOutput .TableDefs("Categories")
        RequiredOutput .TableDefs("Customers")
        RequiredOutput .TableDefs("Employees")
        .Close
    End With

End Sub

Sub RequiredOutput(tdfTemp As TableDef)

    Dim fldLoop As Field

    ' Enumerate Fields collection of the specified TableDef 
    ' and show the Required property.
    Debug.Print "Fields in " & tdfTemp.Name & ":"
    For Each fldLoop In tdfTemp.Fields
        Debug.Print , fldLoop.Name & ", Required = " & _
            fldLoop.Required
    Next fldLoop

End Sub