استخراج قيمة السجل الأول

[صالح حمادي]

ما هو الكود الذي يمكننا من إستخراج السجل الأول لأحد حقول جدول. و وضعه في مربع نص.

 

[محمدنجار]

7 ساعات مضت, صالح حمادي said:

ما هو الكود الذي يمكننا من إستخراج السجل الأول لأحد حقول جدول. و وضعه في مربع نص.

 

اهلا بك اخي صالح ...لا اعلم ان كنت تقصد هذا فانت استاذنا .

انا اضع هذه الدالة في مربع النص     DLookUp("[Fld]","Tbl","id=1)=

حيث Fld هو الحقل  , Tbl اسم الجدول .

[صالح حمادي]

شكرا لك أخي محمد نجار على الرد.

1 ساعه مضت, محمدنجار said:

DLookUp("[Fld]","Tbl","id=1)=

هذا الكود هو لإستخراج قيمة الحقل  [Fld] من الجدول Tbl عندما تكون قيمة الحقل id=1 هذا الكود ينفع في حالات و حالات أخرى لا ينفع. يعني أنه ليس بالضرورة id=1 هو السجل الأول.

[محمدنجار]

2 ساعات مضت, صالح حمادي said:

شكرا لك أخي محمد نجار على الرد.

هذا الكود هو لإستخراج قيمة الحقل  [Fld] من الجدول Tbl عندما تكون قيمة الحقل id=1 هذا الكود ينفع في حالات و حالات أخرى لا ينفع. يعني أنه ليس بالضرورة id=1 هو السجل الأول.

احسنت التوضيح اخي صالح ..نحن بانتظار الحل ..

تم تعديل يوليو 18, 2016 بواسطه محمدنجار

[صالح حمادي]

إن شاء الله راح نوصل للحل

[jjafferr]

السلام عليكم 

 

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

 

جعفر

[صالح حمادي]

و عليكم السلام و رحمة الله و بركاته أخي جعفر.

سوف تجد في المرفق جدول tbl و نموذج به زر أمر و مربع نص غير منظم.

أريد عند الضغط على الزر يظهر في مربع النص اسم السجل الأو ل لحقل nom الموجود في الجدول tbl يعني النتيجة راح تكون "صلاح"

[عبد الفتاح كيرة]

.Docmd . Gotorecord

[صالح حمادي]

معذرة هذا هو المرفق

استخراج قيمة السجل الأول.rar

2 دقائق مضت, عبد الفتاح كيرة said:

Docmd . Gotorecord

اخي عبد الفتاح مشكور على المشاركة.

أنا أريد أن أضع النتيجة في مربع نص غير منظم

[jjafferr]

السلام عليكم 

 

أخي صالح:

عمل قواعد البيانات ، بإختصار :

ادخال بيانات ، فرز وتصفية لإخراج البيانات ،

فلا يوجد شئ اسمه اول سجل ولا آخر سجل ،

لإستخراج سجل معين ، يجب علينا الفرز / التصفية ،

الفرز يكون بقيمة حقل / حقول ، والتصفية كذلك يكون بقيمة حقل / حقول ،

لهذا السبب ، وجود حقل ترقيم تلقائي AutoNumber مفهرس ، مهم لهذا السبب ،

حقل الرقم التلقائي في الواقع هو مهم في سرعة الوصول الى اي سجل ، ويجب ان يكون في كل جدول ، بالاضافة الى حقل تاريخ تلقائي (القيمة الافتراضية Now ) 

 

والآن الى سؤالك 

على اليمين جدولك كما هو ، وعلى اليسار نسخة من الجدول ، ولكن تم حفظه بعد فرز حقل الاسم تنازليا ،

 

الظاهر ان اكسس يحتفظ بتسلسل الادخال ، حتى ولو تمت عملية الفرز ،

واللي عملته اني وضعت حقلين في النموذج باسم nom_1 و nom_11 ، استعملت الكود التالي على زر cmd_1:

Private Sub cmd_1_Click()

    Dim rst As DAO.Recordset

    
    mySQL = "SELECT TOP 1 nom FROM tbl"
    Set rst = CurrentDb.OpenRecordset(mySQL)
    Me.nom_1 = rst!nom
    
    mySQL = "Select * FROM tbl2"
    rst.MoveLast: rst.MoveFirst
    Me.nom_11 = rst!nom

	rst.close : set rst = nothing
End Sub

الكود الاول يأخذ قيمة واحدة من الجدول الاول (والذي بدون فرز) ،

بينما الكود الثاني يأخذ الجدول الثاني ، ثم يأخذ اول قيمة منه ،

والنتيجة كانت "صلاح" 

 

ولكن ، الافضل دائما اضافة حقل الرقم التلقائي ، والذي تستطيع ان تعمل الفرز عن طريقه ، للوصول الى اي سجل مطلوب ، والنتيجة تكون دقيقة 

فعند إضافة حقل الترقيم التلقائي ، فان اكسس يعطي الرقم حسب الادخال الاصل وليس حسب فرز الجدول ، فيكون الجدولان هكذا:

 

هذا هو الكود للحقل nom_2 في النموذج ، وهي الطريقة الصحيحة في العمل:

    mySQL = "Select * From tbl2 Order by Auto_ID"
    rst.MoveLast: rst.MoveFirst
    Me.nom_2 = rst!nom
    

 

جعفر

 

410.استخراج قيمة السجل الأول.accdb.zip

[صالح حمادي]

و عليكم السلام و رحمة الله و بركاته أخي جعفر هذا الحل يفي بالغرض بارك الله فيك و جزاك الله عنا كل خير.

بالنسبة لحقل الترقيم التلقائي فلا شك أنه مهم جدا.

إلا أننا نحتاج هذا في جدول استيراد بيانات خارجية يعني أن حقل الترقيم التلقائي يتغير بإستمرار و لا يمكننا تحديد الأرقام التي تكون بداخل الجدول. لأنه كلما استوردنا بيانات جديدة نقوم بحذف البيانات القديمة.

شكرا جزيلا أستاذ جعفر

 

[رمهان]

مرحبا استاذ صالح

مشاركة مع اخوتي

جرب

لكي تعرف اول سجل في الجدول وكما هو بدون تاثيرات الفرز و بعد الاستيراد استخدم

=DLookUp("[nom]","tbl")

ولكي تعرف اول سجل بعد الفرز (الترتيب) اعمل استعلام مطبقا به الترتيب حسب الاختيار ثم احفظه وليكن باسم query1  واستخدم

=DLookUp("[nom]","Queryl")

هذا والله اعلم

[صالح حمادي]

شكرا جزيلا أستاذ رمهان الكود يعمل بشكل جيد

[رمهان]

6 دقائق مضت, صالح حمادي said:

شكرا جزيلا أستاذ رمهان الكود يعمل بشكل جيد

حياك الله

وللامانة كان هذا مفتاح الحل

1 ساعه مضت, jjafferr said:

الظاهر ان اكسس يحتفظ بتسلسل الادخال ، حتى ولو تمت عملية الفرز ،

ومع اني اشرت اليه في مشاركة لا اعلم مكانها بانه يجب ان لا ننظر لمكان السجلات في الجدول ! 

ولكن هل ممكن تكون احد وسائل الحماية استاذ جعفر ؟؟ هل وصلت لك مايدور في ذهني ؟؟

تحياتي

 

 

[صالح حمادي]

14 دقائق مضت, رمهان said:

ولكن هل ممكن تكون احد وسائل الحماية استاذ جعفر ؟؟ هل وصلت لك مايدور في ذهني ؟؟

من المعروف على الأكسس أنه يحتفظ بتسلسل الإدخال.

فيه بعض الإخوة يعتبرونها أحد عيوب الأكسس لأنها تعيقهم في الوصول إلى الحل بعد الفرز "النتيجة لا تتغير"

و منهم من يذهب إلى أنها أحد مميزاته لأنه مهما حدث عليه من تغييرات "فرز" فإنه سوف يعطيك نفس الناتج.

يعني كل واحد ينظرلها من منظور. فأنا حسب حاجتي لها الآن أعتبرها أحد الميزات المساعدة. و ربما أغير رأيي إن واجهتني نفس المشكلة.

و الله أعلى و أعلم

[رمهان]

اخي صالح

هناك فكرة استخدام مربع قائمة مصدرها جملة استعلام من الجدول وبالعمود المطلوب فقط وتصغير عرض القائمة لتظهر سجل سجل او بتغيير بعض الخصائص ليظهر السجل الاول بالشكل المناسب

او يكون كذلك استخدام اعلى قيمة = 1 ليظهر السجل الاول فقط في مربع القائمة 

تحياتي