PDA

View Full Version : بانک اطلاعاتی



شفیعی
دوشنبه 16 تیر 1382, 17: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.

jghalai
سه شنبه 07 شهریور 1385, 12:06 عصر
من هم همیشه با RecordCount مشکل دارم و نمی دونم چرا

من بجای استفاده از دستور RecordCount از ابتدا با دستور MoveLast به آخرین رکورد می روم وبعد با دستور AbsulatePosition از تعداد رکوردها را بدست می آورم .

این راه را هم امتحان کن شاید جواب گرفتی .

a_heidari22
شنبه 19 مرداد 1387, 19:18 عصر
من هم همیشه با RecordCount مشکل دارم و نمی دونم چرا

من بجای استفاده از دستور RecordCount از ابتدا با دستور MoveLast به آخرین رکورد می روم وبعد با دستور AbsulatePosition از تعداد رکوردها را بدست می آورم .

این راه را هم امتحان کن شاید جواب گرفتی .

ابتدا با ابزار select بر اساس شرط مورد نظر يك select انجام بده

Adodc1.RecordSource = "select *from te"l"
Adodc1.Refresh
t = Adodc1.Recordset.RecordCount