Ｐａｇｅ 626 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼Msg BOXの分岐について すみれ 04/5/17(月) 11:27 ┗Re:Msg BOXの分岐について クロ 04/5/17(月) 11:54 ┗Re:Msg BOXの分岐について すみれ 04/5/17(月) 12:35 ┗Re:Msg BOXの分岐について クロ 04/5/17(月) 13:18 ┗Re:Msg BOXの分岐について すみれ 04/5/17(月) 13:47 ─────────────────────────────────────── ■題名 ： Msg BOXの分岐について ■名前 ： すみれ ■日付 ： 04/5/17(月) 11:27 -------------------------------------------------------------------------
| Access2002です。 よろしくお願いします。 Msg BOXで警告メッセージを出し、 OKを押したら次のクエリがひらくようにしたいです。 msg = MsgBox("確認してください!!", vbOKOnly, "2004/06/15金額訂正") このあと、OKを押したら、「Q_あああ」というクエリーをひらきたいのですが OKOnlyだとそういう指示はできないのでしょうか？ YesNoで分岐して支持をしないとだめですか？ |
| 必ず開くのであれば MsgBox("確認してください!!", vbOKOnly, "2004/06/15金額訂正") DoCmd.OpenQuery "クエリ名" でいいのでは？ Dim msg As Integer msg = MsgBox("確認してください!!", vbOKOnly, "2004/06/15金額訂正") If msg = vbOK Then DoCmd.OpenQuery "クエリ名" End If でもいいと思いますが... |
| クロさん ありがとうございました。 >MsgBox("確認してください!!", vbOKOnly, "2004/06/15金額訂正") >DoCmd.OpenQuery "クエリ名" >でいいのでは？ こちらでできました。感謝です！ そしてもうひとつ質問なのですが クエリー「Q_あああ」を閉めたら クエリー「Q_いいい」を開くようにしたいのです。 If DoCmd.Close.このあとがわかりません。 Then DoCmd.OpenQuery , "Q_いいい" よろしくお願いします。 |
| あのですね...クエリのデータビューにはイベントがないんですよ。 はじめのイベントが終わった段階でフォーカスが「Q_あああ」クエリの データビューに移っているので >クエリー「Q_あああ」を閉めたら というイベントは設定できません。 「Q_あああ」クエリや「Q_いいい」クエリをフォームにしないと出来な いと思います。 フォームウィザードで オートフォーム:データシートを選択し 元になるテーブルまたはクエリの選択は「Q_あああ」クエリを選択して データシートビューに似たフォームが作成できます。同様に「Q_いいい」 も作成してください。 フォーム名を仮に「F_あああ」「F_いいい」とします。 MsgBox"確認してください!!", vbOKOnly, "2004/06/15金額訂正" DoCmd.OpenForms "F_あああ", acFormDS 「F_あああ」フォームの閉じるときのイベントに DoCmd.OpenForms "F_いいい", acFormDS といればいいと思います。 また、フォーム「F_いいい」を閉じるときに次のイベントを設定してくだ さい。 |
| クロさま ありがとうございます。 >あのですね...クエリのデータビューにはイベントがないんですよ。 そうでしたか･･･。 何を調べてものっていないので、とんちんかんな質問をしてしまい 申し訳ありませんでした。 >「Q_あああ」クエリや「Q_いいい」クエリをフォームにしないと出来な >いと思います。 なるほど。 フォームにして挑戦してみます。 ありがとうございました。 ご丁寧なお答え、大変感謝いたします。 |