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

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

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

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