Access初心者のものです。
Accessで商品管理のデータベースを作成しています。
主なテーブルの内容は、
商品番号、商品名、メーカー名、仕入数、仕入単価、販売数、販売単価、などです。
今度は、在庫一覧のフォームを帳票フォームで作りました。そこで、入荷数、販売数などを入力し、現在庫状況をみれる形にしました。
そこでですが、そのフォームである特定の商品を探す際にメーカー名という一つのフィールドに関して抽出する方法はある本を見て抽出することができました。
以下は本をみていれたものです。
-----------------------------------------
「仕入先抽出_コマンド」 → 抽出開始の為のコマンドボタン
「仕入先抽出条件」 → 抽出したい仕入先名を入力するテキストボックス名
「仕入先」 → 抽出をかける仕入先のフィールド
Private Sub 仕入先抽出_コマンド_Click()
If IsNull(Me!仕入先抽出条件) = True Then
Beep
MsgBox "抽出する仕入先を選んでください。", _
vbOKOnly + vbInformation, "抽出仕入先チェック"
Me!仕入先抽出条件.SetFocus
Exit Sub
End If
Me.Filter = "仕入先 = '" & Me!仕入先抽出条件 & "'"
Me.FilterOn = True
If Me.Recordset.RecordCount = 0 Then
Beep
MsgBox "仕入先抽出条件と一致するレコードは存在しません!", _
vbOKOnly + vbInformation, "レコードなし"
Me!仕入先抽出.SetFocus
End If
End Sub
-----------------------------------------
ここで抽出したものから更に、メーカー名で抽出をかけて絞り込みしたいと考えております。
できれば2段階、3段階(商品情報は仕入先、メーカー名以外にもあるので…)といきたいのですが、何か方法がありますでしょうか?
宜しくお願致します。
No.1ベストアンサー
- 回答日時:
解答付きませんね・・・
参考例で上げときますね
Private Sub 仕入先抽出_コマンド_Click()
Dim usFilter As String
usFilter = ""
If IsNull(Me!仕入先抽出条件) Then
usFilter = "仕入先 = '" & Me!仕入先抽出条件 & "'"
End If
' フォームに「Me!メーカー名抽出条件」がある前提
If IsNull(Me!メーカー名抽出条件) Then
usFilter = IIf(usFilter = "","",usFilter & " And ") & _
"メーカー名 = '" & Me!メーカー名抽出条件 & "'"
End If
' この後、If IsNull(Me!メーカー名抽出条件) ThenからEndIfまでを繰り返すだけ
If usFilter = "" then
Me.FilterOn = False
Else
Me.Filter = "仕入先 = '" & Me!仕入先抽出条件 & "'"
Me.FilterOn = True
If Me.Recordset.RecordCount = 0 Then
Beep
MsgBox "仕入先抽出条件と一致するレコードは存在しません!", _
vbOKOnly + vbInformation, "レコードなし"
Me!仕入先抽出.SetFocus
End If
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで、抽出したデータだ...
-
Accessで複数のクエリの抽出条件
-
access クエリ yes/no型のクエ...
-
エクセル VBA メール本文に指定...
-
X-Ripperというフリーウェアに...
-
Accessで○ヶ月前以前を抽出する...
-
アクセス 同じフィールド(テキ...
-
フォームのテキストボックスで...
-
未審査請求包袋抽出表作成とは...
-
エクセルで色の付いたセルを抽...
-
EXCEL関数 MAX関数と複合的に...
-
【Access】条件未入力時、全件...
-
[javascript] 正規表現で特定文...
-
Accessの選択クエリの抽出条件...
-
Access サブフォームでの選択行...
-
サブフォームでフィルタしたデ...
-
アクセエスのレコードの更新をV...
-
ACCESS 複数のフォームから同一...
-
AccessでIDを入力したら他の項...
-
AccessのFormのみをスクリーン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで、抽出したデータだ...
-
「パラメータが少なすぎます。3...
-
PDFファイル/抽出許可され...
-
X-Ripperというフリーウェアに...
-
【AccessVBA】レコードセットOp...
-
未審査請求包袋抽出表作成とは...
-
PDFファイルから特定の文字を検...
-
ACCESSのクエリー抽出条件にIIF...
-
エクセル関数で住所から丁目番...
-
access クエリ yes/no型のクエ...
-
Excel 文字列から6桁の数値の抽出
-
Access チェックボックスを利用...
-
AccessのWHERE句において、変数...
-
アクセス 同じフィールド(テキ...
-
エクセル VBA メール本文に指定...
-
エクセルで色の付いたセルを抽...
-
PCゲーム 音声 画像 抽出方法
-
Accessの選択クエリの抽出条件...
-
ACCESSのフォームからレポート...
-
アクセスのテキストボックスでO...
おすすめ情報