Microsoft Access 掲示板

Microsoft Access 掲示板

リストボックスから複数選択しそれをテーブルに格納したい / 6

12 コメント
views
6 フォロー
6
hatena 2026/02/25 (水) 12:07:01

最初のコードでリストボックスで選択した値を取得している部分は下記のループですので

    With Me.listSupplier
        For Each varItm In .ItemsSelected
            stFilter = stFilter & "," & .ItemData(varItm)
        Next
    End With

このカンマ区切りで連結しているコードをレコード追加のコードに変更すればいいでしょう。

レコード追加はDAOかADOを使うのがいいでしょう。

ネット検索するかAIに質問すればサンプルコードが見つかると思いますのでそれを参考にコードを書いてみてください。

それでうまくいかないようならそのコードを提示して質問してください。

通報 ...
  • 7
    hatena 2026/02/25 (水) 13:10:16 >> 6

    参考コード例

        Dim rs As Recordset          
    Set rs = CurrentDb.OpenRecordset("テーブル名")   

    Dim varItm As Variant
    With Me.listSupplier
        For Each varItm In .ItemsSelected
            rs.AddNew
            rs!フィールド名 = .ItemData(varItm)
            rs.Update
        Next
    End With

    rs.Close