Accessで日付と金額を自動入力する方法

このQ&Aのポイント
  • Access2003/2007で会費集金記録を作る際、会員ごとの単票形式のフォームを作成し、入金確認をオンにすると自動的に日付と金額が入力される方法が知りたい。
  • 毎月数千件の日付や金額を手動で入力しているため、自動化したい。ただし、入力済みの日付が更新されないようにし、分割入金の場合は自動入力された金額を修正できるようにする。
  • クリック時のイベントプロシージャに構文を入力する方法で、Accessのフォームで入金確認をオンにすると、その日の日付とメインフォームの会費額が自動的に入力されるようになる。
回答を見る
  • ベストアンサー

Accessで日付と金額を自動入力する方法

Access2003/2007で会費集金記録を作っています。 フォームでの入力作業を簡単にするために悩んでいます。 会員ごとの単票形式のフォームを作り、下記のように入力フィールドを作成しました。 メインフォーム:[会員ID] [会員名] [会費額] サブフォーム:[会員ID] [入金確認] [入金日] [入金額] ※[入金確認]はチェックボックス サブフォームの[入金確認]をクリックしてオンにすると、[入金日]にその日の日付、 [入金額]にメインフォームの[会費額]の数値が自動的に入るようにすることはできますでしょうか? 毎月数千件の日付や金額を都度入力しており、なんとか自動化したいのです。 会費の入金日はバラバラなので、次にフォームを開いたときに、すでに入力済みの日付が更新されるとまずいのと、会員によって分割入金の方がおられるので、場合によって、自動入力された金額を修正することがあります。 クリック時のイベントプロシージャに構文を入力する方法で、どなたお教えいただけませんでしょうか。

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

  • ベストアンサー
  • 30246kiku
  • ベストアンサー率73% (370/504)
回答No.1

入金確認の更新後処理で、 If (Me.入金確認 = True) Then   Me.入金日 = Date   Me.入金額 = Me.Parent.会費額 End If 入力が新規レコードなのであれば、入金日の既定値を =Date() にしておくことで、上記代入は要らなくなります。 Me.入金確認 が False のときの処理は、盛り込んでみてください。

omame2525
質問者

お礼

30246kikuさま ありがとうございました。 お教えいただいた方法で、きちんと表示されました。 これで劇的に楽ができるようになります。 本当にありがとうございました。

