accessについて

質問

vbaで、既存のレコードのあるフィールドにデータを入力することは可能ですか。可能ならどのような記述になるんでしょうか。教えてください。

回答No.1

PrintScree · ベストアンサー

テーブルＡ
・キー　　数値型
・項目１　テキスト型
・項目２　テキスト型
・項目３　テキスト型
・項目４　テキスト型

というテーブルがあり、キーには１～１００の一意の値が入った100レコードのデータがあるとします。

これをVBAを使用して、項目３の内容だけ書き換えるには、行く地下方法があります。
まず、VBEの画面から[ツール] - [参照設定]で「Microsoft DAO 3.6 Object Library」にチェックを入れます。Accesskバージョンにより表記が若干異なる。

Public Sub sub例題１()
　' SQLを使用して全データを一括で同じ値に更新する場合
　Dim lobjDB　　　　Database
　Dim lstrSqlStmnt　As String

　Set lobjDB = CurrentDB()

　lstrSqlStmnt = "UPDATE テーブルＡ SET 項目３ = " & Chr(34) & "変更後データ" & Chr(34)
　lobjDB Execute lstrSqlStmnt

　lobjDB.Close
　Set lobjDB = Nothing
End Sub

Public Sub sub例題２()
　' SQLを使用して特定のレコードのデータを更新する場合
　Dim lobjDB　　　　Database
　Dim lstrSqlStmnt　As String

　Set lobjDB = CurrentDB()

　lstrSqlStmnt = "UPDATE テーブルＡ SET 項目３ = " & Chr(34) & "変更後データ" & Chr(34) & _
　　　　　　　　　" WHERE キー = 20"
　lobjDB.Execute lstrSqlStmnt

　lobjDB.Close
　Set lobjDB = Nothing
End Sub

Public Sub sub例題３()
　' SQLを使用しないで特定のレコードのデータを更新する場合
　Dim lobjDB　　　　Database
　Dim lstrSqlStmnt　As String
　Dim lstrRecordset　As Recordset

　Set lobjDB = CurrentDB()

　lstrSqlStmnt = "SELECT * FROM テーブルＡ"
　Set lobjRecordset = lobjDB.OpenRecordset(lstrSqlStmnt, dbOpenDynaset)
　While Not lobjRecordset.EOF
　　If lobjRecordset.Fields("キー").Value = 20 Then
　　　lobjRecordset.Edit
　　　lobjRecordset.Fields("項目３").Value = "変更後データ"
　　　lobjRecordset.UpDate
　　End If
　　lobjRecordset.MoveNext
　WEnd

　lobjDB.Close
　Set lobjDB = Nothing
End Sub

となります。

分かりますか？(^^;

お礼

早速ありがとうございました。結構大変そうですね。参考にさせて頂きます。