Experts Exchange connects you with the people and services you need so you can get back to work.

need to know total number of items in the listbox and pass the value to an integer

I am designing a Form application in Access 2003.

I have a listbox containing data populated on basis of a selection in a combo box. I need to pass the rowcount of the listbox to an integer variable for furthur process. my combo box contains Date, my list box returns customer names for a Date selected.

I thought about two different approaches, but not successful yet.

1. I want to Dim ListControl as Control, try to use ListCount.
2. I tried to use Dcount function which needs taking the value of selection of the combo box as criteria in the function. I can write a query as expression to get same records as those populated in the list box.
Dcount("customer", "qry", "orderdate = Form!frm_master!cbo_orderDate"), my problem is that my criteria code is not right.

Any ideas? Thanks

jc50967w

Asked: 2006-10-25

Advertise Here

Microsoft Access

2 Solutions

LVL 120

Rey Obrero (Capricorn1)Commented: 2006-10-25

dim x
x=me.listboxname.listindex

LVL 120

Rey Obrero (Capricorn1)Commented: 2006-10-25

dim x
x=me.listboxname.listcount

LVL 65

rockiroadsCommented: 2006-10-25

dim iCnt as integer

iCnt = Me.mylistbox.ListCount

msgbox "Number of items = " & iCnt

LVL 66

Jim HornMicrosoft SQL Server Developer, Architect, and AuthorCommented: 2006-10-25

{no points please}

dim x as Integer
x=me.listboxname.listcount

LVL 65

rockiroadsCommented: 2006-10-25

And using DCOUNT

If within the sama form, just do this

Dcount("customer", "qry", "orderdate = #" & Me.cbo_OrderDate & "#")

otherwise
Dcount("customer", "qry", "orderdate = #" & Form!frm_master!cbo_orderDate & "#")

LVL 65

rockiroadsCommented: 2006-10-25

And yet summat else, which I forgot to post

If your combo has 3 columns say, selecting the value (bounded column) may not be the one u need
therefore u can specify what column u want

col 0 is 1st column of data
col 1 is 2nd, etc

Dcount("customer", "qry", "orderdate = #" & Me.cbo_OrderDate.Colum(0) & "#")

LVL 65

rockiroadsCommented: 2006-10-25

U may perhaps need to wrap OrderDate with CDATE but I think u should be ok

Im off home now, see ya all

jc50967wAuthor Commented: 2006-10-25

Rockiroads, my combo box only has one column. The filed name OrderDate is just example name I used to discribe in this case. My real database, tables and fields are with very complicated business concept, and hard to post them in few lines. Then I use customer and their order as example case in here.

Thank you everyone.

LVL 120

Rey Obrero (Capricorn1)Commented: 2006-10-25

as posted above

dim x
x=me.listboxname.listcount

is enough to get the number of items from the listbox

if you want to use dcount, try this

Dcount("customer", "qry", "cdate(format([orderdate],'mm/dd/yyy')) = #" & cdate(Format(Form!frm_master!cbo_orderDate,'mm/dd/yyy')) &"#"),

LVL 120

Rey Obrero (Capricorn1)Commented: 2006-10-25

sorry

if you want to use dcount, try this

Dcount("customer", "qry", "cdate(format([orderdate],'mm/dd/yyyy')) = #" & cdate(Format(Form!frm_master!cbo_orderDate,'mm/dd/yyyy')) &"#")

LVL 65

rockiroadsCommented: 2006-10-25

ok jc50967w, where are we at this

you now know how to get a listcount and Ive told you about the error you had in your dcount

I mentioned the multicolumn just in case, but its not a problem now since u only have the one column.
Did the correction to the DCOUNT work? (after u change it to your fields that is)

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

need to know total number of items in the listbox and pass the value to an integer

Join & Write a Comment Already a member? Login.

Featured Post