التحكم بالسجلات

تفضل يا أخي الكريم ،،، ضع هذا الكود ( عند الضغط على الزر ) :

Me.RecordSource = "SELECT Table1.* FROM Table1;"
Me.Text0.ControlSource = "ST_NO"
Me.Text2.ControlSource = "ST_NAME"
DoCmd.GoToRecord , , acFirst

مرفق المثال بعد التعديل

تحياتي

db2.zip

بارك الله بك وبأمثالك - شكرا أخي الكريم - ما قصرت

حياك الله أخي / غازي عثمان ،،،، بارك الله فيك وحفظك من كل مكروه

أخي ستارنور2000 شكرا على اجابتك السريعة - ولكن اسمح لي بسؤال آخر وهو كيف يمكن قراءة السجل التالي من خلال الكود ado أو كما يقال بنفس الطريقة التي تكتب بها نماذج الفيجوال بيسك اي بدون ان يكون النموذج معتمد على الحدول والمثال التالي يوضح ذلك

أرجو كتابة الكود بزر التالي بنفس الطريقة المكتوبة بزر كافة السجل أي باستخدام امر

rs.movenext

وليس ب gotorecord

مع تمنياتي لك بالتوفيق وشكرا سلفا

db222.zip

أخي الكريم ،،، غازي عثمان

أنا ضعيف جداً في أوامر ( الفيجول بيسك ) ولكن حاولت لك في هذه المحاولة :

أولا : ضع هذا الكود في قسم ( الجنرال ) للنموذج :

Dim db As Database, rs As Recordset, sql As String

ثانياً : ضع هذا الكود عند التحميل للنموذج :

Set db = CurrentDb
Set rs = db.OpenRecordset("select * from table1")

ثالثاً : ضع هذا الكود في زر الامر لـ ( عرض أول السجلات )

Set db = CurrentDb
Set rs = db.OpenRecordset("select * from table1")
rs.MoveFirst
Me!Text0 = rs!st_no
Me!Text2 = rs!st_name

رابعاً : ضع هذا الكود في زر الامر لـ ( السجل التالي )

On Error GoTo m:

rs.MoveNext
Me!Text0 = rs!st_no
Me!Text2 = rs!st_name
m:
    'MsgBox "مع خالص تحياتي لك أخي غازي"

مرفق لك المثال بعد التعديل ,,,,

مع خالص تحياتي

التحكم بالسجلات.zip

شكرا أخي ستارنور2000 - فعلا هو المطلوب بذاته - شكرا مرة أخرى - وأقدر جهودك وفقك الله - وجعل جهدك في ميزان أعمالك

حياك الله أخي / غازي عثمان ،،،، بارك الله فيك وحفظك من كل مكروه

مع خالص تحياتي أخوك / محمد