Posts by JonathanVH

JonathanVH · Aug 1st 2018

One could put the listbox columns in an array and then copy that array to a range, but that would probably be overkill for just two columns. Assuming tSummary has its MultiSelect property set to fmMultiSelectSingle, try something like this:

Code

.Cells(lRow, 1).Value = Me.TextBoxDate.Value
.Cells(lRow, 2).Value = Me.tSummary.List(Me.tSummary.ListIndex,0)
.Cells(lRow, 3).Value = Me.tSummary.List(Me.tSummary.ListIndex,1)
.Cells(lRow, 4).Value = Me.txtTotal.Value
.Cells(lRow, 5).Value = Me.lPaymentMethod.List

JonathanVH · Aug 1st 2018

Code

FROM M1_HB.dbo.PartOperations AS PartOperations JOIN M1_HB.dbo.Parts AS Parts ON PartOperations.imoMethodID = Parts.impPartID
WHERE PartOperations.imoMethodAssemblyID = 0 AND '" & c00 & "' LIKE '%^^^' + RTRIM(PartOperations.imoMethodID) + '^^^%'

Posts by JonathanVH

VBA Userform - Transfer multiple listbox items in a multi column listbox to excel?

Padding numbers from Sql database to search exact matches in a concatenated string