RS.Update "科目コード", "1112"
    RS.Update "科目名", "当座預金"

---------------------------------------------------------------

    RS("科目コード").Value = "1112"
    RS("科目名").Value = "普通預金"
    RS.Update

---------------------------------------------------------------

RS("科目名").Value は、
RS![科目名].velue
RS.Fields("科目名").Value 、
RS("科目名")
RS(インデックス番号) でも大丈夫
インデックス番号は0から

カレントレコードは移動せず、そのまま

レコードセットのLockTypeプロパティは、既定のadLockReadOnlyでは、更新できずエラーになる

----------------------------------------------------------------

フリガナで並べ替えて、顧客IDに1番から番号を付け直す

Option Compare Database
Option Explicit

Dim myADOcon As New ADODB.Connection
Dim myRecSet As New ADODB.Recordset

Const Prv_Jet40 = "Provider=Microsoft.Jet.OLEDB.4.0;"

Sub Open_ADOdb()
    Set myADOcon = CurrentProject.Connection
End Sub

Sub Close_myRecSet()
    myRecSet.Close
    Set myRecSet = Nothing
End Sub

Sub Close_ADOdb()
    Set myADOcon = Nothing
End Sub

Sub 個人確定申告管理_顧客ID付け直し()
    '顧客IDを1番から付け直す
    Call Open_ADOdb
    Call K_UPdate
    Call Close_myRecSet
    Call Close_ADOdb
End Sub

Sub K_UPdate()
    Dim i As Long
    Dim mySQL As String
    
    mySQL = "SELECT * FROM tbl個人確定申告管理 ORDER BY フリガナ;"
    
    On Error GoTo ErrorCheck
    
    myADOcon.BeginTrans
    
    myRecSet.Open mySQL, myADOcon, adOpenKeyset, adLockOptimistic
    
    i = 1
    
    Do Until myRecSet.EOF
    
        myRecSet(1).Value = i
        i = i + 1

        myRecSet.Update
        myRecSet.MoveNext
    
    Loop

    myADOcon.CommitTrans

    Exit Sub

ErrorCheck:
    
    myADOcon.RollbackTrans
    MsgBox Err.Description
    
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