![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
現在、システム開発の勉強中です。
タグコントロールを用いて、請求データを月ごとに抽出できるようにしたいのですが、サブフォームのソースオブジェクトである抽出クエリの年月日フィールドとは別に抽出月:Month([年月日])のフィールドを設け抽出条件に
[Forms]![請求データ照会F].[抽出条件lbl].[Caption]
とし、請求データのフォーム上に可視しないラベルを作り、そのラベルがタグをクリックしたときのイベントで返される値を受け取り、抽出に反映させるというプログラムを作りました。
以下、タブをクリックしたときのプログラミングです。
Private Sub 月別タブ_Change()
Select Case Me!月別タブ
Case 0: Me!抽出条件lbl.Caption = 1
Case 1: Me!抽出条件lbl.Caption = 2
Case 2: Me!抽出条件lbl.Caption = 3
省略
Case 11: Me!抽出条件lbl.Caption = 12
Case 12: Me!抽出条件lbl.Caption = ???
End Select
Me!請求データSubF.Requery
End Sub
とりあえず、このプログラミングでやりたかったことは実行できたのですが、Case 12は請求データ全て表示にしたいのですが、どうすれば全レコード表示になるかが判りません。
説明がわかりづらかったら申し訳ありません。
アドバイスをいただけると幸いです。宜しくお願いいたします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
Private Sub 月別タブ_Click()
Me.抽出条件.Caption = Me.月別タブ.SelectedItem
Me!請求データ.Requery
End Sub
月別タブに、1、2、・・・・、11、12、* としておけば、これだけでOKです。
もちろん、Select Case 文で Me.月別タブ.SelectedItem と同じ文字列を生成しても構いません。
Case 12: Me!抽出条件.Caption = "*"
SELECT Test.ID, Test.請求日, Test.請求金額, Month([請求日]) AS 請求月, * FROM Test
WHERE Month([請求日]) Like Forms!フォーム1!抽出条件.caption;
この回答への補足
>Me.抽出条件.Caption = Me.月別タブ.SelectedItem
とありますが、「SelectedItemのデータメソッドがありません」といったような内容のエラーメッセージが出るため、この方法は使えませんでした。ちなみにAccess2000なのですが、関係あるのでしょうか?
Husky2007さんの回答プログラミングは感覚として意味は伝わったので、こんなにスッキリしたプログラムに出来る可能性は見えました☆
>もちろん、Select Case 文で Me.月別タブ.SelectedItem と同じ文字列を生成しても構いません。
ということで、質問文で???の部分を"*"としましたが、反応なしです。
何か抜けているのでしょうか?
>月別タブに、1、2、・・・・、11、12、* としておけば、これだけでOKです。
とありますが、月別タブの何を上記のようにしておくのでしょうか?標題?名前?それ以外??
とんちんかんな事を言っていたら申し訳ありません。
データベースプログラミングの参考例題を元に、独学で練習中の為、要領を得ていません^^;
お時間あるときで構いませんので補足をお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) Sheet2の日付をキーにオートフィルターで2023年1月のデータを抽出し、Sheet3へ書き出すた 2 2023/03/06 23:57
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
- Access(アクセス) access レポート 請求書について 2 2022/07/04 22:52
- Excel(エクセル) エクセルでINDEXとMACTHで出てきたデータの数を数えるには? 1 2023/04/25 10:21
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Excel(エクセル) エクセルで重複データを行ごとに抽出したい 4 2022/12/05 08:18
- Access(アクセス) accessの日付フィールドから前年度だけを取り出したい 3 2022/04/13 23:13
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
開発タブのデザインモードがグ...
-
エクセル画面の”1ページ”とい...
-
WORDで目次を作成しているので...
-
タブが重なると不便
-
フォルダーのアイコンの変更が...
-
グーグルクロムタブでPDFを開く...
-
excelエクセルで関数MAXを使う...
-
Microsoft Edge で不明のメッセ...
-
Win10でのスライドショー
-
Excel 画面表示を元に戻したい
-
VB2005 DataGridがない
-
PDFファイルが開くのですが...
-
Gmailで 受信メールを開く際に...
-
サイトを開くと勝手に別のタブ...
-
ピン留めしたタブが消えた
-
firefoxのタスクバー上にカーソ...
-
Windows7の画面表示
-
Win10のトップ画面の各国言語表...
-
プロパティの詳細タブが消えました
-
word2003の文章中の記号の編集方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
開発タブのデザインモードがグ...
-
サイトを開くと勝手に別のタブ...
-
エクセル画面の”1ページ”とい...
-
WORDで目次を作成しているので...
-
ワードの画面が大きくなって、...
-
プロパティの詳細タブが消えました
-
PDFファイルが開くのですが...
-
Win10でのスライドショー
-
Excel 画面表示を元に戻したい
-
Gmailで 受信メールを開く際に...
-
グーグルクロムタブでPDFを開く...
-
VB2005 DataGridがない
-
windows8 エクスプローラ プ...
-
フォルダーのアイコンの変更が...
-
excelエクセルで関数MAXを使う...
-
Microsoft Edge で不明のメッセ...
-
インターネット時刻。前回の同...
-
RUNがない?
-
タブが重なると不便
-
Windows7の画面表示
おすすめ情報