本当に困っているのお願いします。
初心者の私がアクセスを使って会社の管理ソフトを作って
いるのですがどうしてもわかりませんので教えて下さい。

内容:フォーム内にサブフォームをつくり
   フォームに検索する語を入れた場合
   サブフォームに検索されたものが出てくる
   
といったことです。

お願いします。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

テーブルAとBがあり、フォーム上で検索する語句(テーブルAにあるフィールドに入力されている文字)


を入れるとサブフォームに関連するテーブルBの内容を表示する

ということでよろしければ、

1)テーブルAとBの間にリレーションを設定します。
2)フォームウィザードを実行します。
  (基テーブルの指定は、最初はなしで)
3)フィールドの選択画面で、テーブルAおよびBから必要なフィールドを選択します。
4)データの表示方法を指定する画面で、[サブフォームがあるフォーム]を選択します。
5)残りの画面は、任意の設定を行い、完了します。
6)作成したフォームをデザインビューで開きます。
7)検索語句を入力したいコントロールを削除します。
8)フィールドリストとツールボックスを表示します
9)ツールボックスのコントロールウィザードがオンになってることを確認し、
  コンボボックスボタンをオンにします。
10)削除したコントロールのあった場所をクリックします。
11)コンボボックスウィザードで、「コンボボックスで選択した値に対する・・・・」
   を選択し、次に進みます。
12)検索するしたい語句の入力されているフィールドを選択し、完了します。

これで、語句を入力するか、または▼をクリックしリストから語句を選ぶことで
関連付けられたテーブルの内容をサブフォームに表示できるようになります。

初心者さんと言うことですが、Accessでの作成を任されフォームやサブフォームを
わかってらっしゃるということですので、
リレーションの設定、フォームの編集、ツールバーのボタンなどは
ご存じという前提で明記しました。

もし、ご希望の内容に合ってない場合はごめんなさい。

この回答への補足

こんにちは。またわからないことがでてきましたので補足に記載させていただきます。

内容:
 テーブルAがあります。ブランド,商品名,型番,定価,売り値,詳細
というもの
●フォームウィンザードを実行しました。(基になるテーブルAと設定)
●フォームデザインより検索に必要なブランド,商品名,型番だけをフォーム内にもってきました。
●ツールボックスからサブフォームを画面上にもってきて
既存のファイルを使用
独自に設定
 ブランド(フォーム) ブランド(サブフォーム)
 商品名 (フォーム) 商品名 (サブフォーム)
 型番  (フォーム) 型番  (サブフォーム)
と入力する
質問1:あと一つ追加をしたいのですがどうするの?

●一様フォームは完成したのですが、フォームのほうのブランド名のところをロレックスといれたら、サブフォームのブランド名までかわってしまいます。

★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
私が望んでいるのは、メインフォームでブランド名,商品名,型番を入力したらサブフォームにそれにあった商品の詳細がでてきてほしいです。
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

補足日時:2001/09/15 12:24
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

関連するカテゴリからQ&Aを探す

このQ&Aと関連する良く見られている質問

Qアクセスでフォームからサブフォームへの検索について

アクセスを勉強中の初心者です。是非教えて下さい。
請求書入力フォームを作成したので、別のフォームで請求書一覧を作成しています。その請求書一覧は、サブフォームにデータシート形式で[請求No.]、[年]、[月][社名]、[金額]が一覧にでるようになっています。その元になっているクエリの条件のところに、[年]→Like [Forms]![請求一覧]![年検索] & "*"
[月]→Like "*" & [Forms]![請求一覧]![月検索] & "*"
[社名]→Like "*" & [Forms]![請求一覧]![社名検索] & "*"
を入力しています。
ここからですが、サブフォームの上に[年検索][月検索][社名検索]のコンボボックスと[検索ボタン]があって、それぞれコンボボックスから選択後、ボタンを押したら、その対象の年や月、もしくは社名に沿ったデータがサブフォームに出るようにしたいのです。検索ボタンのクリックイベント後のところにどういう命令文を書けばいいのでしょうか。マクロの再クリエなどで設定してもどうにもなりません。マクロもVBAがまだ理解できていないので、教えていただければ幸いです。よろしくお願い致します。

