このスクリプトをコピペすればテーブルをレコードセット化出来る。

Function dbRSopen()

Dim cn As ADODB.Connection
Set cn = Application.CurrentProject.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "対象テーブル", cn, adOpenKeyset, adLockOptimistic

Do While rs.EOF = False

    rs![変更したい項目] = DLookup("新しい値", "元テーブル", "ID=" & rs![ID])
    rs.Update
    
rs.MoveNext
Loop

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

End Function
(160 views)

コメントを残す

メールアドレスが公開されることはありません。