change description with accessobject

[thread]

hi all,
i need to build something that will react diffretly depending on
reference from description
i know that there is an option to to work with DateCreated and
DateModified but i dont know what is the variable for chaning
description

 

[Brendan Reynolds]

The AccessObject object does not provide any property or method to access
the Description property. In an MDB, you can do it with DAO ...

Public Sub TestSub()

Dim db As DAO.Database
Dim docs As DAO.Documents
Dim doc As DAO.Document
Dim prps As DAO.Properties
Dim prp As DAO.Property
Dim strDescrip As String

Set db = CurrentDb
Set docs = db.Containers("Forms").Documents
For Each doc In docs
Debug.Print doc.Name
Set prps = doc.Properties
strDescrip = "(none)"
For Each prp In prps
If prp.Name = "Description" Then
strDescrip = prp.Value
Exit For
End If
Next prp
Debug.Print "Description: " & strDescrip
Next doc

End Sub