Set multiselect property in VB

[Dan2kx]

Hello AGAIN

'Nother problem to solve....

im trying to set the MultiSelect property within VB for a list box, and i am using the code

Me.StaffHols.Mu ltiselect = True

and it wont work, it says that i cannot assign a value to the object, ive tried many ways to get this to work (and i have had this working before)

so what am i doing wrong?

[jaxjagfan]

Hello AGAIN

'Nother problem to solve....

im trying to set the MultiSelect property within VB for a list box, and i am using the code

Me.StaffHols.Mu ltiselect = True

and it wont work, it says that i cannot assign a value to the object, ive tried many ways to get this to work (and i have had this working before)

so what am i doing wrong?

MultiSelect property is 0, 1 or 2
No Multi, Simple, or Extended

[Dan2kx]

yeah i tried that as well same error

[NeoPa]

I looked in the Help section and two things pop-out :

1. It is only valid for ListBoxes. make sure it is such and not a ComboBox you're dealing with.
2. It says it can only be changed when the form is in Design View. This seems strange for code, but may be worth delving into further.

Hope this helps.

PS. Valid values are only {0; 1; 2}. True is not valid. False, being equivalent to 0, is.

[ADezii]

yeah i tried that as well same error

NeoPa has already pointed you in the right direction, but the Method to change the MultiSelect Property of a List Box while in an Active Form, is not that intuitive. Here is how it is done, let's say you are currently in frmMain and you wish to change the MultiSelect Property of lstMultiSelect:

Const conNONE As Integer = 0
Const conSIMPLE As Integer = 1
Const conEXTENDED As Integer = 2
 
Application.Echo False
  DoCmd.OpenForm "frmMain", acDesign
    Forms!frmMain![lstMultiselect].MultiSelect = conNONE
                         'OR
    Forms!frmMain![lstMultiselect].MultiSelect = conSIMPLE
                         'OR
    Forms!frmMain![lstMultiselect].MultiSelect = conEXTENDED
                         'OR
  DoCmd.OpenForm "frmMain", acNormal, , , acFormEdit
Application.Echo True

[Dan2kx]

Thanks for that, didnt realise i had to set the property in design view, you can do it from the properties menus whilst the form is active, bit odd isnt it.
had to do quite a lot of recoding to compensate for the form "closing and opening"

thanks again

Dan

[NeoPa]

100 posts Dan - Nice :)
Just as a last point though, it may be worth checking to see if changes made in that state are saved to the form object. If so, you may have to ensure your code handles the situation.

[Dan2kx]

Yeah thats one of the things i had to change, for some reason i think its good to "reuse" forms so i have lots or overly complicated code selections so after it has set the multiselect property it sets a value to 1 and then when the form closes (had to use a custom close button) it turns off again.


Got another question now..... same lines... i am using my multiselect in extended mode, so that someone can select a range (most importantly dates) and i want to assign the 1st and last selected (dates) in the list a to a VB variable

i have one idea which is to loop through the items selected and then state

if new value is > old lowest value (date) then set new low value / and similarly with the higher values. is there an easier way!?

Cheers again

ps. 101 now tehe

[NeoPa]

Yeah thats one of the things i had to change, for some reason i think its good to "reuse" forms so i have lots or overly complicated code selections so after it has set the multiselect property it sets a value to 1 and then when the form closes (had to use a custom close button) it turns off again.


Got another question now..... same lines... i am using my multiselect in extended mode, so that someone can select a range (most importantly dates) and i want to assign the 1st and last selected (dates) in the list a to a VB variable

i have one idea which is to loop through the items selected and then state

if new value is > old lowest value (date) then set new low value / and similarly with the higher values. is there an easier way!?

Cheers again

ps. 101 now tehe

That's about how I'd do it too :) There is a collection of just the selected items of course.
(I'd only replace the "old lowest value" with lower ones though ;)).

[Dan2kx]

OK this is how i did that then, seems to work!!

Dim sdt1 As Date, edt1 As Date, Loop1 As Integer
    For Each row In Me.StaffHols.ItemsSelected
        If Loop1 = 0 Then
            sdt1 = Me.StaffHols.ItemData(row)
            edt1 = Me.StaffHols.ItemData(row)
        End If
            If Me.StaffHols.ItemData(row) < sdt1 Then sdt1 = Me.StaffHols.ItemData(row)
            If Me.StaffHols.ItemData(row) > edt1 Then edt1 = Me.StaffHols.ItemData(row)
        Loop1 = 1
    Next
    'MsgBox "" & sdt1 & " " & edt1
 

Now just have to spend HOURS duin something with that info HOURS i tell you (wont go into detail too boring)

Thanks again for you help

Dan