アクセスを勉強中ですがいまいちです。
2つの抽出条件に該当するレコードを抽出させたいのですが、やり方がわかりません。
教えてください!
(1)以下のようなテーブルを1枚作成。
職場名、氏名、社員No.、年、月
A-G、本多、012345、2003、10
A-G、鈴木、123456、2003、10
A-G、豊田、234567、2003、10
A-G、本多、012345、2003、11
A-G、鈴木、123456、2003、11
A-G、山羽、934567、2003、11
B-G、夏目、001234、2003、10
B-G、北原、012345、2003、10
B-G、松尾、023456、2003、10
B-G、夏目、001234、2003、11
B-G、北原、012345、2003、11
B-G、松尾、023456、2003、11
C-G、榎本、777012、2003、10
C-G、板垣、770123、2003、10
C-G、伊藤、701234、2003、10
C-G、豊田、234567、2003、11
C-G、板垣、770123、2003、11
C-G、伊藤、701234、2003、11
(2)検索フォームと結果表示フォームの2つを作成
a.結果表示フォーム
bで検索した結果を表示するフォーム(単票形式で個々の情報が表示される)
b.検索フォーム
「職場」「日付」のコンボボックスと「検索」ボタンを設置。
要は、検索フォームで2つの条件(職場,日付)に合致した情報をaで表示させたい!!
ですが今のところ、"職場"だけは条件通り出てくるのですが、日付が条件として読み取ってくれません。
わかるかたがいましたら、教えて頂きたいです。
No.3ベストアンサー
- 回答日時:
う~ん。
検索の表示とテーブルのデータ構造が違うのが気になるなぁ。っていうか、めんどくさい仕様だな。
手っ取り早く言うと、
stLinkCriteria = "[所属名称]=" & "'" & Me![所属名称] & "'"
に#2の方が言われている'And'でつなげた条件式を追加すればよいのです。
これが、フォームaに表示されるデータの検索式そのものだからです。
具体的に言うと、
stLinkCriteria = "[所属名称]='" & Me![所属名称] & "' And [年]=" & Me![年] & " And [月]=" & Me![月]
というようにします。
ただし、フォームbには[年][月]というオブジェクトがないようなので、このままではエラーになります。
フォームbに[年][月]というテキストボックスを作って、「cmb日付」の更新後処理(AfterUpdate)で[年][月]にデータを入れるようにコードを書いてやればOKです。
この類の処理は、ヘルプでSQLという項目をご覧になると、最初はチンプンカンプンですが、だんだんわかってきます。
また、日付はデータ形式を日付にした方が、いろいろと処理が楽になります。何日後とか何か月前とか。
ただ、検索条件のときはリテラル文字列という形式にしなければならないので、ちょっと面倒です。
御礼が大変遅くなり、申し訳ございませんでした。
未だに"マクロ"は大きな壁ですが、この問題に関しては、なんとかなりました。ありがとうございました!!
No.1
- 回答日時:
恐らく、日付の書式が間違っているのだと思います。
テーブルの年と月のデータ形式はどのようになっていますか?数値ですか?
bの「日付」の形式はどのようになってますか?
検索の具体的な方法は?SQLですか?
コードなどできるだけ詳しく補足してください。
この回答への補足
はぃ、確かに日付の書式、自信ありません。。。
テーブルの年と月のデータ形式は数値です。
bの「日付」の形式は、数値型と言えるのでしょうか・・・
以下はcmb日付の詳細です。
--------------
■cmb日付に表示するデータとしてテーブル「年月」を以下のように作成し、コンボボックスを作った
A列 B列 ---いづれも数値型
【年】 【月】
2003 10
2003 11
2003 12
2004 1
2004 2
2004 3
■cmb日付プロパティ
値集合タイプ:テーブル/クエリー
値集合ソース:SELECT DISTINCTROW 年月.年, 年月.月 FROM T_全体 INNER JOIN 年月 ON (T_全体.月 = 年月.月) AND (T_全体.年 = 年月.年);
連結列:2
※値集合ソースは、SQLで「データベース」テーブルの"年"と「年月」テーブルの"年"を繋げ、「データベース」テーブルの"月"と「年月」テーブルの"月"を繋げました。
■検索ボタンのイベントプロシージャー
Private Sub コマンド14_Click()
On Error GoTo Err_コマンド14_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "F_全体"
stLinkCriteria = "[所属名称]=" & "'" & Me![所属名称] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_コマンド14_Click:
Exit Sub
Err_コマンド14_Click:
MsgBox Err.Description
Resume Exit_コマンド14_Click
End Sub
以上ですが、いかがでしょうか?
おわかり頂けましたでしょうか?
すみませんが、宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
歩いた自慢大会
「めちゃくちゃ歩いたエピソード」を教えてください。 長時間でも長距離でも結構です。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Access 複数条件のフィルタ
その他(Microsoft Office)
-
ACCESS VBAのOpenForm書き方
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Eclipseの対応する括弧の強調表...
-
DataGridViewでyyyy/MM/dd
-
VBA 日付、未来の日付はエラー...
-
VisualBasic6.0のFormat関数で...
-
コンボボックスに日付を表示する
-
VB6.0 のformat関数について
-
エクセルのVBAで日付を検索し転...
-
DateTimePickerを西暦表示にす...
-
今日より前の書き方 マクロ
-
Google AJAX Feed APIのRSS出力...
-
AccessのSQL URL|大文字|小文...
-
アクセス2000で、あるテキスト...
-
日付データの西暦・和暦について
-
ユーザーフォームのラベルに日...
-
時間を差し引く
-
プログラミング言語についてで...
-
週間カレンダー vbscript
-
1本あたり○円と表示する時どの...
-
最近、iPhoneがおかしいです 私...
-
このPASMOの通知来ないようにで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームのラベルに日...
-
DataGridViewでyyyy/MM/dd
-
VisualBasic6.0のFormat関数で...
-
Eclipseの対応する括弧の強調表...
-
エクセルのVBAで日付を検索し転...
-
特定の項目セルにスキャン(入...
-
テキストボックスにカレンダー...
-
VBA 日付、未来の日付はエラー...
-
今日より前の書き方 マクロ
-
コンボボックスに日付を表示する
-
システム日付とは?
-
【VBA】土日をスキップして日付...
-
3人のじゃんけんのプログラム
-
指定した日付が、その月の第何...
-
1本あたり○円と表示する時どの...
-
VB6.0 のformat関数について
-
VBAで当月の1日を表示するには...
-
テキストボックスに今日の日付...
-
VB 日付範囲チェック
-
【Excel VBA】条件に合った行の...
おすすめ情報