リストボックスで選択された項目を別のリストボックスへ移動する - Accessコントロール

移動するには、はじめにリストボックスの選択項目を別のリストボックスにコピーし、次にその選択項目を削除します。

コピー方法は前回の「リストボックスで選択された複数列の項目を別のリストボックスへ追加する」を参照してください。
削除するには、RemoveItemを使います。

BackHomeへ Backコントロールメニューへ



実行画面です。
→ボタンをクリックすると、左から右のリストボックスに、選択項目が移動します。
←ボタンをクリックすると、右から左のリストボックスに、選択項目が移動します。
選択された項目を別のリストボックスへ移動する

VBA画面です。→ボタンと←ボタンのそれぞれのコードを入力しています。前回のコードに削除するRemoveItem部分を追加しています。
コードに削除するRemoveItem部分を追加



《 VBAコード 》
Private Sub コマンド12_Click()
    Dim vt As Variant
    If Me.リスト0.ItemsSelected.Count > 0 Then
        For Each vt In Me.リスト0.ItemsSelected
            Me.リスト10.AddItem Me.リスト0.ItemData(vt) & ";" & Me.リスト0.Column(1, vt) & ";" & Me.リスト0.Column(2, vt)
            Me.リスト0.RemoveItem Me.リスト0.ItemData(vt)
        Next
    End If
End Sub

Private Sub コマンド13_Click()
    Dim vt As Variant
    If Me.リスト10.ItemsSelected.Count > 0 Then
        For Each vt In Me.リスト10.ItemsSelected
            Me.リスト0.AddItem Me.リスト10.ItemData(vt) & ";" & Me.リスト10.Column(1, vt) & ";" & Me.リスト10.Column(2, vt)
            Me.リスト10.RemoveItem Me.リスト10.ItemData(vt)
        Next
    End If
End Sub

関連リンク
リストボックスの複数選択された項目を削除する
リストボックスで選択された複数列の項目を別のリストボックスへ追加する



BackHomeへ Backコントロールメニューへ

Copyright(C) FeedSoft