| |
現在の状態
メインフォーム：[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_商品は他のユーザーが排他的に開いているか、既にユーザーインター
フェースを介して開いているので、プログラムによって操作することはでき
ません。
とエラーが出てしまいます。
どなたかご指導頂けますでしょうか。
|
|
ケン
- 06/3/15(水) 21:42 -
