زرار الانتقال الى سجل محدد

[f16]

اسعد الله مسائكم جميعاً

لدي سؤال هو كيف يمكن برمجة زرار الانتقال الى سجل محدد لدي مثال مرفق فيه جدول اسمه  tb1 وهناك نموذج مصدر سجلاته هو الجدول tb1 وفيه زرار اريد عندالضغط على الزرار اريده ان يذهب الى السجل الذي رقم ID هو 3 وليس ترتيب السجل . 

قمت بعمل الكود التالي ولاكنه ينتقل الى السجل الذي ترتيبة رقم 3 وليس الذي رقمه في ID  رقم 3

DoCmd.GoToRecord , , acGoTo, 3

مع كل الامتنان والشكر 

 

 

مثال اوفيسنا الانتقال الى سجل محدد.accdb

[Gamal.Saad]

استنادا لقيمة ثابتة :

Me.Recordset.FindFirst "[id] = 3"

واستنادا لمتغير :

Me.Recordset.FindFirst "ID=" & Me.Text1

 

[f16]

شكرا أ/ جمال على ردك الكريم  وعلى هذه الاكواد الرائعة ، اسائل الله لك الأجر والتوفيق

 

 

 

[f16]

في ٢٩‏/٥‏/٢٠٢٠ at 17:15, Gamal.Saad said:

استنادا لقيمة ثابتة :

Me.Recordset.FindFirst "[id] = 3"

واستنادا لمتغير :

Me.Recordset.FindFirst "ID=" & Me.Text1

 

أ/ جمال 

المعذرة منك على التضييق عليك بهذا السؤال 

كيف يمكن اضافة شرط اخر الى الكود السابق بمعنى  

الكود السابق هو اذهب الى السجل مثلا رقم 0 ،  اريد ان اضيف شرط اخر هو 

اذهب الى السجل رقم  0 الذي نوعه رقم 2

لقد وضعت الكود بالشكل التالي ولاكنها لم تضبط 

"Me.Recordset.FindFirst "[inv_id_h] = 0 and [inv_type_h]=2

ولك جزيل الشكر 

اخوك 

 

تم تعديل يونيو 1, 2020 بواسطه f16

[Gamal.Saad]

Me.Recordset.FindFirst "[inv_id_h] = 0 And [inv_type_h] = 2"

Me.Recordset.FindFirst "[inv_id_h] = " & Me.inv_id_h & " And [inv_type_h] = " & Me.inv_type_h & ""

شغال ، جرب المرفق

مثال اوفيسنا الانتقال الى سجل محدد 2.accdb

[f16]

شكرا أ/ جمال  على جهدك 

الكود نجح بشكر رائع . مع اني عملت نفس الكود ولاكن ربما كان هناك خطاء في كتابة الكود 

لك خالص التحية 

اخوك 

[Gamal.Saad]

6 ساعات مضت, f16 said:

مع اني عملت نفس الكود ولاكن ربما كان هناك خطاء في كتابة الكود

فعلا الكودين متطابقين من النظرة الأولى

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