• ベストアンサー

【Access】 テキストボックスへの入力

毎回お世話になっております。 現在、フォームの編集をしております。 フォームはヘッダー部分と詳細部分に分かれており、ヘッダーの部分に「テキストボックスAに取引先コードを入力し、検索ボタンを押すと、同ヘッダーのテキストボックスBに該当する取引先情報が表示される」仕組みになっています。 詳細の部分には、新規の顧客情報を入力するテキストボックスが並んでおり、各レコードをテーブルに保存できるようになっています。 現在解決したい点なのですが、ヘッダーのテキストボックスBに表示された取引先情報を、ボタンを押す等の何らかの方法で、詳細の中のテキストボックスCに入力されるような仕組みが出来れば、と考えております。 (テキストボックスCのコントロールソースを変更する方法も考えましたが、各項目のソースはクエリとリンクしているので、この方法は止めました。) アイディアをお持ちの方、アドバイスを頂けますと幸甚です。 宜しくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

コマンドボタンを適切な位置に追加配置し、そのコマンドボタンのクリック時プロパティの イベントプロシージャに下記のようなコードを記述すればよいでしょう。 Private Sub コマンド0_Click() テキストボックスC = テキストボックスB　　'←この行だけをコピーしてください。 End Sub ＃単純すぎる回答です。質問の読み間違いがありましたらご容赦ください。

user1979
質問者

お礼

ありがとうございました。できました！

その他の回答 (1)

noname#79209
noname#79209
回答No.2

データの入力専用フォームでしたら、 私の場合、フォームにテーブルやクエリーを関連づけません。 ご質問の例で言えば、取引先コードのテキストボックスAの更新後イベントプロシージャに、 必要な取引先データを取引先マスタ（テーブル）から引っ張って来て、フォーム上のテキストボックスに代入するようにしています。

user1979
質問者

お礼

