リストボックスで上下移動したい

Question

こんにちは。

Accessバージョン：2000

　Accessのリストボックスで、選択された行を上や下に移動したいと思っています。

移動するアクションは、ボタンでもマウスでドラッグでも構いません。

（イメージでは、タブオーダーの設定のような感じ。）

　VBA で可能であるならば、それでも構いません。

　上下の移動はできるのでしょうか？

Answer 1

RemoveItemメソッド/AddItemメソッドは、私の記憶では、AC2003からだったような気がします。

（記憶違いならすみません。）

使えない場合は、下記のコードで。

Dim Items, tmpItem, tmpIndex As Long

Items = Split(Listbox1.RowSource, ";")

tmpItem = Listbox1.Value

tmpIndex = Listbox1.ListIndex

Items(tmpIndex) = Items(tmpIndex - 1)

Items(tmpIndex - 1) = tmpItem

Listbox1.RowSource = Join(Items, ";")

選択されていないときとか、先頭が選択されているときとかのエラー処理は含めてませんので、あしからず。

Answer 2

テーブルor クエリ連結コントロールならソート用のフィールドを用意してRequeryって手順でしょうか。

値リストなら、ListBoxコントロールのRemoveItemメソッド/AddItemメソッドでやりくりで可能な場合もあるかな。

　すみません。情報不足でした。。。

前者の方のタイプでしております。

　レコードセットの追加／削除等で対応を行ました。

　値リストタイプの場合のサンプルソースは、今後活用させて頂きます。

※ AddXXXX とか RemoveXXXX といったメソッドが無かったので、

　 Access2000 では、表示対応のリストボックスしかできないのかなって思った次第です。

　為になる情報ありがとうございます。

Answer 3

こんばんは。MukkuMukuです。

テーブルor クエリ連結コントロールならソート用のフィールドを用意してRequeryって手順でしょうか。

値リストなら、ListBoxコントロールのRemoveItemメソッド/AddItemメソッドでやりくりで可能な場合もあるかな。

tmpItem = ListBox1.Value

tmpIndex = ListBox1.ListIndex

ListBox1.RemoveItem ListBox1.ListIndex

ListBox1.AddItem tmpItem, tmpIndex + 1

手持ちにa2000がないので確かめていません

Answer 4

MukkuMuku さん、hatena19 さん、アドバイスありがとうございます。

ミルキーMSター さん、こんにちは。

今回はレコードセットの追加、削除で対応されたという事ですね。

同じような方法をお探しの方にも、ご参考いただけるよう、今回は私の方で \[回答としてマーク\] をさせていただきました。

また、MukkuMuku さん、hatena19 さんからいただいたコメントもご参考になると思い、こちらも [回答としてマーク] をさせていだきました。

次回もまた Answes をぜひご利用くださいませ。

Answer 5

ご回答ありがとうございます。

　mukumukuさんの回答で記載致しましたが、

テーブル連結タイプにしておりますので、レコードセットで追加／削除等で

対応を行いました。

　Access 2000 バージョンのサンプルソースをご提供頂きまして、

ありがとうございます。

　今後に活用させて頂きます。