Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
812 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【9992】複数条件がうまくいきません ＢＯＯ 07/11/19(月) 13:16 質問[未読]
【9993】Re:複数条件がうまくいきません 小僧 07/11/20(火) 10:04 発言[未読]
【9995】Re:複数条件がうまくいきません ＢＯＯ 07/11/20(火) 19:49 回答[未読]
【9999】Re:複数条件がうまくいきません 小僧 07/11/21(水) 10:36 発言[未読]
【10000】Re:複数条件がうまくいきません ＢＯＯ 07/11/21(水) 11:37 質問[未読]
【10002】Re:複数条件がうまくいきません 小僧 07/11/21(水) 12:38 回答[未読]
【9992】複数条件がうまくいきません
質問  ＢＯＯ E-MAIL  - 07/11/19(月) 13:16 -
引用なし
パスワード
   検索画面を作成し、そこで複数条件で、データを抽出したいんですが、うまくいきません。アクセス初心者なので、簡単な方法で教えていただきたいのですが、
よろしくお願いいたします。
【9993】Re:複数条件がうまくいきません
発言  小僧  - 07/11/20(火) 10:04 -
引用なし
パスワード
   ▼ＢＯＯ さん：
こんにちは。

まず、画面上部の

>本サイトの基本方針をまとめました。こちら をご一読ください。

の こちら のリンク先をお読みになって下さい。

> してはいけない質問について

の 丸投げに相当していませんか？


現在の検索画面はどのようなものなのか
・連結／非連結フォーム
・単票／帳票フォーム等

条件一つだと抽出ができるのか
またその場合どのような方法で抽出をしているのか

など、御自分でどこまでできていて、何が解らないのかを明確にご提示すれば
もっと回答がつきやすくなると思われます。
【9995】Re:複数条件がうまくいきません
回答  ＢＯＯ E-MAIL  - 07/11/20(火) 19:49 -
引用なし
パスワード
   小僧さん

失礼いたしました。
決して、丸投げをしている訳ではないのですが・・・・。
どのような質問の仕方をすればよいのかわからず、記入してしまいました。
すみません。

具体的に記入します。

顧客テーブルと顧客テーブルのレコードを単票形式で表示するメインフォームを作成しています。
構成は
顧客番号
顧客氏名
顧客カナ
登録月
他です。

検索画面フォームを別に作成し、顧客番号、氏名、カナ、登録月の検索項目とし、メインフォームと連動させたいのです。

メインフォームに連動させるのがうまくいきません。
クエリで抽出する方法があればご指導お願いいたします。

>現在の検索画面はどのようなものなのか
>・連結／非連結フォーム
>・単票／帳票フォーム等
>
>条件一つだと抽出ができるのか
>またその場合どのような方法で抽出をしているのか
>
>など、御自分でどこまでできていて、何が解らないのかを明確にご提示すれば
>もっと回答がつきやすくなると思われます。
【9999】Re:複数条件がうまくいきません
発言  小僧  - 07/11/21(水) 10:36 -
引用なし
パスワード
   ▼ＢＯＯ さん：
こんにちは。

クエリを使ってもできるのですが、
今回はフィルタを使って抽出する方法を考えてみようと思います。

・メインフォーム上のコマンドボタンを押すと検索用のフォームが開く

・検索用のフォームに条件を入れて閉じると、
　条件に応じた結果がメインフォームに表示される

の様な流れになるのでしょうか。


あと2点、仕様の確認です。

>顧客番号

こちらは数値型、テキスト型のどちらになるでしょうか。


>顧客氏名
>顧客カナ

この2つについては完全一致で大丈夫なのでしょうか。
部分一致にした方が良さそうな気もしますね。
【10000】Re:複数条件がうまくいきません
質問  ＢＯＯ E-MAIL  - 07/11/21(水) 11:37 -
引用なし
パスワード
   ▼小僧 さん：

こんにちは。

ご返信いただき、ありがとうございます。
ご返答いただき、うれしいです。

流れは小僧さんがお考えになっている流れです。

仕様ですが、顧客番号はテキスト型で顧客氏名、顧客カナは完全一致ではなく、部分一致で検索し、検索項目のどれかが空欄でも検索可能という状態にしたいです。

お手数ですが、よろしくお願いいたします。
【10002】Re:複数条件がうまくいきません
回答  小僧  - 07/11/21(水) 12:38 -
引用なし
パスワード
   ▼ＢＯＯ さん：
こんにちは。

ではまず検索フォームを作ります。

適当にデザインビューでフォームを作り、
詳細部にテキストボックスを4つ(全て非連結で)

txt顧客番号
txt顧客氏名
txt顧客カナ
txt登録月

作ります。

また、フォームのヘッダー(またはフッター)に
コマンドボタンを２つ
cmd抽出
cmbキャンセル

を配置します。


cmd抽出を 右クリック ⇒ イベントのビルド でVBEの画面を表示させ、

Private Sub cmd抽出_Click()
Dim strFilter As String

'txt顧客番号がNullでなかった場合は顧客番号でフィルタ
　　If Not IsNull(Me.txt顧客番号) Then
　　　　strFilter = "顧客番号 = '" & Me.txt顧客番号 & "'"
　　End If

'メインフォームにフィルタを設定
　　Forms![メインフォーム].Filter = strFilter
　　
'変数：strFilter が空だった場合はフィルタを掛けない
　　Forms![メインフォーム].FilterOn = (strFilter <> "")
　　
'フォームを閉じる
　　DoCmd.Close acForm, Me.Name
End Sub


の様に記述します。

まずは顧客番号のみの完全一致で動作したら、
次の作業にすすんでみましょう。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
812 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078201
(SS)C-BOARD v3.8 is Free