#489
「#488 複数の値を持つコントロールにデータを追加するには？」とは逆に、複数の値を保存可能なフィールドと連結したコントロールからデータを削除する（正確には選択されている項目のチェックマークを外す）プログラムの例です。
ここでは、「cmd削除」という名前のコマンドボタンを配置し、そのクリックイベントプロシージャを次のように記述します。
ここでは、ドロップダウンしたときに選択可能な複数値すべてをループで処理し、「仕入先ID.Value」のレコードセット上から削除することによって、すべての選択肢のチェックマークを外しています。
Private Sub cmd削除_Click()
'[削除]ボタンクリック時
'フォームのレコードセットの編集を開始
Me.Recordset.Edit
'仕入先IDフィールドのレコードセットに対する操作
With Me.Recordset!仕入先ID.Value
Do Until .EOF
.Delete
.MoveNext
Loop
.Close
End With
'コンボボックスの表示を更新
Me!仕入先ID.Requery
End Sub
実行結果：
■クリック前
■クリック後
