#なぜAccess？
社内業務でツール(単語帳)を作成することになったのですが、
使い慣れたExcelより、Accessの方が今回は向いているのではないか？と思い
経験0からAccessで作成を始めてみました。

#環境
・Windows10 64bit
・Microsoft Office Access 365

#完成イメージ
起動すると「単語一覧表」と「単語登録」画面が表示される

◆単語一覧表をクリックした場合
「単語一覧」画面へ遷移する
　├遷移した際にDBに保存されている値をリスト表示する
　├単語の検索が行える
　└トップ画面へ遷移することができる

◆単語登録をクリックした場合
　→**今回ボタンを用意するだけで特に処理の記載はありません**

#作成開始
・テーブルの作成
・フォーム(一覧画面)の作成
・一覧画面に検索ボタンを作成
・VBAで検索処理を追加
・トップページの作成
・各画面の遷移
として作成したいと思います。

##Accessを起動し、テーブルを作成する
1.Accessを起動する
2.空のデータベースを選択
3.ファイル名を「単語帳ツール.accdb」へ変更
4.作成ボタンをクリック(格納場所は任意)

そうすると、下記のような画面になると思います。

###テーブルへ各フィールドを追加

「クリックして追加」を選択し、「短いテキスト」を選択します。

フィールド名を「単語」とします。

読み、特徴、カテゴリ、登録者　も同様に作成します。
更新日のみ「日付/時刻」として作成ました。

テーブルの完成です。

ここまで出来たら、Ctrl + S で一度テーブルを保存します。
保存しようとするとテーブル名の入力画面が表示されるので「T_単語テーブル」とします。
※Tはテーブルの頭文字を取っていますが、特に大きな意味はありません。

データを直接入力してみる
T_単語テーブルに下記を入力してみます。

ID	単語	読み	特徴	カテゴリ	登録者	更新日
1	トイプードル	といぷーどる	モフモフしている	犬	山田	2020/12/03
2	柴犬	しばいぬ	自立心が比較的高い	犬	山田	2020/12/03
3	メインクーン	めいんくーん	体が大きい	猫	鈴木	2020/12/03

テーブルが作成出来たので、次はフォームを作成したいと思います。

##フォームの作成
単語一覧画面のフォームを下記の順番で作成
・フォームデザインを新規作成
・サブフォームの埋め込み
・体裁を整える

作成 > フォームデザインを選択し、新規フォームを作成します。
フォームが作成出来たら、デザイン > サブフォームをクリックします。

サブフォームの大きさは後で調整可能なので、任意の大きさで作成します。
サブフォームを格納すると、「サブフォームウィザード」が表示されるので、
「既存のテーブルまたはクエリを使用する」を選択し、「次へ」をクリックします。

「>>」を選択し、全てのフィールドを「選択したフィールド」へ移動させ「次へ」をクリックします。

名前を「F_単語一覧」へと変更し「完了」をクリックします。

上書きアイコン or Ctrl + s で名前を付けて保存にて、「F_単語一覧」というフォームにします。

フォームの詳細で右クリック > フォームヘッダー/フッターを選択します。

作成したフォームヘッダーへタイトル(ラベル)を追加します。
・デザイン > ラベルを選択し、フォームヘッダーへ任意の大きさのラベルを追加。
・表題を「単語一覧」と入力。
・フォントを「メイリオ」、フォントサイズを「24」、太字へと設定する。

少し一覧画面らしくなりましたね。次はサブフォームの体裁を整えます。

###サブフォームの体裁を整える
F_単語一覧をデザインビューで開き、下記設定を行います。

「F_単語一覧」というラベルを削除
サブフォームの横幅、縦幅を枠内ピッタリに収める

◆Before

◆After

フォームビューで「F_単語一覧」を開くと、単語一覧画面らしくなりました。

データを追加したい場合は、単語～更新日までを入力します。
※IDは自動入力されます

F_単語一覧は、「T_単語テーブル」からデータを取得しているので、
F_単語一覧画面からデータを追加した場合、「T_単語テーブル」のテーブルも自動で追加されます。

##一覧画面に検索機能の追加
フォームヘッダーに検索場所を追加したいと思います。
・検索対象のコンボボックスを作成する
・検索する文字列のテキストボックスを作成する
・検索ボタンで一覧画面が切り替わることを確認する

