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

مربع تحرير وسرد


bumb
إذهب إلى أفضل إجابة Solved by د.كاف يار,

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

السلام عليكم

 

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

اريد كود يحدث قيم مربع التحرير والسرد في النموذج الفرعي بناء على ماتم اختياره من مربع التحرير والسرد في النموذج الرئيسي

 

تحياتي لكم

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

يستحسن ان ترفق مثال

او تستخدك التالي

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim x As String
    Set rs = CurrentDb.OpenRecordset("Table_Name")
    
    If Not rs.BOF And Not rs.EOF Then
        rs.MoveFirst
        While (Not rs.EOF)
         ComboBox1.AddItem rs.Fields(1)
         ComboBox1.ListWidth = 2.5 * (1440)
            rs.MoveNext
        Wend
    End If
    rs.Close
    Set rs = Nothing

 

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

12 دقائق مضت, د.كاف يار said:

يستحسن ان ترفق مثال

او تستخدك التالي

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim x As String
    Set rs = CurrentDb.OpenRecordset("Table_Name")
    
    If Not rs.BOF And Not rs.EOF Then
        rs.MoveFirst
        While (Not rs.EOF)
         ComboBox1.AddItem rs.Fields(1)
         ComboBox1.ListWidth = 2.5 * (1440)
            rs.MoveNext
        Wend
    End If
    rs.Close
    Set rs = Nothing

 

يبدو لي ان طلبي واضح 

هل من الممكن كود يكون اكثر سهولة مما ذكرت

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

6 ساعات مضت, Eng.Qassim said:

جرب بعد تحديث مربع التحرير والسرد الاول


Private Sub cbo0_AfterUpdate()
Me.subFormName![cbo1] = Null
Me.subFormName![cbo1].Requery
End Sub

 

اجريت عليه بعض التعديلات ونجح الامر حيث وضعت بدلاً من Null الكمبو بوكس الحالي

 

عشت وكثر الله خيرك

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

2 hours ago, bumb said:

اذا حذفته المربع الثاني ما يعرض شي

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

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

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

1 ساعه مضت, Eng.Qassim said:

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

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

في انتظار الحل......

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

1 ساعه مضت, د.كاف يار said:

دائيما لكي تحصل على نتيجة احرص على ان ترفق مثال لكي يتم التطبيق عليه

تفضل التعديل

 

bumb.accdb 1.82 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 2 downloads

عشت وكثر الله خيرك

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

2 دقائق مضت, Eng.Qassim said:

مشاركة مع اخي @د.كاف يار ربما يستفاد منها البعض

Q2.accdb 1.03 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

افضل توظيف للفكرة !

تحويل مربع العطل  الى مربع نص ---- هذا اولا

في حدث عند التغيير في فئة العطل و في آخر حدث يتم تحويل مربع العطل من مربع نص الى مربع تحرير و سرد ---- هذا ثانياَ

و في حدث عند التغيير في مربع العطل يتم تحويل من مربع التحرير و السرد الى مربع نص --- هذا اخيرا

 

 

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

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

في ٣١‏/٧‏/٢٠٢١ at 14:09, د.كاف يار said:

دائيما لكي تحصل على نتيجة احرص على ان ترفق مثال لكي يتم التطبيق عليه

تفضل التعديل

 

bumb.accdb 1.82 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 9 downloads

بعد التجربة اتضح ان الكود لا يعمل بطريقة فعالة

هل من حل لهذه المشكلة

ComboBox.accdb

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

في ٣١‏/٧‏/٢٠٢١ at 23:09, Eng.Qassim said:

مشاركة مع اخي @د.كاف يار ربما يستفاد منها البعض

Q2.accdb 1.03 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 7 downloads

اذا طريقة المهندس قاسم هي الحل النهائي

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

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