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 ブログランキングへ