Solved Up and Down Buttons to Change Sequence (1 Viewer)

[MattBaldry]

Hi all,

Does anyone have a sample code of Up and Down buttons to change the sequence of a list?

I have a table with a field [Sequence] which I will use to sort the order. It does not allow duplicates.

What I am after is a code for buttons so when an item is highlighted, if I click Up, it changes the Sequence field from 10 to 9, and this would then need to change the current 9 to 10, if that makes sense.

~Matt

 

[Gasman]

Pretty sure @MajP had a class to do just that?
Search with his username.

Then again, there is Google

changing order of items in a list box | Bytes

changing order of items in a list box. Microsoft Access / VBA Forums on Bytes.

bytes.com

However his code would be a lot easier and cleaner.

 

[arnelgp]

i also have a demo for Bound Listbox.

 

[GinaWhipp]

Have a look at...

Move Selections Up/Down in a List Box… « Gina's Coffee Shop

regina-whipp.com

 

[MajP]

This has a lot of features. Also has features to support doing something with the sorted list.

MS Access: custom control built in another language

the code is old and there is a small change you need to make in several functions, e.g. fIsScrollBar, there is a line which is used to identify the scrollbar for a window If fGetClassName(hWnd_VSB) = "scrollBar" Then this needs to be changed to If fGetClassName(hWnd_VSB) = "NUIscrollBar"...

www.access-programmers.co.uk

 

[Pat Hartman]

I do it differently. When the lists get long, it is too easy to get lost when you use the drag and drop method. Look at the subform example. The sequence numbers are inserted either by 10's or 100's, I don't remember which and you can change it to leave whatever gaps make sense to you. Then, you can replace #500 with #150 to move it to between #100 and #200 without having to try to drag it there. When you run out of gaps or are finished, you can renumber the sequence to make it "neat" again

Custom Sequence Numbers

Two examples of a custom sequence number. One is a complex ID with concatenated parts. The other is just a sequence number for detail items and is not used as a PK. It has a renumber feature. See below

www.access-programmers.co.uk

 

[MattBaldry]

Have a look at...

Move Selections Up/Down in a List Box… « Gina's Coffee Shop

regina-whipp.com

This looks perfect, but the download link does not work

~Matt

 

[Gasman]

This looks perfect, but the download link does not work

~Matt

Just copy the link then?
This will take you to all the zip files

Index of /myzipfiles

Look at the link on the page posted to see what zip file you need.
It downloaded fine for me, it opens and extracts fine, and the demo is as indicated.

 

[MattBaldry]

Just copy the link then?
This will take you to all the zip files

Index of /myzipfiles

Look at the link on the page posted to see what zip file you need.
It downloaded fine for me, it opens and extracts fine, and the demo is as indicated.

I tried that but it didn't work. But now it does. Possibly my browser playing up....

~Matt

 

[GinaWhipp]

This looks perfect, but the download link does not work

~Matt

What is didn't work? Ill go check but I need to know what I am checking for.

 

[Gasman]

Gina, the here link links to the zip file, but appears to do nothing?

 

[GinaWhipp]

I tried that but it didn't work. But now it does. Possibly my browser playing up....

~Matt

Never mind, I got it and fixed it... and looks like I have quite a few links to fix so thanks for letting me know.

 

[MattBaldry]

Never mind, I got it and fixed it... and looks like I have quite a few links to fix so thanks for letting me know.

Thanks Gina,

And the download is exactly what I was after, so just need to integrate it into my form now.

~Matt

 

[MattBaldry]

Never mind, I got it and fixed it... and looks like I have quite a few links to fix so thanks for letting me know.

Thank you Gina,

It works perfectly, and the code was easy to read and learn.

Thank you for your help.

~Matt

 

[GinaWhipp]

Thank you Gina,

It works perfectly, and the code was easy to read and learn.

View attachment 103977

Thank you for your help.

~Matt

Glad it helped!