アドバイスありがとうございました！

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • ACCESS2000　テキストボックスに入力できない

    お世話になります。 環境：Win2000SP4 ACCESS2000 「メインフォーム」から、条件入力用のテキストボックスがある「条件フォーム」を開いた時、そのテキストボックスに一切入力できなくなります。「条件フォーム」を単独で開いた時には入力できます。条件フォームはオートフォーム：単票形式で作り、フォームヘッダーにテキストボックスと実行ボタンを付加しました。以前のご質問（QNo.394049　Access2000　テキストボックスに文字を入力できない理由が判りません。）に、元が集計クエリであれば入力できないとありました。まさに元が集計クエリなのですが、条件フォームを単独で開いた時には入力できますし、結果も表示されます。 どのような情報が必要かわかりませんのでとりあえず次の内容を。。。 ■集計クエリのＳＱＬ 　SELECT 使用TBL.年月日,sum(使用TBL.使用金額) AS 使用金額の合計 　FROM 使用TBL 　GROUP BY 使用TBL.年月日 　HAVING (((使用TBL.年月日)=[Forms]![条件フォーム]![txt_年月日])); ■テキストボックス（txt_年月日） 　使用可能：はい 　編集ロック：いいえ 　IME入力モード：コントロールなし 　IME変換モード：無変換 メインフォームを経由すると、なぜ入力できなくなるかわかりません。なにか問題でもあるのでしょうか？どなたかご教授頂けないでしょうか？

  • Accessテキストボックスの未入力チェック

    いつも参考にさせて頂いております。 Accessテキストボックスの未入力チェックで上手くいかず悩んでいます。過去の情報等調べましたが、わかりませんでした。 どなたか宜しくお願い致します。 フォーム1にテキストボックス1、ボタン1があります。 テキストボックスを何も入力せず、Enter等で移動する時にチェックをかけたいです。 もし、テキストボックスに何も入力がなかったら、メッセージを出し、フォーカスをテキストボックスに戻す。 何か入力があれば、ボタンにフォーカスが移動する。 If IsNull(Me.テキストボックス1) = "" Then msgbox "未入力です。" Me.テキストボックス1.SetFocus End If 宜しくお願い致します。

  • アクセスのフォーム上のテキストボックスについて

    アクセスのフォーム上のテキストボックスについて フォーム上のテキストボックスに直接数字を入力しようとしています。ただ、このテキストボックスのコントロールソースはフォームのレコードソースと違うものです。 この状況でテキストボックスに数値を直接入力しようとすると、『コントロールソースに連結しているので、編集できません。』と表示され、入力出来ません。 どうすれば、解決できるのかご存知の方、教えて下さい。宜しくお願いします。

  • Access テキストボックスのフォームデザイン変更について

    はじめまして。最近になってAccessの基本の「キ」を勉強し始めました。 サイトを見ながら、課題になっているデータベースを作成しているのですがその中で、引っかかってしまった 下らない操作があります；； フォームデザインにて、「テキストボックスを追加して下さい」という指示があったのですが ツールボックスから「テキストボックス」を選択して、フォームに乗せると、下記のようになります。 尚、＜　＞　←これは、フィールドの名称？みたいなもので、[ ] ←これが入力フォームみたいなものです。 フォームヘッダー ------------------ ＜商品CD＞　＜商品名＞　＜単価＞　＜数量＞　＜テキスト10＞　[非連結] ＜備考＞ 詳細 ------------------ [商品CD]　　　　[商品名]　　　[単価]　　　[数量] 　　　　　　　　　　　　　　　　　　　[備考] ＜テキスト10＞というのと、[非連結]というのが新しく追加されたテキストボックスなのですが、 フィールドで言う名称と、実際の入力フォームが横並びになってしまっています。 これを、他と同じように、名称はヘッダーに、入力フォームは詳細に置きたいのですがどのようにすればいいのでしょうか？ プロパティを見てみたり、ShiftやCtrlやAlt等を押しながらも試しましたがどうにも出来なくてかなり困ってします…(>_<) 検索もしたのですが解決方法がわからず、どのようにしたらいいかご存知の方いらっしゃいましたらご教授願います。 よろしくお願いいたします。 （尚、この文章はフォントがMSPゴシックで作成しているのでそれ以外の方は上の図がかなりずれて見えると思います。すみません）

  • Access テキストボックスとコンボボックス

    Access初心者で、勉強がてらデータ登録フォームを作成しています。 フォーム上にコンボボックスを設置し、 テーブルに保存されているデータを検索できるようにしたのち、 テキストボックスのコントロールソースには簡単に 「=[コンボボックス].[column](2)」としています。（それぞれの名前は仮称です） 後から、テキストボックスひとつで 「コンボボックスからの検索結果を表示させる」と 「テキスト入力も可能とする」 を共存させたいと思い始めたのですが、可能になりますでしょうか。 ただし「コンボボックスからの検索結果表示」をしたテキストボックスに対し、 その情報をフォーム上で書き換えたとしても、テーブル側のデータ書き換えは行いたくありません。 よろしくお願いいたします。

  • アクセスVBA　テキストボックス入力値からの参照

    マイクロソフトアクセス初心者です。 現在、アクセスでデータベースを作成しています。 2つのフォーム（フォーム(1)、フォーム(2)）、2つのテーブル（入力情報、マスタ）、2つのテーブルをもとにした1つのレポートを作成しています。 『フォーム(1)』のテキストボックスAに入力された値を、Dlookup関数で『フォーム(2)』のテキストボックスBに数値を参照しています。 『フォーム(2)』のテキストボックスに表示された値を、『フォーム(2)』に設置されたコマンドボタンをクリックすると、VBAで『テーブル入力情報』のフィールドAに入力されるようにしています。フィールドAについてのマスタとなるテーブルが『テーブルマスタ』です。 リレーションシップを設定せず、ただ単に値を入力することは出来るのですが、レポートを作成するにあたって、『テーブル入力情報』と『テーブルマスタ』のフィールドAに1（テーブルマスタ）対多（テーブル入力情報）のリレーションシップを設定したいと思っています。 リレーションシップを設定し、テキストボックスBに表示された数値を『テーブル入力情報』に入力する際、『テーブルマスタ』から該当するデータを選択して『テーブル入力情報』に入力されるようにしたいと思うのですが、現状では、リレーションシップを設定すると、入力値が真っ白になってしまい、レポートにも入力したデータが反映されません。 ちなみに、入力する際はフィールドA=Me.テキストボックスBのようにしています。 何か良い解決策がありましたら、是非教えていただけませんでしょうか？ 分かり難い文章かと思いますが、どうぞ宜しくお願い申し上げます。

  • ACCESS テキストボックスの入力値削除

    こんにちは。ACCESSの初心者です。 現在ACCESSを使ってとある一覧表の入力フォーマットを作成しております。 早速ですが質問です。 フォームのテキストボックスにて入力チェックをしており、間違った値が入力されると、メッセージボックスを出し、その間違った入力値を削除し、カーソルをそのテキストボックスに戻す、ようにしたいのですがどうすればいいのでしょうか？ ちなみに現在以下のようなソースを作成しているのですが、(1)と(2)のところがどうすればいいのかわかりません。 If 正しい入力値 then 次のテキストボックスへ移動 else msgbox（"入力値エラー") 入力値削除(1) カーソルを戻す(2) end if よろしくお願いします。 　

  • ACCESS2000の帳票フォームでテキストボックスの入力値を取得したい

    こんにちは。ACCESS2000でツールを作成しています。 テーブルはExcelにリンクさせ、クエリを介して帳票フォームで データを表示しています。 帳票フォームのレコード毎にテキストボックスを追加して それぞれ入力できるようにし、その値をVBAで取得したいのですが どうすればよいでしょうか。 テキストボックスを追加して実行すると、一つのテキストボックスに 入力した値が全てのレコードに反映されているようです。 帳票フォームのしくみがよく分かりません。 どなたか教えていただけないでしょうか。 宜しくお願いします。

  • ACCESS　テキストボックスを参照専用（入力不可）にしたい

    こんにちは。 ACCESS2003で商品管理を作成しています。 入力用フォームに、５つのチェックボックスがあり、それぞれにテキストボックスが横に配置されています。 商品別にチェックボックスにチェックを入れ、テキストボックスにその商品の詳細を入力しています。 概要は、 【型式】 【商品(1)】（チェックボックス） ・・・・・【商品(1)詳細】（テキストボックス） 【商品(2)】（チェックボックス） ・・・・・【商品(2)詳細】（テキストボックス） 【商品(3)】（チェックボックス） ・・・・・【商品(1)詳細】（テキストボックス） 【商品(4)】（チェックボックス） ・・・・・【商品(4)詳細】（テキストボックス） 【商品(5)】（チェックボックス） ・・・・・【商品(5)詳細】（テキストボックス） 入力ミスをなくすために、５個のチェックボックスのうち１箇所にチェックを入れると、チェックを入れた箇所の横のテキストボックス以外のテキストボックスを参照専用（入力不可）にしたいのですが、どうすればいいでしょうか？ よろしくお願い致します。

  • Access VBAボタンでテキストボックスを入力

    access2010を使用しております。 フォームでボタンをクリックしたときに、テキストボックスを書換える コードを作りたいのですが、 Private Sub コマンド111_Click() ME!テキストボックス.value= "あああ" End Sub としても、テキストボックスは書き換わりません。 でも、ボタンをクリックした後にそのテキストボックスをクリックすると ちゃんと「あああ」と入力されています。 つまり、ボタンをクリックしても入力はされても表示がされず、 ただ、テキストボックスをクリックすると「あああ」と表示されると言った具合です。 また、テキストボックスをクリックする以外にも 違うレコードに移動してもとのレコードに戻ってもおなじように 表示されます。 これを押した時に表示を変更させるには どのようにすればよろしいでしょうか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する