• ベストアンサー

Access2016 抽出したレコード

こんにちは、よろしくお願いします。 フォームのヘッダーに以下のような検索システムを作りました。 Private Sub Cmd_抽出_Click()    Dim strSagasu As String    strSagasu = Me![Txt_抽出]    Me.Filter = "物件名 Like '*" & strSagasu & "*'"    Me.FilterOn = True   End Sub そうしました所、立派に検索できたのですが 元のすべてのレコードがある画面に戻す方法がわからず・・・ どなたか詳しい方、どうかお教えください。 よろしくお願い致します。

質問者が選んだベストアンサー

  • ベストアンサー
  • piroin654
  • ベストアンサー率75% (692/917)
回答No.1

たとえばボタンを一つ用意し、ボタンクリックで。 Private Sub cmdフィルタ解除_Click() 'フィルタを解除しすべて表示 Me.FilterOn = False End Sub

tonkotsu0707
質問者

お礼

こんにちは。早々にご回答くださいましたのに 確認が遅くなり申し訳ありません。 うまくできました。ありがとうございます。 今後ともよろしくお願いいたします。

関連するQ&A

  • accessの検索フォームについて(複数条件)

    access初心者です。 本などを参考に検索フォームを作成しました。 1つの条件で検索することは出来たのですが、複数の条件を入力するとうまく検索出来ません。 全ての条件を満たすデータの抽出を行いたいと思います。 「あ」「い」「う」というテキストボックスを用意しています。 Private Sub コマンド14_Click() If Not IsNull(Me.txt_あ) Then ' Me.Filter = "あ LIKE '*" & Me!txt_あ & "*'" End If If Not IsNull(Me.txt_い) Then ' Me.Filter = "い LIKE '*" & Me!txt_い & "*'" End If If Not IsNull(Me.txt_う) Then ' Me.Filter = "う LIKE '*" & Me!txt_う & "*'" End If Me.FilterOn = True End Sub よろしくお願いします。

  • コンパイルすると「メソッドまたはデータメンバが見つかりません」

    Access2000です。 名前を「Me!txt名前」に入力して「cmd探す」をクリックすると「メソッドまたはデータメンバが見つかりません」 「rs.FilterOn = True」でデバッグが中止します。 どなたかアドバイスお願いします。 ------------------------------ Private Sub cmd探す_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset   Dim strRet As String Set cn = CurrentProject.Connection rs.Open "Q_修正", cn, adOpenKeyset, adLockOptimistic strRet = "使用者氏名 Like'" & Me!txt名前 & "*'" rs.Filter = strRet rs.FilterOn = True ------------------------------

  • Access2000のコマンド検索 値空白時抽出

    アクセス初心者です。 初めてデータベースを構築していますが、1つ質問があります。 いくつかの項目をコマンド検索をかけてサブフォームに表示させていますが、その項目に空白があるとデータが抽出されません。。。 具体的には下記の通りです。 以下3つの項目で検索をかけますが、3つの項目すべて値がインプットされていないとヒットしてくれません。 例えば該当する品名で検索をかけても、品名コードが空白だと抽出されません。 空白があっても検索にヒットするような条件式(コード)を教えてください!! (1)資材メーカー (2)品名 (3)品名コード Private Sub 検索Cmd1_Click() Me!資材メーカー一覧Sub.Form.FilterOn = True Me!資材メーカー一覧Sub.Form.Filter = "[資材メーカー] Like '*" & Me!資材メーカー検索Txt & "*' And [品名] Like '*" & Me!品名検索Txt & "*' And [品名コード] Like '*" & Me!品名コード検索Txt & "*'" End Sub

  • ACCESS VBA にて複数項目のあいまい検索をしようとしています。

    ACCESS VBA にて複数項目のあいまい検索をしようとしています。 txt部所、txt内容、txt備考はそれぞれ検索窓です。 実行すると、 「オブジェクト変数またはWithブロック変数が設定されていません」 というメッセージがでます。 また、動作としては部所の検索のみでき、 内容、備考検索は上記のエラーメッセージが出てできない状態です。 アドバイスよろしくお願いいたします。 以下がコードになります。 Private Sub cmd01_Click() Me.FilterOn = False If txt部所 <> "" Then Me.Filter = "[部所氏名]like '*" & txt部所 & "*'" ElseIf txt内容 <> "" Then Me.Filter = "[内容]like '*" & txt内容 & "*'" ElseIf txt備考 <> "" Then Me.Filter = "[備考]like '*" & txt備考 & "*'" ElseIf Nz(txt部所) & Nz(txt内容) & Nz(txt備考) = "" Then MsgBox "検索条件を入力してください" End If Me.FilterOn = True End Sub

  • フィルタの情報を保存したい

    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 = "フィールド2 like '*" & Me.txt_フィールド2テキスト.Value & "*" & "'" Me.Form.FilterOn = True DoCmd.Save acForm, Me.Name End Sub としてるのに、フィルタの情報が保存されてません。 再度開きなおしたときは、 必ず全レコードが表示されてしまいます。 フィルタの状態を保存する方法を教えてください。ご回答よろしくお願いします。

  • アクセスで期間抽出

    お尋ねします アクセスで納品書のデータベースがあります   納品書データFormには 伝票番号、日付、客先名、数量のフィールドのフォームで テキストボックス1:始めの日 テキストボックス2:終了日 コマンドボタン1:期間で抽出 が配置しています テキストボックス1,2に日付、記入後、コマンドボタン1をクリックして 所要期間でフィルターで抽出するのですがうまく行きません コマンドボタン1クリック時のコード Private Sub コマンド1_Click() Me.Filter = "日付= 'Between" & Me![テキスト1] & "And" & Me![テキスト2] & "'" Me.FilterOn = True End Sub のコードで抽出してくれません、不都合をご指摘下さい なお 指定日での抽出は以下で出来ました。 Private Sub コマンド1_Click()  Me.Filter = "日付= '" & Me![テキスト1] & "'" Me.FilterOn = True End Sub エクセルのモジュールは少しかじったのですがアクセスは 始めたばかりでなかなか要領を得ません 宜しくお教え下さい。

  • アクセスで3つのフィルターを連携させたい

    3つのコンボックスがあります Combo1 → 都道府県 Combo2 → 市区 Combo3 → 町村 都道府県と市区までは正常にフィルター出来るのですが、町村を選ぶと都道府県や市区も 同じ町村の名前のデータを引っ張ってきてしまいます。 ボタンを付けることも考えましたが、VBAの能力があまりないので、失敗ばかりしています。 良い知恵を教えて頂けないでしょうか。 Private Sub Combo1_AfterUpdate() Dim Strkubun As String Strkubun = Me.Combo1 Me.Filter = "[都道府県]= '" & Strkubun & "'" Me.FilterOn = True Me.Requery End Sub Private Sub Combo2_AfterUpdate() Dim Strkubun As String Strkubun = Me.Combo2 Me.Filter = "[市区]= '" & Strkubun & "'" Me.FilterOn = True Me.Requery End Sub Private Sub Combo3_AfterUpdate() Dim Strkubun As String Strkubun = Me.Combo3 Me.Filter = "[町村]= '" & Strkubun & "'" Me.FilterOn = True Me.Refresh End Sub

  • フォームからの抽出結果をExcel出力する

    アクセス初心者です。 初歩的な質問になりますが、教えてください!! サブフォームに複数ある条件の抽出結果を表示させており、その抽出結果のみエクセルファイルに反映するようにしたいです。 ちなみに、コードは以下の通りです。 Private Sub 検索Cmd1_Click() Me!生産課マスタSub.Form.FilterOn = True Me!生産課マスタSub.Form.Filter = "[品番] Like '*" & Me!品番検索Txt & "*' And Nz([製品名]) Like '*" & Me!製品名検索Txt & "*' And Nz([品名コード]) Like '*" & Me!品名コード検索Txt & "*' And Nz([資材メーカー]) Like '*" & Me!資材メーカー検索Txt & "*' And Nz([品名]) Like '*" & Me!品名検索Txt & "*'" End Sub 望むべくは、「エクセル出力」のコマンドボタンを作成し、クリックすると抽出データのみエクセルファイルに出力されるというシステムにしたいです。 もし、コードを追加すれば簡単に反映されるということでしたら、お手数ですがコードをご提示していただけますか? また、他に簡単な方法があればそちらも教えてください。 それと、上記同様に「印刷」のコマンドボタンを作成し、抽出したデータのみ印刷出来るようにもしたいんですが、こちらのやり方も併せて教えていただけますでしょうか? いろいろネットで検索して調べてみましたが、よくわかる回答がありませんでした。。。 よろしくお願いします!!

  • アクセスでのテキストボックスの複数条件での抽出

    Private Sub 検索_Click() Dim strFilter1 As String Dim strFilter2 As String Dim strFilter3 As String strFilter1 = "学校名 = '" & 学校名1 & "'" strFilter2 = "学校区分 = '" & 学校区分1 & "'" strFilter3 = "キャンパス = '" & キャンパス1 & "'" Me.Filter = strFilter1 & " or " & strFilter2 & " or " & strFilter3 Me.FilterOn = True End Sub (1)学校名・(2)学校区分・(3)キャンパスと3つのテキストボックスがあり 3つの抽出条件を満たすレコードをフォームに表示させたいのですが 学校名を仮に早稲田大学といれ絞れるのですが次に学校区分を大学 と入れるとほか大学も抽出されてしまいます。 学校名を抽出させたら、その範囲で学校区分の大学を抽出させたいのですが どのようにすればいいのでしょうか? (1)のみの抽出の場合や(1)と(2)のみの 場合があるのでandの完全一致ではありません。

  • ACCESS VBA で複数項目検索にテキストボックスとコンボボックス

    ACCESS VBA で複数項目検索にテキストボックスとコンボボックスを使用したい txtPC番号というテキストボックス、 com所属部門というコンボボックス、 txt使用者というテキストボックスの どれかひとつの条件が入力されたときに 該当するフォームのレコードを抽出できるようにしたいのですが、 コンボボックスで選択した場合のみうまく抽出できません。 コードのどの部分に誤りがあるのでしょうか? ご指摘願えませんでしょうか? よろしくお願いいたします。 Private Sub cmd01_Click() Me.FilterOn = False If Me!txtPC番号 <> "" Then Me.Filter = "[PC番号]like '*" & Me!txtPC番号 & "*'" ElseIf Me!com所属部門 <> "" Then DoCmd.Requery "com所属部門" ElseIf Me!txt使用者 <> "" Then Me.Filter = "[使用者]like '*" & Me!txt使用者 & "*'" End If Me.FilterOn = True End Sub

専門家に質問してみよう