こんにちは。
アクセスの2000を使用しております。テーブルで顧客リストなる基データ(約5000件)は既に作成済みで、フォームにて、基データを表示させております。で、5000件のリストにはそれぞれ11~15桁のIDが割り振られています。
そこで質問なのですが、例えばそのID、もしくは名前、会社名(どれか一つだけを入力)を入力して、該当データを一箇所に抽出するという方法はどのようにしたら良いでしょうか??
何分初心者なものですので、噛み砕いて教えていただければと思いますのでよろしくお願い致します。
Webページ等があればそちらも、記載して頂けたら幸いです。
No.2ベストアンサー
- 回答日時:
色んなやり方が考えられます。
ここでは、検索パラメータを入力するフォームを用意する方法を示します。
<顧客名簿>
ID____名前_______フリガナ________会社名_郵便番号_都道府県_市区町村_番地_ビル等
1_____鈴木 一郎__スズキ イチロウ_関西組
2_____中村 太郎__ナカムラ タロウ_関東組
3_____山田 信次__ヤマダ シンジ___関東組
<検索フォーム>
ID:_____[________]
名前:___[_______________]
会社名:_[関東______________]
<検索結果>
2_____中村 太郎__ナカムラ タロウ_関東組
3_____山田 信次__ヤマダ シンジ___関東組
*表示フォーム=帳票ですと、このように表示されます。
さて、以下は、検索コマンドボタンのイベントに書いたコードです。
Private Sub cmdLookupCustList_Click()
On Error Resume Next
Dim stLinkCriteria As String
' ----------------------------
' [ID] が指定されている場合
' ----------------------------
stLinkCriteria = IIf(Nz(Me.ID) > 0, "[ID]=" & Me.ID, "")
If Len(stLinkCriteria & "") = 0 Then
' ---------------------------------------------------
' [ID] が指定されていない場合のみ他の検索条件を採用
' ---------------------------------------------------
stLinkCriteria = IIf(Len(Me.名前 & "") > 0, _
"[名前] LIKE '" & Me.名前 & "*'", _
"")
If Len(stLinkCriteria & "") > 0 Then
' ----------------------------------------------------
' [名前] が指定されていれば、AND文にするか否かを判定
' ----------------------------------------------------
stLinkCriteria = IIf(Len(Me.会社名 & "") > 0, _
stLinkCriteria & " AND [会社名] LIKE '" & Me.会社名 & "*'", _
stLinkCriteria)
Else
' -------------------------------------------------------------------
' [名前] が指定されていなければ、[会社名]の指定の有無で条件文を作成
' -------------------------------------------------------------------
stLinkCriteria = IIf(Len(Me.会社名 & "") > 0, "[会社名] LIKE '" & Me.会社名 & "*'", _
"")
End If
End If
If Len(stLinkCriteria & "") > 0 Then
DoCmd.OpenForm "顧客名簿", , , stLinkCriteria, acFormReadOnly
Else
MsgBox "検索条件が不明です!", vbInformation, " お知らせ"
End If
End Sub
No.1
- 回答日時:
そのテーブルを基にクエリを作成します。
その際にたとえばIDを検索したい場合は、抽出条件の欄に "[IDは?]"("は不要)としておけば、そのクエリを開くと、"IDは?" と聞いてきます。IDを入力してやればそのIDが検索されます。そのクエリを元にフォームを作れば、フォームを開くとIDを聞いてくるようになります。
参考URL:http://www.accessclub.jp/beginer/index.html
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBAのリストボックスの値を他のフォームに反映させる方法を教えてください。 2 2023/07/14 14:06
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- PHP htmlで複数の個数入力欄を表示させるには 1 2022/09/20 03:11
- その他(プログラミング・Web制作) Windowsのマクロプログラムで、こんなことできますか? 3 2022/06/28 14:30
- Excel(エクセル) 【Excel】指定した文字列に該当する行を重複しないようにリスト 3 2022/03/30 12:27
- Access(アクセス) access レポート 請求書について 2 2022/07/04 22:52
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
- その他(データベース) pythonでsqlight勉強中、クエリー結果の利用法教えて下さい 1 2022/04/28 20:38
- JavaScript Q&Aの掲示板を作成していてヤフー知恵袋やgoo質問のように質問ごとにURLを生成したい 5 2023/08/04 01:22
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスのフォームにカンマ区...
-
SQL*Loader
-
ACCESS2003 でクエリの抽出条件...
-
Access2000で文字列中の半角ス...
-
ACCESS マクロで検索に...
-
where条件式であいまい検索がし...
-
Accessでの電話番号下4桁での検...
-
パススルークエリの動的パラメ...
-
Accessの検索フォームで。
-
アクセスでの検索回数and 検索...
-
Access テキストボックスとlik...
-
Accessのフォームで、当該デー...
-
年月日を持つテーブルから年月...
-
複数条件検索について
-
Access レポート印刷するときに...
-
データベースのINT型項目にNULL...
-
passwordが入れられません・・・・
-
YahooのIDがロックされてしまい...
-
アクセスでテキストボックスの...
-
ACCESS フォームをそのまま印刷...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SQL*Loader
-
検索フォームで空白を抽出したい
-
年月日を持つテーブルから年月...
-
Access2000で文字列中の半角ス...
-
VBAからクエリのパラメータを設...
-
Accessのフォームで、空欄のレ...
-
access 検索フォームで検索が...
-
AccessにてExcelファイル名にパ...
-
アクセス マクロのメッセージ...
-
複数条件検索について
-
Access2007のサブフォームのReq...
-
アクセスのフォームにカンマ区...
-
ACCESS2003 でクエリの抽出条件...
-
ACCESS マクロで検索に...
-
ACCESSのフォーム上で複数検索...
-
Accessの検索フォームで。
-
Access テキストボックスとlik...
-
パススルークエリの動的パラメ...
-
DBソフト ACCESS:検索フォー...
-
Accessでの電話番号下4桁での検...
おすすめ情報