Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3817 / 9994

←次へ　｜　前へ→


	【9434】サブフォームのDLOOKUPを動かす方法

みみ - 07/5/21(月) 17:30 -


	引用なし

	パスワード

サブフォーム内の中商品コードを入力し
更新後処理で
　　　　商品名 = 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で動かすと、更新後の様な認識をしないというのがわかるのですが
どのようにすれば、自動入力を動作させることが出来るでしょうか?

689 hits

▼

【9434】サブフォームのDLOOKUPを動かす方法 みみ 07/5/21(月) 17:30

≪