السيد الجوهرى قام بنشر أبريل 15, 2015 قام بنشر أبريل 15, 2015 لدي نموذج Form1 علية زر بحث عند الضغط على زر بحث يفتح نموذج أخر Form2 بداخلة مربع نص وزر بحث ما اريدة عند كتابة Id الموجودة داخل Form1 يتم نقل التركيز الى الرقم الذى تم كتابتة فى مربع النص نقل التركيز.rar
رمهان قام بنشر أبريل 16, 2015 قام بنشر أبريل 16, 2015 الاستاذ السيد الجوهري مما لاشك ان اسئلة تاتي بحجمكم العلمي لا تكون سهلة . الآن لدي اقتراح وافقتني عليه اوكي لم توافقني ستجد ما تريد باذن الله : 1. ما رايك ان يكتب البحث في مربع البحث الافتراضي للنموذج الفرعي والموجود مع ازرار التنقل 2. مارايك ان يكون مربع في النموذج الرئيسي او مربع تحرير وسرد وليس مربعا في نموذج جديد ومستقل تحياتي
السيد الجوهرى قام بنشر أبريل 16, 2015 الكاتب قام بنشر أبريل 16, 2015 (معدل) الاستاذ السيد الجوهري مما لاشك ان اسئلة تاتي بحجمكم العلمي لا تكون سهلة . الآن لدي اقتراح وافقتني عليه اوكي لم توافقني ستجد ما تريد باذن الله : 1. ما رايك ان يكتب البحث في مربع البحث الافتراضي للنموذج الفرعي والموجود مع ازرار التنقل 2. مارايك ان يكون مربع في النموذج الرئيسي او مربع تحرير وسرد وليس مربعا في نموذج جديد ومستقل تحياتي شكرا اخي رمهان على مرورك الطيب بالطبع افكار جيدة هى بالفعل مطبقة على برنامجى لكن اريد وضع مزيد من الاحترافية على برنامجى وتكون طريقة البحث داخل نموذج قيود اليومية طريقة مميزة تم تعديل أبريل 16, 2015 بواسطه السيد الجوهرى11
رمهان قام بنشر أبريل 16, 2015 قام بنشر أبريل 16, 2015 Private Sub Command5_Click() x = Text0 DoCmd.Close Forms![Form1]![Table1 subform].SetFocus DoCmd.SearchForRecord acActiveDataObject, , acFirst, "id=" & x End Sub
السيد الجوهرى قام بنشر أبريل 16, 2015 الكاتب قام بنشر أبريل 16, 2015 Private Sub Command5_Click() x = Text0 DoCmd.Close Forms![Form1]![Table1 subform].SetFocus DoCmd.SearchForRecord acActiveDataObject, , acFirst, "id=" & x End Sub شكرا استاذ رمهان هذا الكود ينقلنى الى السجل الاول فقط بغض النظر عن رقم السجل
رمهان قام بنشر أبريل 16, 2015 قام بنشر أبريل 16, 2015 هو بينقلك للرقم المدخل في مربع البحث ! ينقلك للسجل الأول فقط عندما لا يجد ماتبحث عنه !
السيد الجوهرى قام بنشر أبريل 16, 2015 الكاتب قام بنشر أبريل 16, 2015 عند كتابة الرقم لم ينقلي الى ما اريد بل يقف عند الرقم 1 شكرا على المجهود
رمهان قام بنشر أبريل 16, 2015 قام بنشر أبريل 16, 2015 لدي تمام اخي سيد . ممكن ترفق الملف بعد تطبيق الكود ! تحياتي
السيد الجوهرى قام بنشر أبريل 16, 2015 الكاتب قام بنشر أبريل 16, 2015 لدي تمام اخي سيد . ممكن ترفق الملف بعد تطبيق الكود ! تحياتي 1-نقل التركيز.rar
رمهان قام بنشر أبريل 16, 2015 قام بنشر أبريل 16, 2015 اخي سيد تمت التجربة وتمام لدي ! اكتب رقم 6 او 7 مثلا في مربع البحث ثم الضغط على زر بحث في النموذج الفرعي فينتقل الى السجل المحدد !! اين مشكلتك لا اعلم ! لعل احد يشاركنا من الاعضاء ويختبره ! بالتوفيق
jjafferr قام بنشر أبريل 16, 2015 قام بنشر أبريل 16, 2015 السلام عليكم انا كذلك جربت مرفق الاخ السيد الجوهري وكله تمام انا عملت كود ثاني اللي ممكن نجربه وهو: Set rst = Forms!Form1![Table1 subform].Form.Recordset rst.FindFirst "[id]=" & Me.Text0 DoCmd.Close acForm, "Form2" جعفر 1
علي المصري قام بنشر أبريل 16, 2015 قام بنشر أبريل 16, 2015 تمام الاكواد تعمل بشكل ممتاز جزاكم الله خيرا 1
السيد الجوهرى قام بنشر أبريل 17, 2015 الكاتب قام بنشر أبريل 17, 2015 السلام عليكم انا كذلك جربت مرفق الاخ السيد الجوهري وكله تمام انا عملت كود ثاني اللي ممكن نجربه وهو: Set rst = Forms!Form1![Table1 subform].Form.Recordset rst.FindFirst "[id]=" & Me.Text0 DoCmd.Close acForm, "Form2" جعفر شكرا جزيلا على المساعدة والمرور الطيب من الجميع هذا الكود اشتغل ولا ادري لماذا كود الاستاذ \ رمهان لم يعمل معي رغم انى غيرت جهاز الكمبيوتر عموما الشكر موصول للجميع
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.