List box move item up/down

[mikael]

i have a listbox named list0. can anyone teach me how to move item up/down in listbox by using command button.
thanks in advance.

[Bob Fitz]

Take a look at the attached db. Post back if you have any questions.

[mikael]

it help much.. thanks you very much.. i really appreciate it.. happy with this solution..

[Bob Fitz]

You're welcome. Glad to help.

[mikael]

can you pls help me once more. i dont know why when the item i the listbox currently in first row, and i still want to click previous button, and i got error. same goes when the item currently at last row, amd i prefer to click next. based from the sample databse u gave me, it run smoothly, i dont know where should i configure. could you pls help me. thanks

[mikael]

anybody, pls solve my problem. hope anyone can solve this.. thank you

[Bob Fitz]

Can You post the code that you are using that is producing the error and tell us on which line it errors.

[mikael]

 Dim n As Long  Me.List29.SetFocus
  n = Me.List29.ListCount - 1
Select Case Me.List29.ListIndex
Case Is < 1
  Me.List29.ListIndex = n
Case Else
  Me.List29.ListIndex = Me.List29.ListIndex - 1
End Select

this is the example of previous button.. im not sure why the item didnt repeat to the last item since the code is right.

[Bob Fitz]

Can you post a copy of your db in A2003 mdb format.

[mikael]

here is the sample of the database. hope u understand..