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

名前

ホームページ(ブログ、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

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

Atable（注文テーブル）
tCD  Day         Gyousya  Hinmei  suuryou
001  2002/02/16  A社        苺       10
002  2002/02/16  B社        柿       10
-------------------------------------------
002  2002/02/16  B社        桃       10  ←行いたい結果
003  2002/02/17  A社        梨       10  ←行いたい結果

Btable（見積りテーブル）
tCD  Day         Gyousya  Hinmei  suuryou
     2002/02/16  B社        桃       10
     2002/02/17  A社        梨       10

上記プログラムを実行すると、
注文テーブルに見積もりテーブルの全てのデータが注文番号002で登録されてしまいます。
取り合えず、見積りテーブルの最初のレコードが002で登録が出来ないかと思って作ってみたのですが、上手く実行しません。
不適切な箇所が多々あるかと思いますので、ご指導宜しくお願い致します。

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

戻る