الكود:



 


Private Sub Timer1_Timer()

 Set db = OpenDatabase(App.Path & "\adata\db1.mdb", 2)
 Set rs = db.OpenRecordset("sam1", 2)


Do While Not rs.EOF
 Call showdata

rs.MoveNext
Loop

End Sub

Private Sub showdata()

If rs.RecordCount < 1 Then Exit Sub
Text1.Text = rs!Account
Text2.Text = rs!sName
Text3.Text = rs!Address

End Sub


 

 



أحمد مناع كتب:

شكرا سيد next على الاهتمام ...جزاك الله خيرا

software98 كتب:
------------------------------------------------------------
لك مني الف شكراً استاذي العزيز next
والله يحفظكم ويرعاكم

software98 كتب:
------------------------------------------------------------
مع الاسف لا يعمل يعرض اخر سجل في قاعدة البيانات
والله يحفظكم ويرعاكم

بنت البلد كتب:

لا يا اخى الكريم ...الكود صحيح ويعمل بطريقة صحيحة ...لكن كيف تريد ان يعرض كافة السجلات فى مربع نص واحد ؟.......الكود يا اخى يقوم بعرض كافة السجلات واحد تلو الاخر حتى يصل الى السجل الاخير فيقف عنده ومن سرعة Cursor فى تنفيذ الامر استحالة ان تلاحظ ذلك ....وان اردت ان تلاحظ ذلك فما عليك الا استخدام صندوق الرسائل ....فعند ذلك سيقوم البرنامج بعرض كل سجل على حده ولن يتم عرض السجل التالى الا عند الضغط على زر ok ....قم بأستخدام نفس الكود السابق كما يلى لترى بنفسك ماذا اقصد .....الكود فى المرفقات

الكود:

Private Sub Form_Load()

Set db = OpenDatabase(App.Path & "\adata\db1.mdb", 2)
Set rs = db.OpenRecordset("sam1", 2)

End Sub



الكود:

Private Sub Command1_Click()

 If Not rs.BOF Then rs.MoveNext
  If rs.EOF Then rs.MoveFirst
   
 Call showdata


End Sub