|
こんばんは、いつもありがとうございます。
コマンドボタンを使って次のような事をしたいのですがうまくできません。
サブフォームつきのフォームA(検索画面)の明細の中に 訂正と言う
コマンドボタンを作り、訂正ボタンがクリックされた時は該当明細の
伝票入力画面を表示し、訂正後検索画面に戻ると言う処理です。
単純に訂正画面との行き来はできるのですが、検索画面に戻るときに訂正
した内容をRequeryしたいのですが、どこで行っていいかわかりません。
Private Sub 訂正コマンド_Click()
DoCmd.RunMacro "MD0150直送仕入取込.売上仕入入力"
DoCmd.RunMacro ("メッセージの設定マクロ.オフ") <== 訂正処理が終わる
DoCmd.RunMacro "MD0150直送仕入取込.WK削除" 前に実行される
DoCmd.RunMacro "MD0150直送仕入取込.WK明細作成" (あたり前ですが・・)
DoCmd.RunMacro ("メッセージの設定マクロ.オン") かわりにどこに入れ
Me.Parent.Repaint たらいいかが???
End Sub
ご教授ください、お願いいたします。
|
|