ビットマスク

ビットが立っているかのチェック

tmp And flg1
tmp に flg1　のビットが立っていれば True


ビットを立てる

tmp Or flg1
tmp に flg1 のビットを立てる


ビットを切り替える

tmp xor flg1
tmp の flg1 のビットを切り替える

VBA Me.controlsのコントロールの割り当て

Access2000 VBA
Me.Controlsでオブジェクトにに割り当てる

例 コンボボックス

dim cmb as combobox

set cmb = Me.Controls("コンボボックス1")

setをつけないとエラーになる。