- ベストアンサー
ACCESSのテキスト自動入力方法
顧客データを作成しています。 86年からの参加暦が『0』(不参加)『1』(参加)で標記してあります。 また、『本年参加』というチェックボックスがあり、チェックすると別 テーブルにリストが出来るようになってます。 簡単な方法かもしれませんが、チェックボックスにチェックを入れると、 06年のテキストボックスに『1』を自動入力させたいのですが、 どのようにすれば良いのでしょうか？？ よろしくお願いします。
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- O_cyan
- ベストアンサー率59% (745/1260)
#1の方のを拝借して・・。 boolean値の評価をして分岐するのであれば#1の方の記述でできますが・・ 更新後処理のイベントに If チェックボックス名 = True Then 06年のテキストボックス名 = 1 Else 06年のテキストボックス名 = 0 End If で出来ます。
お礼
ご回答ありがとうございます。 並びに、お礼が遅れてしまい申し訳ございません。 月曜日に、試してみますね＾＾ 参考になりました♪
関連するQ&A
- accessのフォームで参照しながら入力
access初心者です。教えてください。 今、以下のようなテーブルがあるとします。 TBL_A ID,名前,TEL,FAX TBL_B ID,顧客ID,年月日,メモ 新規でTBL_Bのデータを追加するときにリストボックスから顧客を選び、年月日とメモを入力するフォームを作成しています。 このときにリストボックスより選択後、年月日とメモを入力するテキストボックス等の横に該当顧客の直近（TBL_Bの該当顧客の年月日が最新のもの）のデータを表示したいです。 要するに前回のデータを見ながら入力したいです。 表示はテキストボックスでもラベルでもかまいません。 実際には項目数は20個程度あります。 VBAでもかまいません。どのような方法があるでしょうか？ 教えて頂きたいです。
- 締切済み
- オフィス系ソフト
- アクセスで複数選択後、テキストボックスに入力
いつもお世話になります。求人リストを作成しています。 募集職種をいちいち入力していく手間をはぶくため、下記のようなことをしてみたいと思っています。 ○リストボックスとは別に、テキストボックスを作成し、リストから選択された内容を、テキストボックスにカンマ区切りで代入していく。 ○あるいは、チェックボックスにチェックしたものをテキストボックスにカンマ区切りで代入していく。 検索していてQNo.13046の方が同じようなことをしていたのですが、 置き換えてやってみても「nullの使い方が正しくありません」とエラーが出てしまいます。 アドバイスよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- MS Accesｓ フォームでの入力方法につい
Microsoft Accessでフォームでの入力方法について教えてください。 本の管理データベースを作成しております。 書籍の情報をデータベースに入力するフォームを作っておりますが、テーブルの項目を入力する際の方法を、直接入力とリストから選択する方法を両方できるようにはできないでしょうか。 例えば、「発行書店」を入力するときに、テキストボックスに直接入力してもOK、別テーブルに書店の一覧を作っておいて、そのリストをコンボリストに表示させ、クリック選択するとテキストボックスに入るような形でもOKのようにしたいのです。 コンボボックスでリストから選ぶだけでなく、ボックス内に直接入力してもテーブルに反映できるようにできれば話が早いのですが、デザインビューのプロパティで入力チェックを「いいえ」にしてもエラーが出て設定できないので・・・。 無知で申し訳ありませんが、どうかご教示ください。
- ベストアンサー
- その他(データベース)
- アクセス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 テキストボックスを参照専用（入力不可）にしたい
こんにちは。 ACCESS2003で商品管理を作成しています。 入力用フォームに、５つのチェックボックスがあり、それぞれにテキストボックスが横に配置されています。 商品別にチェックボックスにチェックを入れ、テキストボックスにその商品の詳細を入力しています。 概要は、 【型式】 【商品(1)】（チェックボックス） ・・・・・【商品(1)詳細】（テキストボックス） 【商品(2)】（チェックボックス） ・・・・・【商品(2)詳細】（テキストボックス） 【商品(3)】（チェックボックス） ・・・・・【商品(1)詳細】（テキストボックス） 【商品(4)】（チェックボックス） ・・・・・【商品(4)詳細】（テキストボックス） 【商品(5)】（チェックボックス） ・・・・・【商品(5)詳細】（テキストボックス） 入力ミスをなくすために、５個のチェックボックスのうち１箇所にチェックを入れると、チェックを入れた箇所の横のテキストボックス以外のテキストボックスを参照専用（入力不可）にしたいのですが、どうすればいいでしょうか？ よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- ACCESSでコンボボックスからの入力でリスト外の追加をフォームを使っ
ACCESSでコンボボックスからの入力でリスト外の追加をフォームを使って登録 ACCESSのフォームを使ってデータ入力を作成しています、"顧客名"をコンボボックスを使って選択するようにしていますが。 リスト外の新規顧客を入力する際には別の"顧客登録"フォームが開いて、顧客情報（読み仮名、顧客名、都道府県コード、所在地）を入力して、閉じると登録した"顧客名"がコンボボックスから選択できるようにしたいと思い、マクロを使用して（VBはよくわからないので） イベント→リスト外入力時→”顧客登録”フォームが開く 必要事項を入力し、閉じるボタンをクリック。 してみたのですが、コンボボックスのリストに先に入力した新規データが出てきません。 何が足りないのかご教授お願いいたします
- ベストアンサー
- オフィス系ソフト
- Access97で自動入力と反映が違うテーブルの場合
こんにちは、前の質問などでフォームへの自動入力は何とかできるようになったのですが、今度はその入力したデータを他のテーブルＢに反映させたいのですが、どうしたら良いのでしょうか？ テーブルＡ 店舗コード 店舗名 ※テーブルＡの管理者は私ではなく、ネットワークで私のＰＣと「テーブルのリンク」でつながっています。 テーブルＢ 店舗コード 店舗名 商品番号 他に店の情報フィールドをいくつか作成 フォームＣ 店舗コード 店舗名 商品番号 他に店の情報テキストボックスをいくつか作成 フォームＣで、店舗コードを入力したら店舗名が自動的に入力される方法は、フォームＣのレコードソースをテーブルＡにして、店舗コードの更新後処理をイベントプロシージャにして、下記イベントコードを設定しました。 Private Sub 店舗コード_AfterUpdate() Me![店舗名]=DLookup("店舗名","テーブルＡ","店舗コード=" & Me![店舗コード] & " ") End Sub そして、フォームの残りのテキストボックスに、店と商品に関するデータを入力し、入力した全てのデータをテーブルＢに反映させたいのですが、どうしたら良いのでしょうか？ 自動入力の方法でDLookupを使用したのがいけなかったのでしょうか？ また、できればテーブルＢは商品番号順に並びかえられているのですが、入力したら商品番号のリストの一番下に挿入されるという形にしたいのです。 どうかよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Accessの絞りこみについて教えて下さい。
Access初心者です。顧客テーブルがあり、名前で絞りこみをかけたいのですが、エラーになってしまい困っています。 顧客テーブルからフォームを作り、フォームヘッダーにテキストボックスとボタンを作成しました。 絞り込みは苗字でもHITするようにし、テキストボックスには名前を入力、ボタンで絞り込みをかけるというかたちです。。 テキストボックス名は検索用、ボタンの名前は検索にしています。 そこで下記VBAコードを入力したところ、パラメータが出てきてしまい、絞り込み出来ません。 Private Sub 検索_Click() Me.RecordSource = "select * from 顧客リスト where 氏名 like ‘*" & 検索用 & "*’" End Sub どうしたらよいでしょうか？ 教えて下さい。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- access 請求番号の自動採番
まったくわかりません！ よろしくお願いします。 仕様環境 WinXP access2002 顧客管理のシステムを作っています。 テーブル 顧客テーブル（主キーは顧客番号 テキスト型） 請求テーブル（主キーは請求番号 テキスト型） 明細テーブル（主キーは明細番号でオートナンバー ダミーみたいな感じで使っています。） そしてリレーションシップで顧客テーブル（1）→（多）請求テーブル（1）→（多）明細テーブルになっています。 顧客情報を入力するフォームを作りました。 主キーは顧客番号（テキスト型,入力モードON,インデックス いいえ）で 他のテキストボックス（例えば名前）に何かしら文字を入力すると自動で顧客番号を採番してくれます。 例：0001 0002 0003～ そしてそのフォームから請求書作成フォームに飛ぶように 「請求書作成ボタン」を作り、顧客情報も一緒にひっぱっていってくれる 請求書作成フォームを作りました。（入力したばかりの情報も最新の情報で更新してくれます。） ・・請求書作成フォームはサブフォームを使い3つのテーブルからなっています。・・ 親フォーム：顧客テーブルから。 子フォーム：請求テーブルから。 孫フォーム：明細テーブルから。 主キーは請求番号で（テキスト型,入力モードON,インデックス はい（重複なし）） 他のテキストボックス（例えば請求日）に何かしら入力すると自動で請求番号を採番してくれます。 例：A0001 そこで問題なのですが、顧客情報は入力する度、次々自動で採番してくれるんですが、 請求番号は一番最初のレコードの”A0001”だけ採番してくれて、 新しいレコードで請求書を作ろうとテキストボックスに文字を入力すると「型が一致しません」というエラーが出ます。 ○ エラー内容 アクションエラーの実行 条件 true アクション名 値の代入 引数 [請求番号],Format(DMax("請求番号","請求マスタ")+1,"A0001") マクロは・・（参考書を参考にしています、マクロ名：自動採番マクロ） ------------------------------------------------- 条件 ： DCount("請求番号","請求テーブル")=0 アクション ： 値の代入 アイテム ： [請求番号] 式 ："A0001" ------------------------------------------------- 条件 : ... アクション : マクロの中止 ------------------------------------------------- アクション ： 値の代入 アイテム ： [請求番号] 式 ： Format(DMax("請求番号","請求テーブル")+1,"A0001") ------------------------------------------------- となっています。 念のため、主キーの入力モードを切り替えたり、式の"A0001"を単純に"1"にしたりしましたが、 請求番号はエラーが発生します。 原因がまったくわかりません。 よろしくお願いします！
- ベストアンサー
- その他(データベース)
お礼
ご回答ありがとうございます。 並びに、お礼が遅れてしまい申し訳ございません。 月曜日に、試してみますね＾＾ 参考になりました♪