締切済み

アクセスのフォームから検索を作成する場合

2012/07/11 13:11

始めまして、今アクセスを使って顧客管理を作成しています。フォームで検索を出来るようにしたいのですが、ひとつの検索ボタンで、検索方法が、お客様コード・お客様名（漢字・ふりがな）・電話番号が検索できるやり方がしりたいです。よろしくお願いします。

puchisakurannbo
お礼率32% (153/470)

オフィス系ソフト
回答数4
ありがとう数1

みんなの回答 （4）
専門家の回答

みんなの回答

piroin654
ベストアンサー率75% (692/917)

2012/07/28 03:26 回答No.4

うっかり。No1の訂正です。テーブルのフィールドの名前を以下のようにしてください。No1の回答の最初の部分です。テーブルの名前を tbl顧客とします。フィールドは、お客様コード（主キー）　　テキスト型お客様名　　　　　　　　　テキスト型ふりがな　　　　　　　　　テキスト型住所　　　　　　　　　　　テキスト型電話番号　　　　　　　　　テキスト型年令　　　　　　　　　　　テキスト型など、としておきます。

ログインすると、全ての回答が全文表示されます。

piroin654
ベストアンサー率75% (692/917)

2012/07/28 03:19 回答No.3

＞（１）に関しては、全てです。一般的な表形式の提案をしてみます。サブシート形式も同じことではありますが。なお、単票形式はあれこれと面倒なのでここでは割愛しておきます。（と言うよりも回答が長くなるので。）テーブルの名前を tbl顧客とします。フィールドは、顧客ID（主キー）　テキスト型顧客名　　　　　　テキスト型ふりがな　　　　　テキスト型住所　　　　　　　テキスト型電話番号　　　　　テキスト型年令　　　　　　　テキスト型など、としておきます。 (1) フォームの新規作成から「オートフォーム表形式」を選択し、「基になるテーブルまたはクエリの選択」で、「tbl顧客」を選択し、OKとします。出来たフォームを仮に「F顧客名簿」とします。 (2) 出来たフォームをデザインビューで開き、詳細のところにマウスのカーソルを当て、十字になったら右クリックして下に3cmくらい下げます。残ったラベルも全て選択して詳細にくっつけ保存します。次に、フォームにコンボボックスを一つ、テキストボックスを一つ、ボタンを二つ設定します。それぞれのプロパティから名前を以下のようにします。コンボボックス　　　　　cmb検索設定テキストボックス　　　　tx検索キーワードボタン　　　　　　　　　cmd検索　　　　　（標題を検索）ボタン　　　　　　　　　cmd全件表示　　　（標題を全件表示） (3) コンボボックスのプロパティを開き、「値集合タイプ」を「値リスト」にし、そこに "お客様コード";"お客様名";"電話番号";"ふりがな" を貼り付けてください。右クリックからズームを選択して貼り付けてOKとしてもいいです。 (4) 次に、ボタンの「cmd検索」のプロパティからクリック時のイベントを選択し、右端をクリックし、「コードビルダ」を選択しコード表を以下のように設定してください。 Private Sub cmd検索_Click() 　　If Me!cmb検索設定 = "" Then Exit Sub 　　If Me!tx検索キーワード = "" Then Exit Sub 　　Select Case Me!cmb検索設定　　Case "お客様コード" 　　　　'あいまい検索をするなら以下を　　　　Me.Filter = "お客様コード Like ""*" & Me!tx検索キーワード & "*""" 　　　　'完全一致ならば以下　　　　'Me.Filter = "お客様コード = "" & Me!tx検索キーワード & """ 　　　　Me.FilterOn = True 　　Case "お客様名" 　　　　Me.Filter = "お客様名 Like ""*" & Me!tx検索キーワード & "*""" 　　　　Me.FilterOn = True 　　Case "電話番号" 　　　　Me.Filter = "電話番号 Like ""*" & Me!tx検索キーワード & "*""" 　　　　Me.FilterOn = True 　　Case "ふりがな" 　　　　Me.Filter = "ふりがな Like ""*" & Me!tx検索キーワード & "*""" 　　　　Me.FilterOn = True 　　Case Else 　　　　Me.FilterOn = False 　　　　Exit Sub 　　End Select End Sub (5) 次に、ボタンの「cmd全件表示」のクリック時のイベントを以下のように設定してください。 Private Sub cmd全件表示_Click() 　　Me.FilterOn = False End Sub (6)　操作方法コンボオックスで検索対象のフィールドを選択し、テキストボックスの「tx検索キーワード」に入力してボタンを押して検索します。たとえば、「お客様コード」を検索する場合、「お客様コード」が、ABC123BBAなどのような場合、「あいまい検索」で行なうと、テキストボックスに「ABC」と入れると「お客様コード」に「ABC」が含まれるレコードを抽出します。もちろん、「123」あるいは「C123BB」。その他のフィールドの検索についても同じです。 (7) その他、(5)の操作はフィルタを解除して全件を表示するイベントです。なお、「FilterOn」　や　「あいまい検索」についてはネットやヘルプで確認しください。わからないところがあれば、補足してください。

ログインすると、全ての回答が全文表示されます。

piroin654
ベストアンサー率75% (692/917)

2012/07/18 02:31 回答No.2

日にちがたっていますが、解決しましたか。もし、解決していないのであれば、 (1) 検索フォームは、単票フォーム、帳票フォーム、サブフォームを持つ、のどれでしょうか。 (2) ＞お客様コード・お客様名（漢字・ふりがな）・電話番号のなかで、お客様名（漢字・ふりがな）はテーブルには漢字で書いたフィールドと、ふりがなのフィールドは別々にあるということでいいですか。つまりお客様コードお客様名ふりがな電話番号・・住所・・などのフィールドがあると考えていいでしょうか。

質問者