Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.
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
|Need to filter query and have subform updatable||2||26|
|How to use VBA to search through a text box in a MS Access form for a list of names from a query?||2||32|
|What's wrong with CopyFromRecordset||6||33|
|How can I reference and use the second column value of a Combo Box in Access and save it in a bound control on my Form?||12||36|