بانک اطلاعاتی

[شفیعی]

سلام
یک DBGRID روی فرم قرار داده ام یک کلید نیز در پایین صفحه قرار داده ام وقتی روی کلید کلیک می کنم عملیات زیر انجام می شود

Private Sub Command2_Click()



If Command2.Caption = "متر" Then

    Command2.Caption = "میر"

Else

    Command2.Caption = "متر"

End If

If Data1.Recordset.RecordCount > 0 Then

Data1.Recordset.MoveFirst

For T = 0 To Data1.Recordset.RecordCount - 2

    TOL = Data1.Recordset.Fields!TOL

    'DBGrid1.Columns(2)

    SHIB = DBGrid1.Columns(3)

    If IsNumeric(TOL) And IsNumeric(SHIB) Then

        c1 = Cos((SHIB * 3.14159265358979) / 180)

    End If

    If Command2.Caption = "میر" Then c1 = c1 * c1

    DBGrid1.Columns(5) = Format(c1 * TOL, "###.##")

(11)    Data1.Recordset.MoveNext

  Next

End If

End Sub

مشکل در خط (11) است وقتی برنامه به این خط می رسد پیغام زیر را می دهد لطفا بنده را راهنمائی نمائید

RUN-TIME ERROR '3426':
THIS ACTION WAS CANCELLED AN ASSOCIATED OBJECT.