ray88’s diary

お仕事で困ったとき用の自分用の覚書

コンボボックスで選んだ値に紐づいてテキストボックスにコンボボックスの別カラムの値を表示させる①

以下はプロパティーシートで制御する方法

※但し、プロパティシートで値設定してしまうと後々VBAでクリアボタンで値消したりしたり、別制御を実装するときにいろいろ支障が出る。なので、VBAで書く方法は

以下のリンクを参照。

コンボボックスで選んだ値に紐づいてテキストボックスの別カラムの値を表示させる方法②

支障がでる例は以下のリンクを参考 

Access VBA コントロールの値をまとめてクリアする 

■以下の様なフォームがあったとします。

f:id:ray88:20200712093359p:plain
■商品コードをプルダウンより選択

f:id:ray88:20200712093503p:plain

■コンボボックスで商品コードを選択さすると商品名と単価が自動で反映されます。

f:id:ray88:20200712094822p:plain

■プロパティは以下の様にします。
・商品名テキストボックスのコントロールソースの値
 =[cmb_ProductCode].[column](1)
・単価テキストボックスのコントコールソースの値
 =[cmb_ProductCode].[column](2)

f:id:ray88:20200712094859p:plain
※MT_商品は以下の様になってます。

f:id:ray88:20200712094943p:plain

■さらに個数を入力し、確定した場合に小計に反映させたい場合

f:id:ray88:20200712102603p:plain
■単価テキストボックスのプロパティでコントロールソースの値を以下の様に設定。
 =[単価]*[個数]

f:id:ray88:20200712102716p:plain