شفیعی
دوشنبه 16 تیر 1382, 18:20 عصر
سلام
یک 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.
یک 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.