السلام عليكم
هذا الكود المستعمل لكن عند التنقل الى التالي او الرجوع الزرين لا يعملان
لم اجد حل لهذه المشكلة
ارجو المساعدة
Private Sub Command1_Click()
On Error Resume Next
Data1.Recordset.MoveNext
End Sub
Private Sub Command2_Click()
On Error Resume Next
Data1.Recordset.MovePrevious
End Sub
Private Sub Text1_Change()
Text5.Text = Val(Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text))
End Sub
جرب هذا
Private Sub Command1_Click() if data1.recordset.EOF=False then Data1.Recordset.MoveNext Else Data1.Recordset.Movelast end if End Sub Private Sub Command2_Click() if data1.recordset.BOF=False then Data1.Recordset.MovePrevious Else Data1.Recordset.MoveFirst End if End Sub
تحياتي
تم تعديل هذه المشاركة بواسطة omani في 12 يوليو 2010 في 11:42
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
شكرا أخي على المساعدة
لكن لم تنجح الطريقة وظهرت الرسالة و لم أجد لها معنى
ارجو المساعدة
ارفع المثال اخي الكريم .. لنتمكن من معرفة الخلل بالضبط .
تحياتي
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
شكرا أخي عمانـي على المساعدة
سوف اجربه و اتحمل الأداة Adodc1
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…