第５回　Access2010で、パスワードを管理するデータベースシステムを作成してみよう。

2016.01.222024.02.10

第５回です。
MicrosoftのAccess2010で「パスワード管理データベース」を作成してみましょう。

本日は、パスワード管理データベースの作成です。

全くの初心者には、少々、キツイと思いますが、基本的な「Access 2010」の操作方法を習得されている方なら「できる」と思います。　なるべく、詳しく説明したいのですが、細かな操作方法までは記載できませんので、あしからず。

これくらいのレベルのデータベースさえ、苦労して作れなければ、何も事は進まないでしょう。この記事を参照して、格闘しながら自分で作れるかどうかは、あなた次第ですが。。。。

このアプリは、「Access 2000」時代に作成して、自分で今でも使用しているパスワード管理用のデーターベースアプリです。「Access 2000」から「Access 2010」に変換して使用しています。
—関連記事—
・第10回　Access2000（mdb）からAccess2010（accdb）に変換する

＜このアプリを作成した理由＞
■このアプリが無いと、自分自身、本当に困ってしまいます。
登録した情報をどこかに「メモ」しておけば、済むことなんですけどね。。。どこに保存したか。。3か月も経つと不明になります。

■お客様にも、数年前に無料で提供していますが、これがまた、手前味噌ですが、評判なんですね。

■世の中に、パスワードを管理するアプリは、Windows、iOS、Android版でたくさんありますが、本当にシンプルに作ってあります。

ですので、Accessをお持ちで、欲しい方は、自分で作成してみて下さい。

大きく分けて、
・管理データの検索画面、管理データの保守（登録）画面の２つの画面
・ドロップダウンリストに表示する為の項目を登録する為の２画面です。

１．データテーブル作り方について

作り方と書いて。。。。どこから始めるかですが、このようなデータベースを作成する時に、まず必要なのが、どんなデータ項目が必要なのかですね。　　一番、肝心な部分です。

１）まず、必要な項目を「紙」に書きだしてみます。

（１）分類名———-＞ドロップダウンリストより選択できるようにする。
（２）管理名称——–＞自分で、好きな名称を手入力できるようにする。
（３）項目番号、項目内容
3行分の管理する項目と内容は、１つの管理データで、パスワード、メールアドレスなど、何項目あれば、足りるか？　まあ３つくらい有れば。

（４）メモ欄１——–＞自分で、好きな名称を手入力できるようにする。
（５）メモ欄２——–＞自分で、好きな名称を手入力できるようにする。

２）データベースですので、データのテーブルを作成（登録）する必要があります。

ここが肝心です。

下記画面より、実際のデータを登録する為のデータテーブルのデータ定義を実施します。

＜TF_管理データ　：　テーブルデータの管理画面＞

各データ項目の「データ型」を決める必要が有ります。

	項　目	データ型
1	番号	これは、登録時のデータベースのレコードのキーとなる項目です。「オートナンバー型」にしておけば、登録時、自動で番号を生成してくれます。
2	分類コード（分類名）	ドロップダウンリストより選択できるようにするので、実際は「数値型」
3	管理名称	自分で、好きな名称を手入力できるようにするので「テキスト型」
4	3行分の管理する項目と内容	・項目番号　：ドロップダウンリストより選択できるようにするので、「数値型」・項目内容　：自分で、好きな名称を手入力できるようにするので「テキスト型」
5	メモ欄１	自分で、好きな名称を手入力できるようにするので「テキスト型」
6	メモ欄２	自分で、好きな名称を手入力できるようにするので「テキスト型」

このように、管理する項目内容が決まったら、名称と項目のデータ型を指定して、テーブルの作成作業を実施します。

２．処理画面について

パスワード管理　メインメニュー　画面

クリックすれば、該当の処理画面を開くようにしてあるだけです。

フォームを新規で起こして、編集モードで、ボタンを配置後、「管理データ検索」ボタンを右クリックして、プロパティ選択すると「プロパティシート」が表示する。

「プロパティシート」で、
「イベント」タブをクリックして、「…」をクリックすると、コードを入力する画面が表示されますので、下記のプログラムコードをコピーして、名称などを編集すれば、そのまま使用できます。

