Selecting more than one value in a list box

[Guest]

Is it possible to select more than one value in a list or combo box? If it is possible how can I do it?

 

[Gerald Stanley]

You can select more than one item from a list in a ListBox
but not in a ComboBox. To allow multiple selections, set
the MultiSelect property to either Simple or Extended
(Refer to the Help file to see which is the most
appropriate for your application)

Hope That Helps
Gerald Stanley MCSD

-----Original Message-----
Is it possible to select more than one value in a list or

combo box? If it is possible how can I do it?

 

[Guest]

Try thi

Dim rstOrdOrgLkUp As Recordse
Dim itm As Varian

CurrentDb.Execute "Delete * from OrdOrgLkUp;

If AllOO = True The

CurrentDb.Execute "INSERT INTO OrdOrgLkUp ( OO )"
& "SELECT DISTINCT [OrdOrg].[OrderOrg]"
& "FROM [OrdOrg];

Me!OOPrint.Value = "All



Els





Set rstOrdOrgLkUp = CurrentDb.OpenRecordset("OrdOrgLkUp", dbOpenTable

For Each itm In Me.Controls("ChooseOrderOrg").ItemsSelecte
With rstOrdOrgLkU
.AddNe
!OO = Me.Controls("ChooseOrderOrg").ItemData(itm
.Updat
End Wit
Next it
rstOrdOrgLkUp.Clos


AllOO is a check box



' Build criteria string from selected items in list bo




Dim OrdOrgCriteria As Strin
Dim a As Varian


OrdOrgCriteria = "
For Each a In Me![ChooseOrderOrg].ItemsSelecte
If OrdOrgCriteria <> "" The
OrdOrgCriteria = OrdOrgCriteria & ",
End I
OrdOrgCriteria = OrdOrgCriteria & ""
& Me![ChooseOrderOrg].ItemData(a) & "
Next
Me.Controls("OOPrint") = OrdOrgCriteri

End I