0

最初のループの後、「チェック」はどういうわけか常に0です。デバッグを続けますが、それでも理由がわかりません。何か案が?データは、「チェック」を時々0にすることを想定していますが、常にではありません。

Private Sub Command12_Click()
    Dim db As Database
    Dim rs As DAO.Recordset
    Dim rs2 As DAO.Recordset
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("Amity")
    Set rs2 = db.OpenRecordset("Opportunity")
    Set rs3 = db.OpenRecordset("SalesForceDonor")
    Set rs4 = db.OpenRecordset("Donor")

    While Not rs.EOF
        check = 0

        While Not rs3.EOF
            If rs("Donor_Code") = rs3("Donor_Code") Then
                check = 1
            End If
            rs3.MoveNext
        Wend

        If check = 0 Then
            rs4.AddNew
            rs4![Donor_Code] = rs![Donor_Code]
            rs4.Update
        End If

        rs2.AddNew
        rs2![Donor_Code] = rs![Donor_Code]
        rs2![Donation_name] = rs![Donation_name]
        rs2.Update
        rs.MoveNext
    Wend
    rs3.Close
    rs4.Close
    rs2.Close
    rs.Close
End Sub
4

1 に答える 1