Multi List Issues.

[pharrison74]

Hi, I have done some research on this but find the instructions all over the place. I want to create a multi-list drop down on a form that allows a user to select more then one option. Then I would like that


data put in the associated table. I have the multi select working however nothing gets put into the table.

Would rather have a check box but I don't see that option in Access 2010. So for now it just highlights them. Tried microsofts version of this but just get errors and doesn't work.

Thanks
Peter

[mrmmickle1]

This will give you the values of the multiselect listbox:

Private Sub testmultiselect_Click()
    Dim oItem As Variant
    Dim sTemp As String
    Dim iCount As Integer
    
    iCount = 0
            
    If Me!NamesList.ItemsSelected.Count <> 0 Then
        For Each oItem In Me!NamesList.ItemsSelected
            If iCount = 0 Then
                sTemp = sTemp & Me!NamesList.ItemData(oItem)
                iCount = iCount + 1
            Else
                sTemp = sTemp & "," & Me!NamesList.ItemData(oItem)
                iCount = iCount + 1
            End If
        Next oItem
    Else
        MsgBox "Nothing was selected from the list", vbInformation
        Exit Sub  'Nothing was selected
    End If
    
    Me!mySelections.Value = sTemp
End Sub

I imagine you can just run an update query with sTemp value after you have that....

[pharrison74]

Sorry I am really new to code and this is lost on me. How am I using this code? Am I creating a button for it?

I created a multidrop down in a table however getting this added to a form seems to be an issue. I want the users to not ever have to use anything but the form for entry.
Gotta be a way to do this without writing code.

[mrmmickle1]

pharrison74,

I agree there is probably another method. I was code heavy in Excel VBA before I ever opened Access so I prefer to write code.

The Code would be added to a Submit button in your form.

Along with a few other code lines to run your update query:

DoCmd.SetWarnings False
DoCmd.OpenQuery "PutYourQueryHere"
DoCmd.SetWarnings True

[pharrison74]

I was able to figure it out without using code.

https://support.office.com/en-us/art...8-3E391C42F239

Then on your form add the field you created in the above article. Then go to properties of the list and change it to a multivalued list. Took
a bit of fooling to get it to work..... Hard to explain.

Pete

[mrmmickle1]

Thanks for the follow up. More than one way to skin a cat .