Kwartje begint een beetje te vallen met coderen maar toch weer een vraag, heb het leverancierform klaar maar wil graag de listbox op alfabetische volgorde zien en heb deze code gevonden,
Dim i As Long
Dim j As Long
Dim c As Long 'columns in listbox
Dim sTemp As String
Dim LbList As Variant
'Store the list in an array for sorting
LbList = frmLeverancier.LsbLeverancier.List
'Bubble sort the array on the first value
For i = LBound(LbList, 1) To UBound(LbList, 1) - 1
For j = i + 1 To UBound(LbList, 1)
If LbList(i, Column) > LbList(j, Column) Then
For c = 0 To frmLeverancier.LsbLeverancier.ColumnCount - 1
sTemp = LbList(i, c)
LbList(i, c) = LbList(j, c)
LbList(j, c) = sTemp
Next c
End If
Next j
Next i
'Remove the contents of the listbox
frmLeverancier.LsbLeverancier.Clear
'Repopulate with the sorted list
frmLeverancier.LsbLeverancier.List = LbList
Werkt goed maar in de eerste kolom van het tabel staan de klantnummers waarop deze code het alfab. zet,maar ik heb in de 2e kolom de klantnamen staan en zou graag willen dat het daarop de list alfab. zet.
Nou heb ik alwat zitten spelen met een verwijzing bij column maar krijg het niet werkend, is dat haalbaar met deze code of is het handiger om de namen kolom naar de eerste kolom te verplaatsen?
Heb ook het volledige bestand toegevoegd
Edit, er staan in het tabelveel "defecte" leveranciers die fouten geven bij kiezen, die mogen jullie gewoon negeren, die kunnen toch nooit normaal ingevoerd worden dus dat mag stuk blijven, de leveranciers die onderaan de lijst staan die bijna volledig zijn ingevuld doen het normaal.