Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
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
|WebBrowser Control - ms/ACCESS||9||32|
|MS Access VBA Code for fields that are null and prevent the code from continuing||7||20|
|add more styles to my code||2||19|
|Setting and updating "Instance" value for sets of duplicate records in MS Access||33||18|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
21 Experts available now in Live!