Select First Row of a Value in ListBox

[gstreichan]

Dears,

I have a ListBox0 in a Form that shows all different on hand quantities for a BOM_Pos.
I would like to click on a button and have all first rows for BOM_Pos selected, is it possible?
For instance here below, there are 6 different BOM_Pos and how I am trying to get it to select.
Would appreciate very much if someone can help me. Thank you.

 

[MajP]

Public Sub GoToFirstRow(lst As Access.ListBox, ColumnNumber As Integer, Val As Variant)
  Dim i As Integer
  For i = 0 To lst.ListCount - 1
    ' Debug.Print lst.Column(ColumnNumber, i)
    If lst.Column(ColumnNumber, i) = CStr(Val) Then
      lst.Selected(i) = True
        Exit Sub
    End If
  Next i
End Sub

But you will have to feed that function with something like

Public Sub SelectAllBom
  dim rs as dao.recordset
set rs = currentdb.openrecordset ("Select Distinct BOM_Pos from SomeTable")
do while not RS.EOF
  GoToFirstRow Me.SomeListBox, 10, rs!BOM_Pos
  rs.moveNext
loop
end sub

see demo

You may also consider something like this

Making a form look like a report

As a result of this post https://www.access-programmers.co.uk/forums/threads/emulate-reports-grouping-levels-with-forms.326697/ I thought I would diddle around and come up with some examples. This is a simple format - only shows the customer once and uses conditional formatting to change the...

www.access-programmers.co.uk