デザインビューで開いて、検索対象となるコンボボックスを作成します。
デザイン > コンボボックスを選択し、フォームヘッダーへ任意の大きさで作成。
作成するとダイアログが表示されるので「キャンセル」を選択。

ラベルとコンボボックスが追加されるので、
・ラベルの表題を「検索列」へ変更、コンボボックスを選択状態
にします。

コンボボックスのプロパティから
・値集合タイプを「値リスト」へ
・値集合ソースの「・・・」を選択
します。

検索対象は「全て」「単語」「読み」としたいので、直接入力します。
規定値は「全て」とします。
設定完了したら、「OK」をクリック。

次は実際に検索する文字列を格納するテキストボックスの追加です。
デザインからテキストボックスを追加し、以下のように設定します。
・標題：検索する文字列
・名前：txtSerch

フォームビューで表示してみます。
テキストボックスの大きさが合っていない気がしますね、、、

再度デザインビューに戻って追加した「コンボボックス」と「テキストボックス」を選択し
配置 > サイズ/間隔 > 低いコントロールに合わせる」を選択。

続けて「広いコントロールに合わせる」を選択。

あとはラベルとテキストの間隔を少し調整し、再度フォームビューで表示。
先ほどより見た目が綺麗になりました。

次に検索ボタンを追加します。
デザインビューに戻り、デザイン > ボタンを文字列検索テキストボックスの右に作成します。
ボタンを作成した際に表示される「コマンドボタンウィザード」は「キャンセル」を選択し、
標題を「検索」へ変更。

これで検索ボタンまで配置が完了しました。
次は検索ボタンでレコード操作を追加したいと思います。

##VBAで検索処理
検索処理は下記で実装します。
1.検索ボタンにクリックイベントを追加
2.検索ボタンクリックで一覧画面を絞り込み(VBA)

F_単語一覧をデザインビューで開きます。
コンボボックスを選択し、プロパティシート > 名前を「SearchColumn」とします。

検索ボタンを選択し、プロパティシート > 名前を「検索ボタン」とします。

続いてプロパティシート > イベント > クリック時を[イベントプロシージャ]を選択し
「・・・」を選択します。

VBEが表示されると思いますので、検索ボタンクリック時の処理を記入します。

検索ボタンクリック

Private Sub 検索ボタン_Click()

    'テキストボックスが空だとNULL扱いになるので空白を代入する
    If IsNull(Me.txtSearch.Value) Then
        Me.txtSearch.Value = ""
    End If

    Get_Search (Me.txtSearch.Value)

End Sub

解説

検索する文字列が空の状態で「検索ボタン」をクリックされると
NULL扱いとなってしまうので、空でクリックされた場合は、
Me.txtSerch.Value = ""
としてNULL値を回避します。

その後Get_Serch(引数)を呼んで実際の一覧表示を変更したいと思います。
下記のGet_Serchを検索ボタン_Click()の下へ追加します。

Get_Serch(引数)

Private Sub Get_Search(searchVal As String)

    ' ボタン毎で検索結果(SQL)が異なる
    If SearchColumn.Value = "全て" Then
        '検索列が「全て」の場合は、全レコードから絞り込む
        SQL = ""
        SQL = SQL & "SELECT           " & vbCrLf
        SQL = SQL & "*                " & vbCrLf
        SQL = SQL & "FROM             " & vbCrLf
        SQL = SQL & "T_単語テーブル    " & vbCrLf
        SQL = SQL & "WHERE            " & vbCrLf
        SQL = SQL & "ID LIKE " & "'*"   & txtSearch.Value & "*'" & " Or " & vbCrLf
        SQL = SQL & "単語 LIKE " & "'*" & txtSearch.Value & "*'" & " Or " & vbCrLf
        SQL = SQL & "読み LIKE " & "'*" & txtSearch.Value & "*'" & " Or " & vbCrLf
        SQL = SQL & "特徴 LIKE " & "'*" & txtSearch.Value & "*'" & " Or " & vbCrLf
        SQL = SQL & "カテゴリ LIKE " & "'*" & txtSearch.Value & "*'" & " Or " & vbCrLf
        SQL = SQL & "登録者 LIKE " & "'*" & txtSearch.Value & "*'" & " Or " & vbCrLf
        SQL = SQL & "更新日 LIKE " & "'*" & txtSearch.Value & "*'"

    Else
    
        '検索列が「全て」以外の場合、検索したい文字列から絞り込む
        If searchVal <> "" Then
                'テキストボックスに値が入っていれば、条件検索
                SQL = "select * from T_単語テーブル where " & SearchColumn.Value & " LIKE " & "'*" & txtSearch.Value & "*'"
        Else
                'テキストボックスに値が入っていない or 検索解除ボタンなら、全件検索
                SQL = "select * from T_単語テーブル"
        End If
        
    End If

    'Recordsetを開く
    Set myRecordset = CurrentDb.OpenRecordset(SQL)
    Me.F_単語一覧.Form.RecordSource = SQL
    'Recordsetを閉じる
    myRecordset.Close