アクセスを勉強中の初心者です。是非教えて下さい。
請求書入力フォームを作成したので、別のフォームで請求書一覧を作成しています。その請求書一覧は、サブフォームにデータシート形式で[請求No.]、[年]、[月][社名]、[金額]が一覧にでるようになっています。その元になっているクエリの条件のところに、[年]→Like [Forms]![請求一覧]![年検索] & "*"
[月]→Like "*" & [Forms]![請求一覧]![月検索] & "*"
[社名]→Like "*" & [Forms]![請求一覧]![社名検索] & "*"
を入力しています。
ここからですが、サブ...続きを読む

Aベストアンサー

質問の回答としては、
Me![サブフォーム名].Requery
です。
マクロの再クエリがどういう風に動作するのか知りませんが、多分 Requery と同じでしょう。
すると、別に問題があるんでしょうね。

物を見てみないことには、わからないのですが、いくつか気がついたことを書きます。

まず、[請求一覧]は親フォームの名前でしょうか。
サブフォームが請求書一覧だということなので、サブフォームの名前のようにも見えますが。

つぎに、クエリーの抽出条件は、同じ行に書いていますか?
どういう動作を期待しているのかにもよりますが、抽出条件を同じ行に書けば、条件1 AND 条件2 AND 条件3 AND ・・・・ですので、全部の条件が満たされたレコードを抽出します。
全部別の行に書けば、条件1 OR 条件2 OR 条件3 OR ・・・・ です。

親フォームと子フォーム(サブフォーム)はリンクしていませんね?
私の理解するところでは、親フォームは抽出条件を記入するフォームで、どのテーブル・クエリーも基にしていないですよね。そういう場合は、たしか、そもそも親子でリンクできないはずです。
ただ、親フォームがテーブル・クエリーを基にしている場合は、親子がリンクできてしまいますが、多分そうすると、目的に合わないでしょう。

申し訳ないですが、いつもここを見ているわけではないので、再度ご質問いただいても、すぐに答えられないかもしれません。
ただ、上記の点を確認していただけば、別の方が別のアイデアを書いてくれるかもしれません。

質問の回答としては、
Me![サブフォーム名].Requery
です。
マクロの再クエリがどういう風に動作するのか知りませんが、多分 Requery と同じでしょう。
すると、別に問題があるんでしょうね。

物を見てみないことには、わからないのですが、いくつか気がついたことを書きます。

まず、[請求一覧]は親フォームの名前でしょうか。
サブフォームが請求書一覧だということなので、サブフォームの名前のようにも見えますが。

つぎに、クエリーの抽出条件は、同じ行に書いていますか?
どういう動作を...続きを読む

Qアクセスでフォームに追加項目を増やす場合、サブフォームにしたほうがよいのか、しないほうがよいのか教えてください。

Access2003を使用しています。
「取引先マスタ」という取引先の住所などが入ったフォームに契約書に関するデータも入力できるようにして欲しいと依頼が入りました。
それは契約の種別ごとに「契約締結日」、「取引先契約者」、「弊社担当者名」を設けます。
このような場合、契約書に関するデータは別のテーブルに入力してサブフォームにしたほうがよいのでしょうか?
それとも「取引先マスタ」と同じフォームのなかに入れたほうがよいのでしょうか?
あとで支障が出にくい方法をとりたいのですが、Accessに熟練されている方はどちらの方法を取られているのでしょうか?
アドバイスをお願いいたします。

Aベストアンサー

基本的な考え方としてはテーブル構成の正規化を考える必要があります。
「取引先マスタ」に契約書に関するデータを追加する場合、同じ取引先で契約が追加されたり、複数の契約が発生することはないのでしょうか?

取引先1件に関して必ず1契約のみであれば、取引先マスタに必要な項目を追加することも考えられると思いますが、一般的には契約内容を登録する別テーブルに、「取引先コード」、「契約種類」、「契約締結日」、「取引先契約者」、「弊社担当者名」などのフィールドを作成し、取引先コードでリレーションシップを作成することが一般的かと思います。

その上でサブフォームなどを作成し、画面で複数契約を同時に確認できるようにするか、フィルタなどを使い契約の種類を条件にして対象を絞り込むように作る方が後々支障が出にくいと思います。

Qアクセスで サブフォームの表示について

前任者の引継ぎで在庫管理・発注書等をつくっています。
発注書フォームでサブフォームを使用しています。
サブフォームの画面は固定できますか?

