Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6160 / 9994 ←次へ　｜　前へ→
【7042】Re:フォームからコンボボックスを使用した...
質問  わん  - 06/1/10(火) 1:09 -
引用なし
パスワード
   小僧さん、よろずやさん　
こんばんは。

>>おかしいかどうかは、見てみなきゃ分かりません。
　ということはできるということですね。(^^)

小僧さん、またまたありがとうございます。
>他に何か行っていなければ
>でできると思うのですが…。(Ac2000 にて確認)

では、コードとフォームの設定を写します。

フォームは↓のようになっています。
　　・ﾚｺｰﾄﾞｿｰｽ ：Ａテーブル
　　・ｺﾝﾎﾞﾎﾞｯｸｽ：名前(非連結)
　　　　集合値ソース；SELECT (t_Ａ.名前ID) FROM t_Ａ GROUP BY (t_Ａ.名前ID);
　　・ｺﾝﾎﾞﾎﾞｯｸｽ：年(非連結)
　　　　集合値ソース；SELECT Left(t_Ａ.年月日,4) FROM t_Ａ GROUP BY Left(t_Ａ.年月日,4);
　　・ｺﾝﾎﾞﾎﾞｯｸｽ：月(非連結)
　　　　集合値ソース；SELECT Mid(t_Ａ.年月日,6,2) FROM t_Ａ GROUP BY Mid(t_Ａ.年月日,6,2);
　　・ｺﾝﾎﾞﾎﾞｯｸｽ：日(非連結)
　　　　集合値ソース；SELECT right(t_Ａ.年月日,2) FROM t_Ａ GROUP BY right(t_Ａ.年月日,2);
　　・ｺﾏﾝﾄﾞﾎﾞﾀﾝ：検索

コードは↓のようになっています。
Private Sub cmd検索_Click()
　　Me.Filter = "Left(年月日, 4) = '" & Me.年 & "' AND mid(年月日,6,2) = '" & Me.月 & "'
　　　　　　　　　　AND right(年月日,2) = " & Me.日 & "AND 名前 = '" & Me.名前 & "'"
　　Me.FilterOn = True
End Sub

ご指摘の程､宜しくお願い致します。
2,571 hits
▼ 【7038】フォームからコンボボックスを使用した検... わん 06/1/9(月) 20:00 質問
【7039】Re:フォームからコンボボックスを使用した... よろずや 06/1/9(月) 22:39 発言
【7041】Re:フォームからコンボボックスを使用した... 小僧 06/1/9(月) 23:28 回答
【7042】Re:フォームからコンボボックスを使用した... わん 06/1/10(火) 1:09 質問≪
【7045】Re:フォームからコンボボックスを使用した... 小僧 06/1/10(火) 11:15 発言
【7048】Re:フォームからコンボボックスを使用した... わん 06/1/11(水) 4:49 発言
【7049】Re:ヘルプで「抽出条件の指定」 たん 06/1/11(水) 8:18 回答
【7067】Re:ヘルプで「抽出条件の指定」 わん 06/1/11(水) 13:05 質問
【7073】Re:ヘルプで「抽出条件の指定」 たん 06/1/11(水) 14:13 回答
【7075】Re:ヘルプで「抽出条件の指定」 わん 06/1/11(水) 14:34 お礼
【7076】Re:何が分からない？ たん 06/1/11(水) 14:54 回答
【7077】Re:何が分からない？ たん 06/1/11(水) 15:00 回答
【7078】Re:何が分からない？ なるほど･･･、 06/1/11(水) 15:08 お礼
【7079】Re:書く欄を間違えました。 わん 06/1/11(水) 15:15 発言
【7051】Re:フォームからコンボボックスを使用した... 小僧 06/1/11(水) 10:11 回答
【7057】Re:フォームからコンボボックスを使用した... わん 06/1/11(水) 11:47 質問
【7052】Re:ヘルプで「クォーテーション」 たん 06/1/11(水) 10:38 回答
【7056】Re:ヘルプで「クォーテーション」 わん 06/1/11(水) 11:42 質問
【7059】Re:ヘルプで「クォーテーション」 たん 06/1/11(水) 11:56 回答
【7063】Re:ヘルプで「クォーテーション」 わん 06/1/11(水) 12:10 お礼
【7053】Re:フォームからコンボボックスを使用した... 小僧 06/1/11(水) 11:02 回答
【7061】Re:フォームからコンボボックスを使用した... わん 06/1/11(水) 12:00 質問
【7069】Re:無理矢理１個で処理させようとしない たん 06/1/11(水) 13:20 回答
【7071】Re:補足 たん 06/1/11(水) 13:32 回答
【7072】Re:一気に飛びすぎて･･･ わん 06/1/11(水) 13:55 発言
【7062】Re:余談 たん 06/1/11(水) 12:01 発言
【7068】Re:フォームからコンボボックスを使用した... わん 06/1/11(水) 13:15 発言
【7080】Re:フォームからコンボボックスを使用した... 小僧 06/1/11(水) 15:15 回答
【7081】Re:フォームからコンボボックスを使用した... わん 06/1/11(水) 15:53 お礼
【7085】Re:フォームからコンボボックスを使用した... わん 06/1/11(水) 17:17 質問
【7093】Re:フォームからコンボボックスを使用した... 小僧 06/1/12(木) 8:59 発言
【7094】Re:フォームからコンボボックスを使用した... わん 06/1/12(木) 11:05 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6160 / 9994 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078229
(SS)C-BOARD v3.8 is Free