End Sub

解説

検索ボタンがクリックされた際に、対象列が「全て」となっている場合、
「全て」という文字列が「Get_Search」に引数として渡されます。
この場合「T_単語テーブル」の列全てに対して「検索文字列」が対象(あいまい検索)となります。
一方で、「単語」や「読み」が対象となっている場合は、その列のみが検索対象となります。

検索してみる

まずは検索列が「全て」の状態で「山」と検索してみます。
登録者「山田」さんがいますので、レコード2件が抽出されます。

次に検索列を「読み」へ変更し、「とい」と検索してみます。
読み「といぷーどる」が存在しますので、レコード1件のみが抽出されます。

思っていた通りの検索が出来るようになったので、検索処理は一旦完了とします。

##トップページの作成
続いてトップページを作成したいと思います。
・トップページ → 一覧画面
・一覧画面 ← トップページ
としてお互いが画面遷移出来るようにします。

メインフォームを作成する

作成 > フォームデザインをクリックします。
真っ新なフォームが新規作成されるので、下記のような形で作成します。
※登録ボタンは今回使用しませんが、作成だけしています。

保存(Ctrl + s)を行い、名前を「F_メインフォーム」として保存しました。

トップページから一覧画面へ遷移させる

F_メインフォーム内の「単語一覧表」をクリックし、
・プロパティーシート > イベント > クリック時 > イベントプロシージャ
とします。
その後「・・・」をクリックしVBEを開きます。
VBEが表示されたら、クリックイベントを下記のように設定。

Private Sub WordList_Click()
    DoCmd.OpenForm "F_単語一覧"
End Sub

これでトップページから「単語一覧表」ボタンクリック時に一覧画面へ遷移するようになります。
続いて逆パターン(一覧画面からトップページ)を作成します。

一覧画面からトップページへ遷移させる

一覧画面に「メインフォームへ」というボタンを作成します。
※プロパティーシート > 名前を「ToMainF」としています。

先ほどと同じように、作成した「メインフォームへ」ボタンに下記の設定を行います。
・プロパティーシート > イベント > クリック時 > イベントプロシージャ
・「・・・」をクリックしVBEを開きます。
VBEが表示されたら、クリックイベントを追加。

Private Sub ToMainF_Click()
    DoCmd.OpenForm "F_メインフォーム"
End Sub

これで一覧画面からトップページへも遷移可能となりました。

レコードの修正・追加について

今回は一覧画面からデータの追加を行いましたが、登録画面を作成し
それぞれの項目を入力 > 登録ボタンでレコード追加
としたい場合は下記が参考になるかと思います。
参考サイト - Accessの登録ボタン解説

他にも様々な方がWeb上に公開しているので、参考サイトはたくさんありますね。

終わりに

Accessの事を何も知らない状態から作成した内容となっておりますので、
使い方を間違えている点や、もっと効率の良い作成方法も多々あるかと存じます。

今回初めてAccessに触れてみて、直感的に使用するのは大分難しいと感じる反面、
VBAに関しては各イベント毎の記述がしやすかったり、綺麗なフォームを容易に作成出来たりと
可能性も感じることが出来ました。

今後はAccessも自分のスキルの1つとして、もっと色んなツール(社内の人が使ってくれるような)
を作成してみたいと思います。

最後までお読みくださりありがとうございました。