****************************************************

Private Sub コマンド3_Click()
On Error GoTo Err_コマンド3_Click

Dim stDocName As String
Dim stLinkCriteria As String

DoCmd.Close　‘自分自身（メインメニュー）を閉じる命令

‘開くフォーム名を指定するだけ
stDocName = “F_管理データ一覧検索フォーム”

’F_管理データ一覧検索フォーム（画面）を開く命令
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_コマンド3_Click:
Exit Sub

Err_コマンド3_Click:　‘エラー処理
MsgBox Err.Description
Resume Exit_コマンド3_Click

End Sub

Private Sub コマンド3_Click()

On Error GoTo Err_コマンド3_Click

Dim stDocName As String

Dim stLinkCriteria As String

DoCmd.Close　‘自分自身（メインメニュー）を閉じる命令

‘開くフォーム名を指定するだけ

stDocName = “F_管理データ一覧検索フォーム”

’F_管理データ一覧検索フォーム（画面）を開く命令

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_コマンド3_Click:

Exit Sub

Err_コマンド3_Click:　‘エラー処理

MsgBox Err.Description

Resume Exit_コマンド3_Click

End Sub

****************************************************

このVBのオブジェクトコードを使いまわせば、メイン画面は完成します。
変更するのは、
・フォームの名称部分のみで、コピーして使えば良いだけです。
・ジャンプ先などのラベルの名称を変更する。

①　管理データ検索　画面

データの抽出をする画面ですので、ちょっと、頑張っています。
いくら、登録しても、探し出せなければ、使い物になりませんので。。。

＜抽出条件＞
・分類名で抽出（から、までで指定）
・管理名称で抽出
あいまい検索と記載していますが、文字列の部分一致検索が可能です。
例えば、Googleと入力すると、「Google」と記載されたレコードを全部抽出します。

「表示の実行」ボタンをクリックした時の動作コード

****************************************************

Private Sub コマンド55_Click()
On Error GoTo Err_コマンド55_Click

　　stkey = 0

　　'変数を宣言し、空の文字列を代入
　　　Dim stCri As String
　　　stCri = ""

'[分類名から、分類名まで]が空の文字列ではないとき、変数に条件を格納
　　If (Me.分類名から <> "") And (Me.分類名まで <> "") Then
　　　　stCri = "[分類ｺｰﾄﾞ] Between  " & Me.分類名から & "  And  " & Me.分類名まで & ""
　　End If

'[管理名検索]が空の文字列ではないとき、変数に条件を格納
　　If Me.管理名検索 <> "" Then　'変数に条件設定済みの場合、AND条件を追加
　　If stCri <> "" Then stCri = stCri & " And "
　　　　stCri = stCri & "[管理名称] Like " & " '*" & Me.管理名検索 & "*'"
　　End If


抽出処理:
Me.Filter = stCri
Me.FilterOn = True

Exit_コマンド55_Click:
Exit Sub

Err_コマンド55_Click:
MsgBox Error$
Resume Exit_コマンド55_Click

End Sub

Private Sub コマンド55_Click()

On Error GoTo Err_コマンド55_Click

　　stkey = 0

　　'変数を宣言し、空の文字列を代入

　　　Dim stCri As String

　　　stCri = ""

'[分類名から、分類名まで]が空の文字列ではないとき、変数に条件を格納

　　If (Me.分類名から <> "") And (Me.分類名まで <> "") Then

　　　　stCri = "[分類ｺｰﾄﾞ] Between " & Me.分類名から & " And " & Me.分類名まで & ""

　　End If

'[管理名検索]が空の文字列ではないとき、変数に条件を格納

　　If Me.管理名検索 <> "" Then　'変数に条件設定済みの場合、AND条件を追加

　　If stCri <> "" Then stCri = stCri & " And "

　　　　stCri = stCri & "[管理名称] Like " & " '*" & Me.管理名検索 & "*'"

　　End If

抽出処理:

Me.Filter = stCri

Me.FilterOn = True

Exit_コマンド55_Click:

Exit Sub

Err_コマンド55_Click:

