We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub cmdReceiveItem_Click() Dim varItm As Variant Dim varReceieveAmount As Integer For Each varItm In Me.lstParts.ItemsSelected MsgBox Me.lstParts.ItemData(varItm)'Works fine for each item selected 'MsgBox Me.lstParts.Column(2) 'This just returns the last item selected varReceieveAmount = InputBox("How many items are you receiving for" & Chr(13) & "Part - " & Me.lstParts.Column(2) & " - " & Me.lstParts.Column(3) & "") ' This obviously has the same issue with only having data for the last item selected in listbox Next End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|How to Use an Access DB to run a job forever||6||60|
|Ms Access locate folder either this or that||2||33|
|MS Access Docmd export to excel do not over write existing file||9||23|
|access query filter for lower case lett||7||21|