Microsoft Access 掲示板

Microsoft Access 掲示板

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

12 コメント
views
6 フォロー
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
通報 ...