Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1355 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【7519】別のフォームから違うフォームを開く？ ケン 06/3/15(水) 21:42 質問[未読]
【7522】Re:別のフォームから違うフォームを開く？ Gin_II 06/3/15(水) 22:36 回答[未読]
【7554】Re:別のフォームから違うフォームを開く？ ケン 06/3/18(土) 9:35 質問[未読]
【7519】別のフォームから違うフォームを開く？
質問  ケン  - 06/3/15(水) 21:42 -
引用なし
パスワード
   現在の状態

メインフォーム：[F_当日発注確認画面]
　

サブフォーム：[F_当日発注確認画面サブ]（データシート型）
　レコードソースはクエリー：[Q_当日発注確認画面]

クエリー：[Q_当日発注確認画面]は
次の３つのテーブルから構成されています。
　テーブル：[T_発注履歴]- 発注コード・注文日
　テーブル：[T_商品]-　商品コード・商品名
　テーブル：[T_社員]-　社員ID・社員名

[F_当日発注確認画面サブ]
商品コード・商品名・　社員名・　注文日　発注コード
　１　　　　たわし　　田中　　　7/12　　　　1
　２　　　　タオル　　佐藤　　　8/17　　　　2
　
のような感じで表示されています。

もうひとつ別のフォームがあり、
フォーム：[F_発注登録画面](単票フォーム)
　テキストボックス：発注コード
　テキストボックス：注文日
　コンボボックス：社員ID
　テキストボックス：商品コード
　テキストボックス：商品名
　テキストボックス：数量
　テキストボックス：備考
　

やりたいこと

[F_当日発注確認画面]に設置したサブフォーム：[F_当日発注確認画面サブ]
のレコードをダブルクリックすると[F_発注登録画面]が開く。
　　　　　　　　↓
ダブルクリックしたレコードと同じ発注コードが表示されている。

そこで内容の閲覧や変更をする。

こんな感じにしたいのですが。

[F_当日発注確認画面サブ]のテキストボックス：商品コードのプロパティに

Private Sub 商品コード_DblClick(Cancel As Integer)
　　DoCmd.OpenForm "F_発注登録画面"
　　[T_発注履歴]![発注コード] = _
　　　[F_当日発注確認画面]![F_当日発注確認画面サブ]![発注コード]
End Sub

と入力したのですが、

実行時エラー：3008
テーブルT_商品は他のユーザーが排他的に開いているか、既にユーザーインター
フェースを介して開いているので、プログラムによって操作することはでき
ません。

とエラーが出てしまいます。

どなたかご指導頂けますでしょうか。

　
　　
【7522】Re:別のフォームから違うフォームを開く？
回答  Gin_II  - 06/3/15(水) 22:36 -
引用なし
パスワード
   > 　　DoCmd.OpenForm "F_発注登録画面"
> 　　[T_発注履歴]![発注コード] = _
> 　　　[F_当日発注確認画面]![F_当日発注確認画面サブ]![発注コード]

OpenForm メソッドの構文は、

expression.OpenForm(FormName, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs)

です。（Access2003のヘルプより引用）


DoCmd.OpenForm FormName:="F_発注登録画面" _
　　, WhereCondition:="[発注コード] = " & [F_当日発注確認画面]![F_当日発注確認画面サブ].Form.[発注コード]

とかでは？（発注コードフィールドが、数値型の場合。）
【7554】Re:別のフォームから違うフォームを開く？
質問  ケン  - 06/3/18(土) 9:35 -
引用なし
パスワード
   ▼Gin_II さん：

返信ありがとうございます。

教えていただいたとおりにコードを書いてみたのですが、

実行時エラー：2465

指定した式で参照されている"｜"フィールドは見つかりません。


と出てきてしまいます。

追記

　T_発注履歴のフィールド[発注コード]はオートナンバー型になっております。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1355 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1080791
(SS)C-BOARD v3.8 is Free