| |
サブフォーム内の中商品コードを入力し
更新後処理で
商品名 = DLookup("商品名", "商品T", "中商品コード='" & 中商品コード & "'")
販売単価 = DLookup("販売単価", "商品T", "中商品コード='" & 中商品コード & "'")
仕入単価 = DLookup("仕入原価", "商品T", "中商品コード='" & 中商品コード & "'")
区分 = DLookup("区分初期値", "商品T", "中商品コード='" & 中商品コード & "'")
という感じで、サブフォーム内のフィールドに値を自動入力させています。
今回、フォーム内にボタンを作成しボタンをクリック時に
Forms!販売F!販売詳細計算QSF.Form!中商品コード = "000001C"
Forms!販売F!販売詳細計算QSF.Form![中商品コード].SetFocus
Forms!販売F!販売詳細計算QSF.Form![数量].SetFocus
という風に入力-フォーカスセット-フォーカス移動-のイメージで上記の用に
してみたのですが、コードに000001Cは入力されますが、
更新後処理のDLOOKUPが作動しないのです。
VBAで動かすと、更新後の様な認識をしないというのがわかるのですが
どのようにすれば、自動入力を動作させることが出来るでしょうか?
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
