CONTAINER CODE FOR DROP DOWN REPORT LIST 1

[Jamie2002]

Can anyone provide this piece of code allowing a drop down box on a form to lookup report names/query names/table names using the container function.

Thanks.

 

[JoeMiller]

Try this web page:

http://www.mvps.org/access/queries/qry0002.htm

HTH Joe Miller
joe.miller@flotech.net

 

[Psychpt]

Dim ct As Container
Dim doc As Document
Set ct = DB1.Containers("Forms&quot
For Each doc In ct.Documents
List3.AddItem (doc.Name)
Next doc

Set ct = DB1.Containers("Reports&quot
For Each doc In ct.Documents
List4.AddItem (doc.Name)
Next doc

Set ct = DB1.Containers("Scripts&quot
For Each doc In ct.Documents
List5.AddItem (doc.Name)
Next doc

Set ct = DB1.Containers("Modules&quot
For Each doc In ct.Documents
List6.AddItem (doc.Name)
Next doc

 

[Jamie2002]

How do I type the DB1 name, as full path or in [] or ""...?

 

[Psychpt]

currentdb() or the full path and filename.
eg.
dim db1 as database
set db1 = currentdb()

 

[Jamie2002]

It is returning an error message saying "Member or data member not found" in regard to ".additem"

This is the code I have added

Private Sub List172_BeforeUpdate(Cancel As Integer)

Dim ct As Container
Dim doc As Document
Dim db1 As Database

Set db1 = CurrentDb()
Set ct = db1.Containers("Forms&quot
For Each doc In ct.Documents
List172.AddItem (doc.Name)
Next doc


Can you help..........?

 

[Psychpt]

I'm sorry try this,

Dim ct As Container
Dim doc As Document
Dim db1 As Database
Dim FrmName As String, strRowSrc As String

Set db1 = CurrentDb()
Set ct = db1.Containers("Forms&quot
For Each doc In ct.Documents
FrmName = doc.Name
strRowSrc = strRowSrc & FrmName & ";"
Next doc

List172.RowSource = strRowSrc