ACCESS　最強の検索フォームができるまで　その8

こんにちは。伊川(@naonaoke)です。

ACCESS　最強の検索フォームができるまで　その7

2020.2.11

こんにちは。伊川(@naonaoke)です。 http://keiyu.xyz/2020/02/10/accessk6/ 今回は上の記事の続きです。 検索後のフォームから詳細内容...

今回は、上の記事の続きです。

今回で、最強の検索フォームは最終回です。

今回が多分、一番難しいです。

このブログはこんな人にお勧め

最強の検索フォームにVBAのコードを仕込む

ACCESS　変数　変数ってなんだ？

2019.12.9

変数とは こんにちは。伊川(@naonaoke)です。 今回は、具体的なサンプルがあるわけではないのですが、変数について説明をしたいと思います。 変数は、どのプログラムの言語を利用...

【ACCESS VBA】VBAの変数について

2019.10.1

ACCESSのVBAで変数を使う こんにちは。伊川です。今回は、初めてACCESSでシステムを作成したときに、どうしても理解できなかったことを紹介します。 　題名の通りなのですが...

変数を使って、検索条件を追加していきます。

フォームの作成に関しては、すでに作成済の状態で進めていきます。

フォームの作成に関しては、下記に記事を参考にしてください。

ACCESS　検索フォームの作成　その1　連結　非連結とは

2019.11.12

検索フォームの作成について こんにちは。伊川(@naonaoke)です。 今回は、ACCESSの初心者が、いったんは、疑問に思うことを説明します。 そして、疑問を解消しながら、カン...

最強の検索フォーム　作成手順その1　VBAのコードを確認する

上記はコードです。

見た感じ同じようなコードがいくつも並んでいます。

そんなに最強の検索フォームを言ってもそんなに難しくありません

最強の検索フォーム　作成手順その2　変数に代入する

myStreという変数に、検索条件を追加していきます。

ACCESS　あいまい検索ときっちり検索

2019.12.18

あいまい検索は、ワイルドカードで解決 こんにちは。伊川(@naonaoke)です。 本日は、あいまい検索ときっちり検索を紹介します。 ACCESSのVBAを勉強するまでは、ワイル...

ワイルドカードについては、上の記事を確認してください。

他にもいろいろな仕掛けをしていますが、下記のコードが最強の検索フォームのすべてになります。

最強の検索フォーム　作成手順その3　VBAのコード

Option Compare Database

Private Sub コマンド101_Click()
Dim myStr As String     '条件
myStr = ""
    

   '-------------------------------------日時検索--------------------

    
    If IsDate(開始日.Value) And IsDate(終了日.Value) Then
        myStr = myStr & " And (日時 Between #" & 開始日.Value _
            & "# And #" & 終了日.Value & "#)"

    ElseIf IsDate(開始日.Value) Then
        myStr = myStr & " And 日時=#" & 開始日.Value & "#"
        
    ElseIf IsDate(終了日.Value) Then
        myStr = myStr & " And　日時=#" & 終了日.Value & "#"
    End If
'-------------------------------------日時検索終了--------------------

'-------------------------------------周知者検索---------------

  If Not IsNull(Me.周知者) Then
        myStr = myStr & " And 周知者= '" & 周知者.Value & "'"
    End If
'-------------------------------------周知者検索終了-----------
'-------------------------------------分類---------------------

  If Not IsNull(大分類) Then
        myStr = myStr & " And 大分類 Like '*" & 大分類.Value & "*'"
    End If
    
    If Not IsNull(中分類) Then
        myStr = myStr & " And 中分類 Like '*" & 中分類.Value & "*'"
    End If

  If Not IsNull(小分類) Then
        myStr = myStr & " And 小分類 Like '*" & 小分類.Value & "*'"
    End If
'-------------------------------------分類終了------------------


'-------------------------------------内容---------------------

    If Not IsNull(内容) Then
        myStr = myStr & " And 内容 Like '*" & 内容.Value & "*'"
    End If
'-------------------------------------内容終了------------------


'-------------------------------------検索フォーム起動---------------------

If myStr = "" Then
        MsgBox "抽出条件を入力してください。", vbCritical, "エラー"
    Else
        DoCmd.OpenForm "F_周知", , , Mid(myStr, 6)
        DoCmd.Close acForm, Me.Name
            End If
End Sub




Private Sub コマンド110_Click() '検索条件のクリア
Me.[開始日] = Null
Me.[終了日] = Null
Me.[周知者] = ""
Me.[内容] = ""

Me.[大分類] = ""
Me.[中分類] = ""
Me.[小分類] = ""
End Sub

ここがポイント

ここがポイント

今回の最強の検索フォームは、販売にまで至りました。私も業務上で使っています。料理と同じで、自分がおいしいと思えないものは、他人様には勧めれません。

まとめ

今回で最強の検索フォームは最終回になります。

お疲れ様でした。

今回のサンプルファイルは、No102です。

毎日の業務が、3時間短縮できます

わからない事を延々と考えるのは、無駄です。

• なんで作動かないの？
• もうやだ！VBAなんか嫌い！
• ネットで調べても情報がない！

必ず作動するコードが、ここにあります。

サンプルファイルの概要、個別コンサルの概要にについて

Related posts:

【ACCESS VBA】おい、周知を確認したか？って、怒鳴らなくても大丈夫 ACCESS　検索フォームの作り方　その3　複数の条件で検索する ACCESS　サブクエリ　マニアックな抽出 【ACCESS 関数】条件分岐に関しては、Switch関数を使う