過去ログ

                                Page     705
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼フォーム間でデータをやり取りしたい  P之助 04/7/20(火) 15:35
   ┗Re:フォーム間でデータをやり取りしたい  クロ 04/7/20(火) 16:59
      ┗Re:フォーム間でデータをやり取りしたい  P之助 04/7/21(水) 9:43
         ┗Re:フォーム間でデータをやり取りしたい  クロ 04/7/22(木) 10:08
            ┗Re:フォーム間でデータをやり取りしたい  P之助 04/7/22(木) 10:46
               ┗Re:追伸  クロ 04/7/22(木) 10:53

 ───────────────────────────────────────
 ■題名 : フォーム間でデータをやり取りしたい
 ■名前 : P之助
 ■日付 : 04/7/20(火) 15:35
 -------------------------------------------------------------------------
    最近アクセスVBAを利用し始めたのですが、
フォームA(以降A)でテキストボックスに入力した値を
フォームB(以降B)を開いてフォームBのテキストボックスに
反映させる必要があり、
AからBを開くのは簡単に出来たのですが、Aの
テキストボックスにあるデータをBのテキストボックスに
反映させる方法が解りません。

 きっと単純な事なのでしょうが、なにぶん始めた
ばかりでどうすればよいのやら解らない状態です。

 ───────────────────────────────────────  ■題名 : Re:フォーム間でデータをやり取りしたい  ■名前 : クロ  ■日付 : 04/7/20(火) 16:59  -------------------------------------------------------------------------
   フォームAからフォームBを開く操作が分かりませんがフォームAのテキストボックスを
txtAとし、フォームBの代入先テキストボックスをtxtBとします。

フォームAのテキストボックスをtxtAをダブルクリック時のイベントに

DoCmd.OpenForm "フォームB", , , , , , Me.txtA


フォームBの開くときのイベントに

DoCmd.GoToRecord , , acNewRec
Me.txtB = OpenArgs

とこんな感じで如何でしょうか?

 ───────────────────────────────────────  ■題名 : Re:フォーム間でデータをやり取りしたい  ■名前 : P之助  ■日付 : 04/7/21(水) 9:43  -------------------------------------------------------------------------
   回答ありがとうございます。

すみません ちょっと説明不足だったようです。 やりたい事としては、
フォームAにあるテキストボックス(非連結)にはデータ(日付)を
入力しており、
 フォームAにあるボタンをクリックすると Docmd.OpenForm "フォームB"で
フォームBを開き、フォームBの中にあるテキストボックス(非連結)に
フォームAのテキストボックスに入力したデータをそのまま反映させたいのです。
どちらのテキストボックスもデータテーブルとは無関係のデータなので
そのまま「フォームAのテキストボックス」→「フォームBのテキストボックス」
と言うようにデータが反映されるようにしたいのです。

 ───────────────────────────────────────  ■題名 : Re:フォーム間でデータをやり取りしたい  ■名前 : クロ  ■日付 : 04/7/22(木) 10:08  -------------------------------------------------------------------------
   フォームAにあるテキストボックス(非連結)にはデータ(日付)を
Me.txtAとし、フォームBの中にあるテキストボックス(非連結)を
Me.txtBとします。

コマンドボタンのクリック時のイベントに

DoCmd.OpenForm "フォームB", , , , , , Me.txtA

フォームBの開くときのイベントに

Me.txtB = OpenArgs

でどうでしょうか?

 ───────────────────────────────────────  ■題名 : Re:フォーム間でデータをやり取りしたい  ■名前 : P之助  ■日付 : 04/7/22(木) 10:46  -------------------------------------------------------------------------
    クロ さん ありがとうございます うまく実行できました!!
実行した瞬間は、なんだか目の前にあった壁がきれいさっぱり
無くなったかのような気持ちでした。(^o^)

しかも、これだけのコマンドで実行できるとは びっくりです。

 アクセスのVBAを始めたばかりで
四苦八苦しながら組んでいるためこのように質問すると
すぐに回答して頂けるのは大変心強いです。
これからも初歩的な質問をすると思いますがそのときは
よろしくお願いいたします。

 ───────────────────────────────────────  ■題名 : Re:追伸  ■名前 : クロ  ■日付 : 04/7/22(木) 10:53  -------------------------------------------------------------------------
   私に限らず回答してもらったらそのコードを読む(ヘルプでひく)ことを
忘れずにおこなってください。
自ずと自分のものになっていくと思います。

今回のキーワードは「OpenArgsプロパティ」です。
VBエディタ側のヘルプでひいてよく読んでください。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 705