Name Property Example

This example uses the Name property to give a name to a newly created object, to show what objects are in a given collection, and to delete an object from a collection.

Sub NameX()

   Dim dbsNorthwind As Database
   Dim qdfNew As QueryDef
   Dim qdfLoop As QueryDef

   Set dbsNorthwind = OpenDatabase("Northwind.mdb")

   With dbsNorthwind
      ' Create a new permanent QueryDef object and append it 
      ' to the QueryDefs collection.
      Set qdfNew = .CreateQueryDef()
      qdfNew.Name = "NewQueryDef"
      qdfNew.SQL = "SELECT * FROM Employees"
      .QueryDefs.Append qdfNew

      ' Enumerate the QueryDefs collection to display the 
      ' names of the QueryDef objects.
      Debug.Print "Names of queries in " & .Name

      For Each qdfLoop In .QueryDefs
         Debug.Print "  " & qdfLoop.Name
      Next qdfLoop

      ' Delete new QueryDef object because this is a 
      ' demonstration.
      .QueryDefs.Delete qdfNew.Name

      .Close
   End With

End Sub