MsgBox Error$

Resume Exit_コマンド55_Click

End Sub

****************************************************

＜並び替え機能＞
・番号、分類名、管理名称をクリックすることで、並び替える事が可能です。

②　管理情報　保守画面（データ登録用）

登録を実施する時は、この画面より、1件、1件登録する必要が有ります。
ちょっと面倒ですが。。。あえて、一覧画面から登録する処理はありません（便利は分るが、シンプルに！）

＜入力(登録)項目＞
１）分類名（ドロップダウンリストより選択）
２）管理名称（自分で、好きな名称を手入力）
３）3行分の管理する項目と内容
管理する項目をドロップダウンリストより選択して、実際のデータ（パスワード、メールアドレスなど）を手入力。
４）メモ欄１
５）メモ欄２

管理している項目は、たったこれだけです。

「新規追加」ボタンをクリックした時の動作コード

****************************************************

Private Sub 追加_Click()
On Error GoTo Err_追加_Click

DoCmd.GoToRecord , , acNewRec

Exit_追加_Click:
Exit Sub

Err_追加_Click:
MsgBox Err.Description
Resume Exit_追加_Click

End Sub

Private Sub 追加_Click()

On Error GoTo Err_追加_Click

DoCmd.GoToRecord , , acNewRec

Exit_追加_Click:

Exit Sub

Err_追加_Click:

MsgBox Err.Description

Resume Exit_追加_Click

End Sub

****************************************************

＜補足説明＞

例えば、定義した「管理データ検索」ボタンをクリックした時の動作コードを埋め込むには

①画面のモードを「デザインビュー」にする。
②「管理データ検索」ボタンを指定する。
③「プロパティシート」をクリックして、プロパティシート画面を表示
④クリック時のイベントコードを定義する為にクリックする。

ビジュアル　ベーシック　画面が表示されますので、ここでコードを定義します。

「コマンド３（管理データ検索）」をクリックした時の画面を表示するためのVBAコードです。

****************************************************

Private Sub コマンド3_Click()
On Error GoTo Err_コマンド3_Click

Dim stDocName As String
Dim stLinkCriteria As String

DoCmd.Close

stDocName = "F_管理データ一覧検索フォーム"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_コマンド3_Click:
Exit Sub

Err_コマンド3_Click:
MsgBox Err.Description
Resume Exit_コマンド3_Click

End Sub

Private Sub コマンド3_Click()

On Error GoTo Err_コマンド3_Click

Dim stDocName As String

Dim stLinkCriteria As String

DoCmd.Close

stDocName = "F_管理データ一覧検索フォーム"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_コマンド3_Click:

Exit Sub

Err_コマンド3_Click:

MsgBox Err.Description

Resume Exit_コマンド3_Click

End Sub

****************************************************

＜コード解説１＞
これは、決まり金時の記述です。

****************************************************

Private Sub コマンド3_Click()
On Error GoTo Err_コマンド3_Click　’エラー発生時にジャンプさせて終了する。

処理内容

Exit_コマンド3_Click:
Exit Sub

Err_コマンド3_Click:
MsgBox Err.Description　　’エラー時にエラー番号を表示させる
Resume Exit_コマンド3_Click

End Sub

Private Sub コマンド3_Click()

On Error GoTo Err_コマンド3_Click　’エラー発生時にジャンプさせて終了する。

処理内容

Exit_コマンド3_Click:

Exit Sub

Err_コマンド3_Click:

MsgBox Err.Description　　’エラー時にエラー番号を表示させる

Resume Exit_コマンド3_Click

End Sub

****************************************************

＜コード解説２＞　処理内容
***************************************************
Dim stDocName As String　　’データ定義
Dim stLinkCriteria As String　’データ定義

DoCmd.Close　　’現在、開いているフォームを閉じる

stDocName = “F_管理データ一覧検索フォーム”
DoCmd.OpenForm stDocName, , , stLinkCriteria　’F_管理データ一覧検索フォームを開く命令文です。
***************************************************

実際の命令文は、たった２つです。
・DoCmd.Close　フォームを閉じる
・DoCmd.OpenForm～　フォームを開く