Microsoft Access Club >DAO入門講座 >このページ >次頁 < 前項 | ![]() |
Editメソッド、Updateメソッド基本形としては、編集する内容をEditメソッドとUpdateメソッドの間に記述します。
カレントレコードの編集下記のプロシージャは、Recordsetオブジェクトを作成し、カレントレコードを編集します。 Sub SamplePro() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("取引先リスト") rs.Edit ' --- A rs!取引先 = rs!取引先 & " 御中" rs.Update ' --- B rs.Close: Set rs = Nothing db.Close: Set db = Nothing End Sub 解説
全レコードの編集全レコードを編集するには、カレントレコードを移動させる必要があります。つまり、Loopで全レコードを一度カレントレコードにし、その時点で編集します。 Sub SamplePro2() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("取引先リスト") Do Until rs.EOF ' --- A rs.Edit rs!取引先 = rs!取引先 & " 御中" rs.Update rs.MoveNext ' --- B Loop rs.Close: Set rs = Nothing db.Close: Set db = Nothing End Sub 解説
留意点
2004/05/10
|
動画配信(ダウンロード、ストリーミング)対応の専用レンタルサーバー。
データセンター設置場所はアメリカ合衆国です。
100Mbps〜1Gbpsまで対応できます。