الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف اعمل حركة في دايتابيس ؟

مغلق
بدأه Yousaf_Lnx في 15 سبتمبر 2007 · 0 رد · 666 مشاهدة · في قسم قواعد البيانات
مشاركة: واتساب X فيسبوك تيليجرام
#1

اسلام عليكم

كل عام و انتم بخير

في عندي مشكلة في هذا الكود يوم وصل الي اخر سجل ما يرجع الي عكس الحركة.

  Private Sub Command1_Click()
On Error Resume Next
If Data1.Recordset.BOF Then
MsgBox "åÐÇ Âæá ÓÌá"
Else
Label10.Caption = "" & Data1.Recordset.AbsolutePosition
Data1.Recordset.MovePrevious
Text1.Text = Data1.Recordset![ChequeNum]
Text2.Text = Data1.Recordset![Date]
Text3.Text = Data1.Recordset![Name]
Text4.Text = Data1.Recordset![banks]
Text5.Text = Data1.Recordset![bankBranch]
Text6.Text = Data1.Recordset![MnyNum]
Text7.Text = Data1.Recordset![RcvDate]
Text8.Text = Data1.Recordset![status]
Text12.Text = Data1.Recordset![Notes]
End If
End Sub
Private Sub Command2_Click()
On Error Resume Next
Label10.Caption = "" & Data1.Recordset.AbsolutePosition
If Data1.Recordset.EOF Then
MsgBox "åÐÇ ÂÎÑ ÓÌá"
Data1.Refresh
Else
Data1.Recordset.MoveNext
Text1.Text = Data1.Recordset![ChequeNum]
Text2.Text = Data1.Recordset![Date]
Text3.Text = Data1.Recordset![Name]
Text4.Text = Data1.Recordset![banks]
Text5.Text = Data1.Recordset![bankBranch]
Text6.Text = Data1.Recordset![MnyNum]
Text7.Text = Data1.Recordset![RcvDate]
Text8.Text = Data1.Recordset![status]
Text12.Text = Data1.Recordset![Notes]
End If
End Sub

      
      

      
    

  

    
    
 هذا الموضوع مغلق.

    
 مواضيع مشابهة