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

[bumb]

السلام عليكم

 

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

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

 

تحياتي لكم

[د.كاف يار]

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

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

    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

 

[bumb]

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

 

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

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

[bumb]

هل من مجيب

[Eng.Qassim]

1 hour ago, bumb said:

هل من مجيب

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

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

 

[bumb]

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

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

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

 

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

 

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

[bumb]

الطريقة نجحت في سجل واحد فقط حاولت وبحثت كثير ولم اجد مبتغاي

رح ارفع المثال ليتم حل المشكلة من ذوي الخبرة

[bumb]

Microsoft Access Database جديد.accdb

[Eng.Qassim]

1 hour ago, bumb said:

Microsoft Access Database جديد.accdb 652 kB · 1 download

قم بالغاء جملة التحديث وكل شي سيكون على مايرام

[bumb]

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

قم بالغاء جملة التحديث وكل شي سيكون على مايرام

اي جمله تحديث؟

[Eng.Qassim]

3 minutes ago, bumb said:

اي جمله تحديث؟

هذا الحدث لا داع له ..قم بحذفه

Private Sub txtIntMaintenItem_AfterUpdate()
Me.txtIntMainten.Requery
End Sub

 

[bumb]

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

هذا الحدث لا داع له ..قم بحذفه

Private Sub txtIntMaintenItem_AfterUpdate()
Me.txtIntMainten.Requery
End Sub

 

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

[Eng.Qassim]

2 hours ago, bumb said:

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

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

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

[bumb]

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

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

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

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

[bumb]

لا ازال انتظر الحل......

[د.كاف يار]

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

تفضل التعديل

 

bumb.accdb

[bumb]

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

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

تفضل التعديل

 

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

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

[Eng.Qassim]

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

Q2.accdb

[د.كاف يار]

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

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

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

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

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

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

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

 

 

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

[bumb]

في ٣١‏/٧‏/٢٠٢١ 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

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

[bumb]

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

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

لا ب من طريقة غير التحويل من كنترول الى كنترول