اذهب الي المحتوي
أوفيسنا

البحث داخل النموذج الفرعي من نموذج اخر


الردود الموصى بها

لدي  نموذج  Form1  علية زر بحث    

 

عند الضغط على زر بحث يفتح نموذج أخر Form2   بداخلة مربع نص وزر بحث 

ما اريدة عند كتابة Id   الموجودة داخل  Form1     يتم نقل التركيز  الى الرقم الذى تم كتابتة  فى مربع النص

 

post-110849-0-78151800-1429123615_thumb.

 

نقل التركيز.rar

 

 

رابط هذا التعليق
شارك

الاستاذ السيد الجوهري

 

مما لاشك ان اسئلة تاتي بحجمكم العلمي لا تكون سهلة

 

الآن لدي اقتراح وافقتني عليه اوكي لم توافقني ستجد ما تريد باذن الله :

 

1. ما رايك ان يكتب البحث في مربع البحث الافتراضي للنموذج الفرعي والموجود مع ازرار التنقل

 

2. مارايك ان يكون مربع في النموذج الرئيسي او مربع تحرير وسرد وليس مربعا في نموذج جديد ومستقل

 

 

 

تحياتي

 

 

رابط هذا التعليق
شارك

الاستاذ السيد الجوهري

 

مما لاشك ان اسئلة تاتي بحجمكم العلمي لا تكون سهلة

 

الآن لدي اقتراح وافقتني عليه اوكي لم توافقني ستجد ما تريد باذن الله :

 

1. ما رايك ان يكتب البحث في مربع البحث الافتراضي للنموذج الفرعي والموجود مع ازرار التنقل

 

2. مارايك ان يكون مربع في النموذج الرئيسي او مربع تحرير وسرد وليس مربعا في نموذج جديد ومستقل

 

 

 

تحياتي

شكرا اخي رمهان  على مرورك  الطيب بالطبع افكار جيدة هى بالفعل مطبقة على برنامجى  لكن اريد وضع مزيد من الاحترافية على برنامجى وتكون طريقة البحث داخل نموذج  قيود اليومية طريقة مميزة 

تم تعديل بواسطه السيد الجوهرى11
رابط هذا التعليق
شارك

Private Sub Command5_Click()
x = Text0
DoCmd.Close
Forms![Form1]![Table1 subform].SetFocus
DoCmd.SearchForRecord acActiveDataObject, , acFirst, "id=" & x
End Sub

رابط هذا التعليق
شارك

Private Sub Command5_Click()
x = Text0
DoCmd.Close
Forms![Form1]![Table1 subform].SetFocus
DoCmd.SearchForRecord acActiveDataObject, , acFirst, "id=" & x
End Sub

شكرا استاذ رمهان 

هذا الكود ينقلنى الى السجل الاول فقط  بغض النظر عن رقم السجل 

رابط هذا التعليق
شارك

اخي سيد

تمت التجربة وتمام لدي ! اكتب رقم 6 او 7 مثلا في مربع البحث ثم الضغط على زر بحث في النموذج الفرعي فينتقل الى السجل المحدد !!

اين مشكلتك لا اعلم ! لعل احد يشاركنا من الاعضاء ويختبره ! 

بالتوفيق

رابط هذا التعليق
شارك

السلام عليكم 

 

انا كذلك جربت مرفق الاخ السيد الجوهري وكله تمام  :smile:

 

انا عملت كود ثاني اللي ممكن نجربه وهو:


    Set rst = Forms!Form1![Table1 subform].Form.Recordset
    rst.FindFirst "[id]=" & Me.Text0
    DoCmd.Close acForm, "Form2"
   

جعفر

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم 

 

انا كذلك جربت مرفق الاخ السيد الجوهري وكله تمام  :smile:

 

انا عملت كود ثاني اللي ممكن نجربه وهو:


    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.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information