サブフォームの下にスクロールが出て、最後まで入力すると
サブフォームが左に動き、空白部分が表示されてしまい、
特定のマシンでは何故かTAB移動が使えず
いちいち次のレコードに入力するのにスクロールを移動して
最初の項目に移動するのでとても面倒です。

TAB移動ができないのはこちらの環境なので仕方がないのですが
せめてスクロールはなしにしたいと思っています。
知り合いにこういう仕様なので無理と言われましたが
やはり無理ですか?

Aベストアンサー

図形を調整している途中で間違えて送ってしまったので
非常に見にくいですが、雰囲気は伝わったでしょうか?

なお、印刷しなければいけないというのはまた別の話になりそうなので
とりあえず表示についてだけ書いてみました。

QAccess データアクセスページでサブフォーム

タイトル、可能文字数が少なくて入れにくいですね。

と、愚痴ってしまいましたが、質問の内容は以下のとおりです。

環境:
・Win Xp Pro
・Access2002

顧客情報を表示、検索するフォーム(サブフォームあり)を作成しました。

あまりセキュリティ上、ガチガチのロックは必要ない情報ですので、DBパスワードのみ設定しています。

ただ、フォームのデザインを弄られたくないのと、利便性を考え、データアクセスページに変換しようと思っています。

ただ、上記顧客情報のフォームを、「名前をつけて保存」し、データアクセスページ形式を選択したところ、サブフォームが無視されてしまいました。

そこで、ウィザードを使って作ろうとしましたが、基になるクエリがひとつしか選択できないため、サブフォーム(別クエリが基になっており、メインフォームと顧客番号でリンクさせています)を追加できません。


ネットで調べても、あまり有意義な回答を得られませんでしたので、質問させていただきました。


ご存知のかたがいらっしゃいましたら、ご教授下さい。


よろしくお願いいたします。

タイトル、可能文字数が少なくて入れにくいですね。

と、愚痴ってしまいましたが、質問の内容は以下のとおりです。

環境:
・Win Xp Pro
・Access2002

顧客情報を表示、検索するフォーム(サブフォームあり)を作成しました。

あまりセキュリティ上、ガチガチのロックは必要ない情報ですので、DBパスワードのみ設定しています。

ただ、フォームのデザインを弄られたくないのと、利便性を考え、データアクセスページに変換しようと思っています。

ただ、上記顧客情報のフォームを、「名前をつけて保存」し、デ...続きを読む

Aベストアンサー

ウィザードでは多分無視されるというか、
もともと、データアクセスページには
「サブフォーム」という概念が無いのではないでしょうか?
(データアクセスページはWebページのため)

データ アクセス ページへのページの埋め込み
http://msdn.microsoft.com/ja-jp/library/aa139975(office.10).aspx

QAccess フォームで検索した結果をフォームで表示するときにあいまい検索をしたい

Access2003を使用して、検索フォームをつくり、検索結果を別フォームへ表示させるプログラムを組みました。
その際に、かな検索をするとかなが完全一致でないと検索されません。
あいまい検索にてかな検索をする方法はありませんでしょうか?

ソースは以下の通りです。
Private Sub cmdSearch_Click()
On Error GoTo Err_cmdSearch_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(70) & ChrW(95)

stLinkCriteria = "[カナ氏名]=" & "'" & Me![カナ氏名] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdSearch_Click:
Exit Sub

Err_cmdSearch_Click:
MsgBox Err.Description
Resume Exit_cmdSearch_Click

End Sub

Access2003を使用して、検索フォームをつくり、検索結果を別フォームへ表示させるプログラムを組みました。
その際に、かな検索をするとかなが完全一致でないと検索されません。
あいまい検索にてかな検索をする方法はありませんでしょうか?

ソースは以下の通りです。
Private Sub cmdSearch_Click()
On Error GoTo Err_cmdSearch_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(70) & ChrW(95)

stLinkCriteria = "[カナ氏名]=" & "'" & Me...続きを読む

Aベストアンサー

>stLinkCriteria = "[カナ氏名]=" & "'" & Me![カナ氏名] & "'"
stLinkCriteria = "[カナ氏名] Like '*" & Me![カナ氏名] & "*'"
でしょうか?


人気Q&Aランキング

おすすめ情報