連番をつけるには？ (ID：111864)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Dim strData As String
    strData = "select Atable.* " & _
            "from Atable "
           
Dim recData As ADODB.Recordset
Set recData = New ADODB.Recordset
    recData.Open strData, cnn, adOpenStatic, adLockPessimistic
    recData.MoveLast
    
Dim strBase As String
    strBase = "select Btable.* " & _
            "from Btable " & _
            "where(Btable.Check=0)"
            
Dim recBase As ADODB.Recordset
Set recBase = New ADODB.Recordset
    recBase.Open strBase, cnn, adOpenStatic, adLockPessimistic

Dim strNum As String
    strNum = Format(recData!tCD, "000")
    
Do Until recBase.EOF
If recData!Day = recBase!Day And recData!Gyousya = recBase!Gyousya Then
    With recData
            .AddNew
            .Fields!tCD = strNum
            .Fields!Day = recBase!Day
            .Fields!Gyousya = recBase!Gyousya
            .Fields!Hinmei = recBase!Hinmei
            .Fields!suuryo = recBase!suuryo
            .Update
            .MoveLast
    End With
    With recBase
            recBase!tCD = strNum
            recBase!Check = 1
            .Update
            .MoveNext
    End With
Else
    strNum = Format(recData!tCD + 1, "000")
    With recData
            .AddNew
            .Fields!tCD = strNum
            .Fields!Day = recBase!Day
            .Fields!Gyousya = recBase!Gyousya
            .Fields!Hinmei = recBase!Hinmei
            .Fields!suuryo = recBase!suuryo
            .Update
            .MoveLast
    End With
    With recBase
            recBase!tCD = strNum
            recBase!Check = 1
            .Update
            .MoveNext
    End With
End If
Loop

これで解決出来ました。
皆様、ご意見ありがとうございました。
また、もっと良い方法がありましたら「解決」としておりますが、ご指導お願い致します。

←解決時は質問者本人がここをチェックしてください。

戻る