- ベストアンサー
ACCESS97 VBA のテキストBOX
VBAも初心者です。 ACCESSのフォームであるテキストBOXの内容を ボタンで同じ他のフォームのテキストBOX にデフォルト値としてSETするというような 処理をするというような場合どのような記述 をしたら良いでしょうか？ ヒントでも良いのでお願いします。
- DRAGONEMK
- お礼率62% (44/70)
- Visual Basic
- 回答数3
- ありがとう数3
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
こんにちは。maruru01です。 元のフォームを閉じてからもその値を利用したいのであれば、グローバル変数に保存するのがいいでしょう。 標準モジュールにPublicで宣言した変数に、元のフォームが閉じる時などにテキストボックスの値を代入し、別のフォームを開くときにその値をそのフォームのテキストボックスに代入するようにします。 例えば、標準モジュールで、 Public DefaultID As String として、元のフォームのUnloadイベントなどで、 DefaultID = Me!txtID.Value とし、別のフォームのLoadイベントなどで、 Me!txtID.Value = DefaultID とします。
その他の回答 (2)
- O_cyan
- ベストアンサー率59% (745/1260)
ＡのフォームからボタンをクリックしてＢのフォームを開いた際にＢのフォームの テキストボックスにＡのフォーム内のテキストボックスの内容をセットするという 事で良いのでしょうか？ それでしたらＡフォームのText1をＢフォームのフィールドへ取り込む処理は Ｂフォームのテキストボックスのテキストボックスのプロパティを開きデータの コントロールソースに =Forms![Ａフォーム]![Test1] で取り込めます。
お礼
大変参考になりました。 ありがとうございます。
- osamuy
- ベストアンサー率42% (1231/2878)
「デフォルト値」をどういう意味で使われているかが、ちょっと分からないのですが、 Forms![Form_A]![txtItemID].text = Me![txtItemID].text ——みたいな感じで、どうでしょうか。 今アクティブになっているフォームのテキストボックスtxtItemIDから、別に開いているフォームForm_Aの同名のテキストボックスに値を設定する例です。
お礼
大変参考になりました。 ありがとうございます。
関連するQ&A
- Access 2003 VBA について
始めまして Access 初心者です。 ある、フォームのテキストボックスに入力した内容を元に、 コマンドボタンクリック時に、Aテーブル内容を検索し、テキストボックスに 入力した内容と一致しない場合にAテーブルに格納し 一致するレコードが見つかった場合は、エラーを表示したいのですが、 どのように記述すればいいのでしょうか？ 駄文失礼します。
- ベストアンサー
- その他MS Office製品
- アクセスのフォーム上のテキストボックスの行間を指定する方法を教えてくだ
アクセスのフォーム上のテキストボックスの行間を指定する方法を教えてください。 アクセス初心者です。 フォームにテキストボックスとボタンを配置しておいて，下のように記述すれば，文字の大きさを変更することができました。 行間を変更したい場合は，どう記述すると良いのでしょうか？「 LineSpacing」というプロパティがあることは，何とか分かったのですが，使い方が分かりません。 よろしくお願いいたします。 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Private Sub コマンド98_Click() Me.テキスト１.FontSize = 15 End Sub ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
- ベストアンサー
- その他MS Office製品
- Access VBA 他アプリケーション
Accessのフォームから他アプリケーションを起動するボタンをつくります。 起動したアプリケーションの入力フォームへ、Accessのフォームのテキストボックスの内容を書き込む事はできないでしょうか？ 例えば、Accessのフォームに『OKWave』と入力されたテキストボックスと、ブラウザが開くボタンが配置されているとします。ボタンをクリックするとブラウザが起動し、起動したら任意の検索サイトが表示され、そのサイトのフォームに、Accessのフォームのテキストボックスにかかれている、『OKWave』が自動的に入力するようなVBAを書きたいと思います。 よろしくお願いします。
- ベストアンサー
- その他（プログラミング・開発）
- AccessのVBAにおいて，アクセスフォームに表示されている「値」を
AccessのVBAにおいて，アクセスフォームに表示されている「値」を変数の中に格納したい。 例えば，オートフォームの単票形式でフォームを作成した場合，「番号」「製品」といったフィールドが２個あるテーブルを使うと，「番号」「製品」という名前のテキストボックスが２個ほどできます。 （フィールド名やテキストボックス名は問題ではありません。） このフォーム上に「ボタン」を配置し，このボタンをクリックした時に，「製品」というテキストボックスの内容を，メッセージボックスで表示させたい。 MsgBox (Me.製品.Text) と書いてもエラーとなります。 実際には，このフォームで欲しいデータを見つけた時，ボタンクリックで，テキストボックスに表示されている内容をグローバル変数に格納したいのですが，方法が分かりません。 Access 初心者です。どなたかよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- AccessのVBAの記述について
たびたびお世話になります AccessのVBAで、フォーム上にあるテキストボックス（CadrDate）のデータを同一フォーム内の別のテキストボックスに貼り付ける操作はできるのでしょうか？ 出来るのであれば記述文を教えてください。
- ベストアンサー
- その他(データベース)
- VBAテクストボックス
ＶＢＡでテキストボックスにセルから読み込んだデータを表示して 同一フォーム内にあるボタンで条件分岐するようなことは出来ますか。 一つの条件分岐が済んだらまた次のセルからデータを引っ張ってきてテキストボックスに表示させる ようなことを行いたいのですが。
- ベストアンサー
- Visual Basic
- VBAのテキストボックスについて
VBAで作成したユーザーフォームのテキストボックスの中にhtmlのソースを貼り付けて、そのソースの中のtableタグ中から数値を取り出してそれぞれのセルに出力したいと考えていますが、そのようなことはできるのでしょうか。 自分である程度考えているのですが、なにぶん始めたばかりなのものですから、テキストボックス内の文字列をどう処理すればよいのかわかりません。 よろしければ教えてください。
- 締切済み
- Visual Basic
- アクセスのテキストボックスで
質問の仕方が適切でないかもしれませんがご了承下さい。 Access2000を使用しています。 社員テーブルには「性別」フィールドがあり、男なら１、 女なら２が登録されています。その社員テーブルを基にした フォームを作成し、そこに非連結のテキストボックスを作成、 １なら男、２なら女と表示させたいのです。 新規登録時は「性別」フィールドに連結したテキストボックス の更新後に表示させるようなVBAを記述しておいたのでうまく いくのですが、登録済みのデータを呼び出した場合は表示され ません（更新しているわけではないので当然といえば当然なの でしょうが・・・）。 何かしなければいけないのは分かっているのですが、どのイベント 時にどのようなアクションをすればよいのか教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAでボタンでテキストボックス作成したい
こんばんわ！ エクセルＶＢＡのユーザーフォーム上のボタンを押すとユーザーフォーム上に新たにテキストボックスを作成することは可能でしょうか？ （ちなみに通常時非表示でボタンを押すと表示といった内容以外でお願いします。大量にテキストボックスを作れるようにしたいので＾＾；） 可能なようでしたらサンプルソースあるいは参考ＨＰを教えてください！ ちなみに現在使用中はエクセル2003です。（2007でもＯＫです＾＾） アドバイスの程よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- access テキストボックスの値取得
いつもお世話になりますm(_ _)m access VBAをかじり始めた「超・初心者」です(^^;) フォームの画面にテキストボックスを作成し、そこに入力した値を取得したいのですが、どのようにすればよろしいのでしょうか？別に置いたコマンドボタンをクリックすると取得するようにしたいのです。 気軽に、コマンドボタンのイベントプロシージャに、 ----- dim rec as variant rec=textbox1.text 'recは、「テキストボックス1」に入力した値 ----- なんてやってみたんですが、全然ダメで、いろいろ検索してもさっぱり分かりません。 あほくさいほど初歩的な質問で恐縮ですが、なにとぞよろしくお願いいたしますm(_ _)m xp+access2003です。
- ベストアンサー
- オフィス系ソフト
お礼
大変参考になりました。 ありがとうございます。