populating listbox on custom form from Access

[DAVID POWELL]

Outlook 2010
Access 2010 vba

I have a custom form that contains a Listbox and i need to fill it from access vba code:

rsArray = rst.GetRows

Set lstDetailData = objItem.GetInspector.ModifiedFormPages("DsmEmail").Controls("lstDetailData")
lstDetailData.List = rsArray

This is not working..

was also trying:
With objItem.GetInspector.ModifiedFormPages("DsmEmail").Controls("lstDetailData")
.Clear
.ColumnCount = rst.Fields.Count
.Column = rsArray
.ListIndex = -1
.ColumnWidths = "50 pt;50 pt;50 pt;50 pt;50 pt;50 pt;50 pt;50 pt;50 pt;50 pt;50 pt;50 pt"
Do
.AddItem rst.Fields(0)
.AddItem rst.Fields(1)
rst.MoveNext
Loop Until rst.EOF
End With

Does not work:
Thanks
David Powell

 

[DAVID POWELL]

Here are my properties for the Listbox on the Custom Outlook form..



I actually only have 9 fields.
so the original post is incorrect with the column widths

 

[Diane Poremsky]

Do either of your attempts work if the listbox is in Access? The same basic code should work in Outlook.
I thought (but have not tested it) that you do something like this to fill fields using an array:
Set objPage = objItem.GetInspector.ModifiedFormPages("DsmEmail") objPage.Controls("lstDetailData").List() = rsArray

(you want to avoid using too many dots - assign object / variable names instead)

 

[DAVID POWELL]

Do either of your attempts work if the listbox is in Access? NO
Still not working, but.
The Column Count for the Listbox..Should be 9 because i have nine fields in the query. ? as shown above.
and my column widths are ok ?
I know the array has data because i was running a small bit of code to double check.

rsArray = rst.GetRows(countme)
rst.MoveFirst
Set objPage = objItem.GetInspector.ModifiedFormPages("DsmEmail").objPage.Controls("lstDetailData").List() = rsArray

 

[DAVID POWELL]

also,
trying this and setting my listbox accordingly:

It will only load one column.

With objControlu
do
.AddItem
.List(j, 0) = rs1.Fields(0)
.List(j, 1) = rs1.Fields(1)
j = j + 1
rs1.MoveNext
loop until rs1.eof
End With

 

[DAVID POWELL]

This part is from a command button on the outlook custom form:
This is only loading one field

and i have the column count to 2
and column width 10 pt;10 pt

also,
trying this and setting my listbox accordingly:

It will only load one column.
j = 0
With objControlu
do
.AddItem
.List(j, 0) = rs1.Fields(0)
.List(j, 1) = rs1.Fields(1)
j = j + 1
rs1.MoveNext
loop until rs1.eof
End With

 

[DAVID POWELL]

ok, I had to place the code on the outllok custom form itself and pull the data in from a sql connection to sql server. and then did this:
Set objControlu = objPage.Controls("ListBox2")
objControlu.ColumnCount = 4
objControlu.ColumnWidths = "30 pt;30 pt;30 pt;30 pt;30 pt"

j = 0
With objControlu
do
.AddItem
.List(j, 0) = rs1.Fields(0)
.List(j, 1) = rs1.Fields(1)
.List(j, 2) = rs1.Fields(2)
.List(j, 3) = rs1.Fields(3)


j = j + 1
rs1.MoveNext
loop until rs1.eof
End With

I changed all the properties to the default settings after placing a listbox on the form.

BUT

i still cant get the code to work from access: with this update:

Set lstDetailData = objItem.GetInspector.ModifiedFormPages("DsmEmail").Controls("lstDetailData")

With lstDetailData
.Clear
.ColumnCount = 1
.ColumnWidths = "50 pt ';50 pt;50 pt;50 pt;50 pt;50 pt;50 pt;50 pt;50 pt"
z = 0
Do
.AddItem
.List(z, 0) = rst.Fields(0)
' .List(z, 1) = rst.Fields(1)
' .List(z, 2) = rst.Fields(2)
' .List(z, 3) = rst.Fields(3)
' .List(z, 4) = rst.Fields(4)
' .List(z, 5) = rst.Fields(5)
' .List(z, 6) = rst.Fields(6)
' .List(z, 7) = rst.Fields(7)
' .List(z, 8) = rst.Fields(8)

z = z + 1
rst.MoveNext

Loop Until rst.EOF
End With

 

[Diane Poremsky]

i still cant get the code to work from access:

how are you referencing the outlook object model? Are you using early or late binding?
Can you post the full code?