- ベストアンサー
Accessのフィルタについて
noname#1296の回答
Accessの2001年問題絡みだと思います。 西暦４桁で入力するようにして下さい。 2001年問題で検索するとかなりヒットしますよ。
関連するQ&A
- アクセスで期間抽出
お尋ねします アクセスで納品書のデータベースがあります 納品書データFormには 伝票番号、日付、客先名、数量のフィールドのフォームで テキストボックス１：始めの日 テキストボックス２：終了日 コマンドボタン１：期間で抽出 が配置しています テキストボックス１，２に日付、記入後、コマンドボタン１をクリックして 所要期間でフィルターで抽出するのですがうまく行きません コマンドボタン１クリック時のコード Private Sub コマンド１_Click() Me.Filter = "日付= 'Between" & Me![テキスト１] & "And" & Me![テキスト２] & "'" Me.FilterOn = True End Sub のコードで抽出してくれません、不都合をご指摘下さい なお 指定日での抽出は以下で出来ました。 Private Sub コマンド１_Click() Me.Filter = "日付= '" & Me![テキスト１] & "'" Me.FilterOn = True End Sub エクセルのモジュールは少しかじったのですがアクセスは 始めたばかりでなかなか要領を得ません 宜しくお教え下さい。
- ベストアンサー
- オフィス系ソフト
- アクセス Between Andの使い方 日付型
フォームをテーブルに紐づけて コマンドボタンを押下したら、日付にフィルタをかけたいのですが、 ０件で抽出されます。 フィールド1 2013/05/19 2013/05/20 2013/05/21 というテーブルがあり、 フォーム上のコマンドボタンのクリックイベントは Private Sub コマンド1_Click() Me.Form.Filter = "フィールド1 Between " & Date & " And " & Date + 1 Me.Form.FilterOn = True End Sub です。 2013/05/19 2013/05/20 が抽出されるべきだと思うのですが、なぜ何も抽出されないのでしょうか？ エラーにもなりません。
- ベストアンサー
- オフィス系ソフト
- Access 2003 でフォームフィルターがかかりません。
Access 2003 でフォームフィルターがかかりません。 どなたか助けてください。 アクセス初心者です。 フォームの詳細欄にチェックボックス（フィールド名：伝票チェック）を配置しております。 チェックの入っていないものを表示させたいです。 フォームヘッダーのオプショングループ（フレーム67）に オプションボタン0-オプション値0と オプションボタン2-オプション値2 の２個のオプションボタンを配置してあります。 クリック時のイベントプロシージャに以下のコードを書きました。 Private Sub フレーム67_Click() If Me!フレーム67 = 0 Then Me.Filter = 伝票チェック = 0 Me.FilterOn = True Else Me.Filter = "" Me.FilterOn = True End If End Sub 実行時エラーは出ませんが、データが何も表示されません。 どうすればいいのでしょう？？？ どなたかお願いします。
- ベストアンサー
- その他(データベース)
- 日付型と文字列型、両方にフィルタをするには
アクセス フォームで日付型（Between and）と文字列型、両方にフィルタをするには？ Private Sub cmd_ボタン1_Click() Me.Form.Filter = _ "日付 Between #" & Me.cmb_日付1.Value & "# And #" & Me.cmb_日付2.Value & "#" & _ " and 会社名 like " & "*" & Me.cmb_会社名.Value & "*" Me.Form.FilterOn = True End Sub これのどこが変なのか教えていただけますか？ 実行時エラー3075「クエリ式の構文エラー:演算子がありません。」というエラーになります。
- ベストアンサー
- オフィス系ソフト
- 期間の抽出の仕方
こんにちは。 販売実績に計上年月があります。 検索フォームで、「2001/01」ではなく、「2001/01～2001/06」のように 抽出させたいのです。 Me.Filter = "[計上年月]=' " & Me![計上年月] & "'" Me.FilterOn = True のようなコードを、「Between ～ And ～ 」を使って抽出するのかな？ と思い、いろいろ試してみたのですが、うまくいきません。 というか、どのように記述してよいのか分かりませんでした。 すみませんが、よろしくお願いいたします。
- ベストアンサー
- その他(データベース)
- フィルタの情報を保存したい
Me.Form.Filter = "" Me.Form.FilterOn = を保存したいのですがどうすればいいでしょうか？ フォームにテキストのフィールドと 抽出とクリアのコマンドボタンを設置して、フィルタをかけたり解除したりしています。 途中でフォームを閉じても最後にフィルタをかけたなら、 再度フォームを開いたときに最後に検索したワードでフィルタが開く用にしたいし フォームを閉じる前にフィルタを解除したのなら、 再度フォームを開いたときはフィルタが解除された状態にしたいです。 Private Sub cmd_クリア_Click() Me.Form.Filter = "" Me.Form.FilterOn = False DoCmd.Save acForm, Me.Name End Sub Private Sub cmd_抽出_Click() Me.Form.Filter = "フィールド２ like '*" & Me.txt_フィールド２テキスト.Value & "*" & "'" Me.Form.FilterOn = True DoCmd.Save acForm, Me.Name End Sub としてるのに、フィルタの情報が保存されてません。 再度開きなおしたときは、 必ず全レコードが表示されてしまいます。 フィルタの状態を保存する方法を教えてください。ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Access VBA フィルター
Microsoft Access のVBAで、メインフォームで条件を設定するとサブフォームがフィルターされて開くというVBAを作っています。 SQL文を「SQLCode」という文字列型変数に入れました。 具体的には以下の内容がSQLCodeに入っています。 [担当者]=[Forms]![検索]![担当者] この変数をフォームにフィルターをかけて開くコードに入れたいのですが、以下の？の部分を教えてください。 Me!Fサブフォーム.Form.Filter. = ? Me!Fサブフォーム.Form.FilterOn = True
- 締切済み
- Access（アクセス）
- Access filterにて
フィルターする時、オプションボタンやトグルボタンを使用し、Select Caseで分岐させてフィルターするやり方でなく、下記のようにすることはできますか？ ************************************************************** 「Me.検索項目」はコンボボックス（集合体ソースには、検索するフィールド名を用意） 「Me.日付入力」は日付だけを入力するテキストボックス Me.Form.Filter = "'" & Me.検索項目 & "'" = "#" & Me.日付入力 & "#" Me.Form.FilterOn = True ************************************************************** 検索するフィールド名をいちいち記述しなくて済むのでは？と思いましたが、結果が得られませんでした。 どこがおかしいのでしょうか？よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAで日付型とテキストでフィルタをかけるには？
テーブルのデータは フィールド１ 2012/1/1 2012/1/2 2012/1/3 2012/1/4 2012/1/5 2012/1/6 2012/1/7 2012/1/8 2012/1/9 2012/1/10 フィールド2 Ａ Ａ Ａ Ａ Ａ Ｂ Ｂ Ｂ Ｂ Ｂ です。 このクエリをもとに票フォームを作成して、 ・txt_始まりテキスト ・txt_終わりテキスト ・txt_フィールド２テキスト を作りました。 あとコマンドボタン（cmd_抽出）も作りました。 このコマンドボタンを押して 日付とテキストを抽出したいのですがＶＢＡでのやり方を教えてください。 クエリなら ------------------------------------------------------------ SELECT テーブル1.フィールド１, テーブル1.フィールド２ FROM テーブル1 WHERE (((テーブル1.フィールド１) Between #1/4/2012# And #1/6/2012#) AND ((テーブル1.フィールド２)="Ａ")); でできました。 ------------------------------------------------------------ しかしＶＢＡで ------------------------------------------------------------ Private Sub cmd_抽出_Click() Me.Form.Filter = "フィールド１ Between #" & Me.txt_始まりテキスト.Value & "# And #" & Me.txt_終わりテキスト.Value & "#" & _ "' And フィールド２ like '*" & Me.txt_フィールド２テキスト.Value & "*" & "'" Me.Form.FilterOn = True End Sub ------------------------------------------------------------ をすると、 ------------------------------ 実行時エラー3075 構文エラー：演算子がありません。 ------------------------------ になります。 どうすればいいか教えてください。 結果は、 ------------------------------ フィールド１ フィールド２ 2012/01/04 Ａ 2012/01/05 Ａ ------------------------------ です。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Accessの検索フォーム
またまたＡｃｃｅｓｓについての質問です。 検索フォームというのを作りました。 テーブルのデータから条件に合うものだけを抽出したいのです。 たとえば１つ目の検索フォーム[Ａ]のテキストボックスに「ＡＡＡ」を入力します。 そのあとＢには「ＢＢＢ」と入力します。 同じくＣには「ＣＣＣ」と入力します。 そして絞込みボタンを押したらＡＡＡでＢＢＢでＣＣＣのものが抽出されます。 これはうまくいきました。 とりあえず、複数条件なので、わけもわからず「＆」で結んでしまいました・・・。 ↓は絞込みボタンのクリック時です。↓ 困ったのは、すべて検索条件を指定しない場合です。 たとえば「ＡＡＡ」で「ＣＣＣ」のものを抽出したいとき、[Ａ]のテキストボックスに「ＡＡＡ」と入れ [Ｃ]のテキストボックスに「ＣＣＣ」と入れます。 そして絞込みボタンをクリック。 するとＢが未記入だからか、抽出されたのは真っ白でした・・・。 Option Compare Database Private Sub コマンド50_Click() Me.Filter = "契約='" & Me!テキスト51 & "'and A='" & Me!テキスト57 & "'" Me.FilterOn = True End Sub 組み合わせが自由になる検索フォームにするにはどうすればよいのでしょうか？ 誰か助けてくださ～い！
- ベストアンサー
- オフィス系ソフト
お礼
早速の回答ありがとうございました。４桁で入力すると解決しました。