![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
アクセスを勉強中ですがいまいちです。
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で質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
- Access(アクセス) Accessフォーム 一部のレコードだけを抽出する方法について 1 2022/06/28 18:45
- Access(アクセス) Access 複数条件検索の設定が上手く行きません 1 2022/07/22 20:37
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォームのラベルに日...
-
VB.net 登録されている日付の連...
-
SUMPRODUCT関数 『複数条件』...
-
パソコンの日付変更したら、ヤ...
-
VBSでTXTファイルを配列に格...
-
大文字Oと0の違い
-
励磁パターン
-
他のPCの日付・時刻の取得
-
テキストボックスに今日の日付...
-
日付によって表示するページを...
-
使用期限付きDLL
-
【Excel VBA】条件に合った行の...
-
DataGridViewの和暦表示について
-
最近、iPhoneがおかしいです 私...
-
OCNモバイルONEを使っています...
-
質問に回答が付くとメールにま...
-
5年前のノートPCから最新機の処...
-
電話の着信が来てないのに着信...
-
iPhoneの通知が何故か来なくな...
-
アンドロイドから通知無しで鳴る音
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームのラベルに日...
-
エクセルのVBAで日付を検索し転...
-
Eclipseの対応する括弧の強調表...
-
DataGridViewでyyyy/MM/dd
-
VisualBasic6.0のFormat関数で...
-
JSPからYYYYMMDDで日付入力する
-
今日より前の書き方 マクロ
-
3人のじゃんけんのプログラム
-
システム日付とは?
-
【Excel VBA】条件に合った行の...
-
VBA 日付、未来の日付はエラー...
-
【VBA】土日をスキップして日付...
-
VBAで当月の1日を表示するには...
-
「eclipseで作るカレンダー(ス...
-
VBAの質問になります 行の非表示
-
VB 日付範囲チェック
-
コンボボックスに日付を表示する
-
テキストボックスにカレンダー...
-
指定した日付が、その月の第何...
-
VB6.0 のformat関数について
おすすめ情報