Home > Mobile >  Sort Alphanumeric Array Access-VBA
Sort Alphanumeric Array Access-VBA

Time:01-05

EDIT: Query is called from vba, used to create array, passed to create form:

QueryFieldAsSeparatedString("Batch", "TLR", "Batch")  
strBndls = Replace(strBndls, ",", ";")
subNewControls strBndls, "frmSelectBundle"

The reason I thought this quicksort would work is because batch #13 gets lumped in with the 1's using the sortby clause.

Example table:

  • Order # | Batch
  • 1 | 1
  • 1 | 13
  • 1 | 1b
  • 1 | 2
  • 1 | 2a
  • 1 | 1a
  • 1 | 3
  • 1 | 6
  • 1 | 7
  • 1 | 9
  • 1 | 11
  • 1 | 6a
  • 1 | 7b
  • 1 | 8
  • 1 | 13a
  • 1 | 7a

desired string returned: 1, 1a, 1b, 2, 2a, 3, 6, 6a, 7, 7a, 7b, 8, 9, 11, 13, 13a

query

results

Thats it. I saw no need to concatenate batch into a string as you can set the rowsource of a combobox or listbox directly to the query.

  •  Tags:  
  • Related