【Access VBA】実践演習 #4 (編集機能の実装)

今回必要なデータは「Q_書籍検索」に含まれています。
まずはいつも通りOpenRecordsetしますが、この後にFindFirstメソッドを使うのがポイントです。

FindFirstメソッドは引数にWHERE句の条件式を指定します。
今回はBOOK_IDで検索をかけています。

あとは検索した結果rsの参照しているレコードの各フィールドをフォームに設定しています。

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("Q_書籍検索", dbOpenDynaset)

rs.FindFirst "BOOK_ID = " & Me!BOOK_ID

Me!タイトル = rs.Fields("タイトル")
Me!カテゴリ = rs.Fields("カテゴリ名")
Me!著者 = rs.Fields("著者")

rs.Close
db.Close

End Sub
[/vb]

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sql As String

sql = "SELECT タイトル,カテゴリ名,著者 FROM 蔵書一覧 LEFT OUTER JOIN カテゴリ一覧 ON 蔵書一覧.CATEGORY_ID = カテゴリ一覧.CATEGORY_ID WHERE BOOK_ID = " & Me!BOOK_ID

Set db = CurrentDb
Set rs = db.OpenRecordset(sql, dbOpenDynaset)

Me!タイトル = rs.Fields("タイトル")
Me!カテゴリ = rs.Fields("カテゴリ名")
Me!著者 = rs.Fields("著者")

rs.Close
db.Close

End Sub
[/vb]

今回必要となる「タイトル」「カテゴリ名」「著者」を取得するためのSQLを用意しています。
「タイトル」「著者」は「蔵書一覧」テーブルから取得できますが、「カテゴリ名」は「カテゴリ一覧」テーブル
から取得するため、外部結合を使用しています。

SQLが完成したらOpenRecordsetの引数に渡して、取得したレコードセットの各フィールドをフォームにセットしています。

練習4-1の解答例①で説明しますが、②でも同様です。
まず以下の様にプロシージャを作成します。
[vb] Private Sub displayBookInfo(BOOK_ID As Long)

End Sub
[/vb] 引数「BOOK_ID」でLong型の値をを受け取れるようにしています。
あとはこの中に練習4-1のプログラムを貼り付けるだけですが、
「Me!BOOK_ID」の箇所を「BOOK_ID」に置き換えてください。(9行目)
[vb] Private Sub displayBookInfo(BOOK_ID As Long)

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("Q_書籍検索", dbOpenDynaset)

rs.FindFirst "BOOK_ID = " & BOOK_ID

Me!タイトル = rs.Fields("タイトル")
Me!カテゴリ = rs.Fields("カテゴリ名")
Me!著者 = rs.Fields("著者")

rs.Close
db.Close

End Sub
[/vb]

IsNullの判定は、OpenArgsが空の時(F_トップページから飛んだ時など)にエラーを吐かないための処理です。

未入力チェックに関する説明は登録時と同様なので割愛します。

レコードの編集は以下の流れで処理をしています。
1.「蔵書一覧」テーブルのレコードセットを取得
2. 対象のレコードへ移動(FindFirstメソッド)
3. レコードを編集状態にする(Editメソッド)
4. データを編集して、レコードセットを更新

解答例は以下になります。
[vb] Private Sub 編集ボタン_Click()

‘ 入力チェック
If IsNull(Me!BOOK_ID) Then
MsgBox "BOOK IDが空です。", vbExclamation
Exit Sub
End If

If IsNull(Me!タイトル) Then
MsgBox "タイトルが空です。", vbExclamation
Exit Sub
End If

If IsNull(Me!カテゴリ) Then
MsgBox "カテゴリが空です。", vbExclamation
Exit Sub
End If

If IsNull(Me!著者) Then
MsgBox "著者が空です。", vbExclamation
Exit Sub
End If

‘ 編集処理
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("蔵書一覧", dbOpenDynaset)

‘ レコード検索
rs.FindFirst "BOOK_ID = " & Me!BOOK_ID

‘ 編集
rs.Edit
rs.Fields("タイトル") = Me!タイトル
rs.Fields("CATEGORY_ID") = Me!カテゴリ.Column(0)
rs.Fields("著者") = Me!著者
rs.Update

‘ Close
rs.Close
db.Close

MsgBox "書籍情報を更新しました。", vbInformation

End Sub
[/vb]

レコードセットを扱う上で注意することとして、
今どの行(レコード)を参照しているかを気にする必要があります。
27行目でOpenRecordsetした直後は取得した中で一番上のレコードを参照しています。
今回のように更新したい行が決まっている場合は、処理を開始する前に
FindFirst等のメソッドで対象のレコードへ移動する必要があります。(29行目)

また、編集の処理に関しては基本的には登録の時と似ていますが、
既存のレコードを更新する場合には最初に「rs.Edit」を使ってレコードを編集状態にします。
(登録の時のAddNewの代わりと考えても良いかと思います。)

If IsNull(Me!BOOK_ID) Then
MsgBox "BOOK IDが空です。", vbExclamation
Exit Sub
End If

If IsNull(Me!タイトル) Then
MsgBox "タイトルが空です。", vbExclamation
Exit Sub
End If

If IsNull(Me!カテゴリ) Then
MsgBox "カテゴリが空です。", vbExclamation
Exit Sub
End If

If IsNull(Me!著者) Then
MsgBox "著者が空です。", vbExclamation
Exit Sub
End If

Dim db As DAO.Database
Dim sql As String

sql = "UPDATE 蔵書一覧 SET タイトル = ‘" & Me!タイトル & "’,CATEGORY_ID = " & Me!カテゴリ.Column(0) & ",著者 = ‘" & Me!著者 & "’ WHERE BOOK_ID = " & Me!BOOK_ID

Set db = CurrentDb
db.Execute sql

db.Close

MsgBox "書籍情報を更新しました。", vbInformation

End Sub
[/vb]

sqlが作成できればExecuteメソッドで実行するだけですが、やはりSQLが複雑になります。
実際にできあがるSQLは以下になります。
[sql] UPDATE 蔵書一覧 SET タイトル = ‘ハリー・ポッターと秘密の部屋’,CATEGORY_ID = 1,著者 = ‘J・K・ローリング’ WHERE BOOK_ID = 2
[/sql] プログラムを作成したらローカルウィンドウを使って変数sqlの中身を確認してみてください。

‘ BOOK_IDが空なら中断
If IsNull(Me!BOOK_ID) Then
Exit Sub
End If

‘ 確認メッセージ
Dim m As Long
m = MsgBox("編集中の内容がリセットされます。", vbExclamation + vbOKCancel)

‘ OK以外なら中断
If m <> vbOK Then
Exit Sub
End If

‘ リセット処理
Call displayBookInfo(Me!BOOK_ID)

End Sub
[/vb]

練習4-2で作成したdisplayBookInfoがここでも利用できるため、
比較的シンプルなコードになるかと思います。