Document オブジェクト、Documents コレクションの使用例 (Microsoft Access)
次の使用例では、カレント データベースの各 Form Document オブジェクトの名前と、最後に変更された日時を表示します。
Sub DocumentModified()
Dim dbs As Database, ctr As Container, doc As Document
' カレント データベースへの参照を取得します。
Set dbs = CurrentDb
' Forms コンテナへの参照を取得します。
Set ctr = dbs.Containers!Forms
' Forms コンテナの Documents コレクションを列挙します。
For Each doc In ctr.Documents
' Document オブジェクト名と LastUpdated プロパティの値を表示します。
Debug.Print doc.Name; " "; doc.LastUpdated
Next doc
Set dbs = Nothing
End Sub
とヘルプにあります。
これをお使いください。
|