関連するQ&A

  • サブフォームに同一の納品日を自動的に入力したい

    XP&ACCESS2003: メインフォーム/サブフォーム形式のフォームで、受注番号で連結しています。 メインフォームが受注、サブフォームが受注明細です。(1対多) メインフォームには「次のレコード」に進むボタンをつけ、クリックにより次のレコードが表示されます。(従って、サブフォームも次の受注の明細に移動します) 複数のレコードを持つサブフォームの納品日(受注明細の納品日フィールドに連結)の最初の一件に日付を入力し、メインフォームの「次のレコード」に進むボタンをクリックした時、1件前の受注明細の納品日を入力していない他の(2件目以降)のレコードにも同一の納品日を自動的に入力できる方法がわかりません。よろしくお願いします。

  • アクセスで自動入力(?)できますか?

    お世話になります。 アクセスにて次のような事をしたいと思っています。 メインフォームに電話番号を入力すると サブフォームの連絡先電話番号にも値が自動的に(?)入力される。 ただし、サブフォームの連絡先電話番号を訂正しても、 メインフォームの電話番号は変更されない。 ほとんど同じ番号なのですが、時々フリーダイヤル番号を入力する場合があります。 今まではコピーペーストしていたのですが、少しでも時間短縮できる方法があるなら。。。と思い質問させて頂きました。 よろしくお願いいたします。

  • アクセスで・・

    メインフォーム(ID)、サブフォーム(サブID、IDとIDのリレーション)があります。 それとサブフォームの内訳を入力するサブサブフォームが展開し、これはサブフォーム上のコマンドボタンクリックで、サブIDとリレーションされた形でデータを入力する。 という風にしたいのですが、コマンドボタンクリックのところのコードがわかりません・・ どなたかご教授願えませんでしょうか?

  • Access2010 日付選択後の動きについて

    Access2010で開発をしています。 サブフォーム上に日付項目(テキストボックスの書式を「日付」にした項目) メインフォーム上にコマンドボタンがある画面で、 サブフォームの日付項目で日付選択カレンダーを使って日付を選択した後 メインフォームのコマンドボタンをクリックしてもボタンが反応しません。 2回クリックすると反応するようですが、原因が分かりません。 日付選択後に、parentを使って強制的にメインフォームにフォーカスを当てたり、 Sendkeysでエンターキー押下を発生させたり してみましたが、解決できません。 解決策をご存知の方がいらっしゃいましたら、よろしくお願いいたします。

  • Accessで日付から曜日を自動で入力させる

    表題の通りですが、Accessで以下のような事は可能でしょうか? 1.フィールド1に日付を入力(例;2002/5/17) 2.フィールド2に日付・曜日を自動的に入力   (例;5月17日(金)) 入力作業は基本的に、入力用のフォームをつくって そこで行っています。

  • ACCESS2003 サブフォームのデータ

    こんにちは。宜しくお願い致します。 ACCESS2003でDBを作成しています。 メインフォームの中にサブフォームを作っています。 それぞれのID(オートナンバー)をリレーションシップとして設定し、連動しています。 メインフォームにデータを追加する際、サブフォームにデータを入力せずに、 次のメインフォームにデータを入れた場合、 サブフォームのオートナンバーが働かず、のちのちデータを入れた際にIDが違うため情報がずれてしまいます。 例えば、 メインフォームのID1~9のサブフォームには何も書き込まずメインフォームにだけデータを入力します。 その後、メインフォームのID10にあるサブフォームにデータを書き込むと、立ち上げなおしたときに、そのサブフォームへの入力したデータがID1のデータとして出てきてしまいます。 恐らく簡単なことだとは思うのですが、なにぶん初心者なものでさっぱり分かりません。 お分かりになる方、是非ともご教授お願いいたします。

  • ★アクセス2000★条件付き合計金額の出し方

    請求書をメインフォームとサブフォームで作っています。 サブフォームは、「商品ID」「商品名」「課税区分」「単価」「金額」からなり、受注明細を入力しています。 商品は2つに分類され(A・B)、それぞれの合計金額を計算したいのですが、どうやったらいいのか分からないので、ご回答をお願いします。 分類の仕方ですが A⇒「商品ID」 0001~0100 B⇒「商品ID」 0101~0200 です。 そしてもう1つ、消費税の計算もうまくできません。 「課税区分」には 課税 ⇒1 非課税⇒2 と入力してあります。 どなたかご回答をお願い致します。

  • access2000で存在しないデータを入力した時メッセージを表示させたい

    はじめてaccess2000でファイルを作成する初心者です。 名前(ID)を入力すると、 その方の情報(メインフォーム)と、 情報の変更履歴(サブフォーム)が表示される、 フォームを作成しています。 最初、別のフォームにテキストボックスを作成し、 そこにIDを入力後、ボタンをクリックすると、 クエリ(テーブル)に存在するIDは表示されますが、 存在しない場合は、「存在するIDはありません」 というメッセージを表示し、 メイン・サブフォームの画面には移動しないように したいのです。 ※現在は空のメイン・サブフォームが表示されます。 ちなみに、IDに重複はありませんので、 情報(メインフォーム)は1件しか表示しませんが、 変更履歴(サブフォーム)はIDによって 複数のレコードが存在する場合があります。 説明がわかりにくくて申し訳ありませんが、 回答をお願いいたします。 accessに関する知識がほとんどありませんので、 簡単にできる方法を教えていただけるとうれしいです。

  • ACCESS2007 DMaxについて

    WinVistaでACCESS2007を使っております。 顧客との取引履歴のデータベースを少しずつ作っております。 現在のデータベース構成は簡単に書きますと、 「顧客T」 ・顧客ID ・顧客名 ・ ・ ・ ・最終取引日 「取引T」 ・取引ID ・顧客ID(顧客Tの顧客IDとリレーション) ・取引日 ・取引内容 という感じです。 顧客Tをソースに「顧客フォーム」を作り、そのフォーム内にサブフォームで 取引履歴として「取引履歴サブフォーム」。「取引日」「取引内容」のみ表示して 入力しております。 やりたいことは、フォームを開いた際に、サブフォーム内の取引日の中で 最新の日付をメインフォームの「最終取引日」フィールドに入力して、データ を更新していきたいです。 非連結のフィールドを作って表示だけすればいいのかもしれませんが、 現状データとして格納していきたいです。 VBAでメインのフォーム「開くとき」にDMaxで最大の日付を拾えばいいかと思い 試してみましたが、エラーが出てしまいます。 いろいろ試してみましたが、記述はこんな感じです。 Me.最終取引日=DMax("日付",Me.取引履歴サブフォーム) としてみました。 どなたかお力を貸してください。

  • ACCESSの日付データを自動入力に出来ませんか

    ACCESSに入力されたデータの、整合性を確認する業務の中で、確認した当日の日付を、「確認日」として整合性を確認したデータの最後に入力しています。今は、データ1件毎に、確認日をテンキーで入力しているのですが、これを、自動的に(例:チェック欄をONにすると、ON時の当日の日付が入るなど)行う方法はありますか?

専門家に質問してみよう