سوال در مورد یه ارور

حامد منصف · May 27, 2007

با سلام
اگه میشه یه نگاه به کد زیر بندازین نباید اروور بده ولی میده!
اونم کامپایل ارور میگه next بدون for داری!

کد:

Private Sub Command6_Click()
Dim sss As String
On Error GoTo err1
If Text3.Text <> "" Then
    'clear data1
    If Data1.Recordset.BOF = False Then Data1.Recordset.MoveFirst
    If Form1.Data9.Recordset.BOF = False Then Form1.Data9.Recordset.MoveFirst
    ddd = Data1.Recordset.RecordCount
    For q = 0 To (ddd * 2)
         If Data1.Recordset.BOF = False Then Data1.Recordset.MoveFirst
         If Data1.Recordset.EOF = False Then
            Data1.Recordset.Delete
            Data1.Refresh
         End If
    Next q
    'start search
    
    aaa = 1
    For s = 0 To (Form1.Data9.Recordset.RecordCount - 1)
        If Form1.Data9.Recordset.Fields("code") = Text3.Text Then
        If Form1.Adodc1.Recordset.BOF = False Then Form1.Adodc1.Recordset.MoveFirst
        For j = 0 To (Form1.Adodc1.Recordset.RecordCount - 1)
            If Form1.Adodc1.Recordset.Fields("cp") = Form1.Data9.Recordset.Fields("cp") Then
                Data1.Recordset.AddNew
                For w = 0 To 66
                    Data1.Recordset.Fields(w) = Form1.Adodc1.Recordset.Fields(w)
                Next w
                Data1.Recordset.Fields("2nm") = aaa
                aaa = aaa + 1
                Data1.Recordset.Update
            End If
            If Form1.Adodc1.Recordset.EOF = False Then Form1.Adodc1.Recordset.MoveNext
        Next j
        If Form1.Data9.Recordset.EOF = False Then Form1.Data9.Recordset.MoveNext
    Next s
    cr8.PrintReport
Else
        MsgBox "áØÝÇ ˜Ï ÏæÑå ãæÑÏ äÙÑ ÑÇ æÇÑÏ íÇ ÂäÑÇ ÇÒ ÞÓãÊ ÌÓÊÌæí ÏæÑå ÇäÊÎÇÈ äãÇííÏ", vbInformation, "íÛÇã"
   
End If
err1:

End Sub

ارور اصلی مال این قسمته
aaa = 1
For s = 0 To (Form1.Data9.Recordset.RecordCount - 1)
If Form1.Data9.Recordset.Fields("code") = Text3.Text Then
If Form1.Adodc1.Recordset.BOF = False Then Form1.Adodc1.Recordset.MoveFirst
For j = 0 To (Form1.Adodc1.Recordset.RecordCount - 1)
If Form1.Adodc1.Recordset.Fields("cp") = Form1.Data9.Recordset.Fields("cp") Then
Data1.Recordset.AddNew
For w = 0 To 66
Data1.Recordset.Fields(w) = Form1.Adodc1.Recordset.Fields(w)
Next w
Data1.Recordset.Fields("2nm") = aaa
aaa = aaa + 1
Data1.Recordset.Update
End If
If Form1.Adodc1.Recordset.EOF = False Then Form1.Adodc1.Recordset.MoveNext
Next j
If Form1.Data9.Recordset.EOF = False Then Form1.Data9.Recordset.MoveNext
Next s

سوال در مورد یه ارور

حامد منصف

Member

آخرین مطالب مجیدآنلاین

جدیدترین ارسال ها