#489 複数の値を持つコントロールから既存データを削除するには? フォーム、VBA

「#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


実行結果:
■クリック前
実行結果:クリック前
■クリック後
実行結果:クリック後
| Index | Prev | Next |

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
 

Copyright © T'sWare All rights reserved