|
▼sui さん:
こんにちは。
VBAで解決するのであれば、
suiさんのご提示の
>Me!T_コード = Dlookup("コード","商品データ","テキスト名 = Forms!F_入力!CB_テキスト名")
のDLookup関数の第3引数を
"テキスト名 = '" & Forms!F_入力!CB_テキスト名 & "'"
の様にしてあげると可能かもしれません。
解りづらい場合には、
コンボボックスの値を
いったん変数に格納してあげるのも良さそうですね。
valCB = Forms!F_入力!CB_テキスト名
Me!T_コード = DLookup("コード,"商品データ","テキスト名 = '" & valCB & "'")
> コンボボックスから選択した書籍名から、
> 書籍コードを表示したいのです。
コンボボックスの値集合ソースによっては
Accessの機能だけでもいけそうです。
CB_テキスト名
値集合ソース:
商品データテーブルより
1列目に商品コード
2列目に商品名を
列幅を
0cm;xxcm(xxは任意の値)の様に設定し、
1列目の幅を0cmにする事で見せない様にする。
T_コード の コントロールソースを
= [CB_テキスト名].column(0)
の様にコンボボックスの1列目を指定
|
|