كيف يمكن تلوين صف باكملة فى النموذج الفرعى باى لون ـ عند التركيز على اى عمود

[الحلبي]

السلام عليكم 

مرفق مثال : فى النموذج f2 عبارة عن رئيسى وفرعى 

المطلوب عند الضغط على اى عمود فى الفرعى يتلون الصف كله باى لون بدون رعشة فى الفرعى

جزاكم الله خيرا

تلوين الفرعى.accdb

[Foksh]

وعليكم السلام ورحمة الله وبركاته ..

يمكنك استخدام الحدث عند التركيز والحدث عند فقدان التركيز لمربعات النص التي في الفرعي ..

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

Private Sub itemcod_GotFocus()
    Me.itemcod.BackColor = &H808080  'لون رمادي وتستطيع تغييره كما تريد
End Sub

Private Sub itemcod_LostFocus()
    Me.itemcod.BackColor = vbWhite
End Sub

 

تلوين الفرعى.accdb

[الحلبي]

اهلا ومرحبا باستاذى ومعلمى فؤش

تمام جميل جدا ولكن انا اريد ان يتلون الصف وليس العمود

وعند الضغط مثلا على كود الصنف او اسم الصنف او التاريخ او اى عمود يتلون الصف وليس العمود

جزاك الله خيرا استاذى

[Foksh]

23 دقائق مضت, الحلبي said:

اهلا ومرحبا باستاذى ومعلمى فؤش

تمام جميل جدا ولكن انا اريد ان يتلون الصف وليس العمود

وعند الضغط مثلا على كود الصنف او اسم الصنف او التاريخ او اى عمود يتلون الصف وليس العمود

جزاك الله خيرا استاذى

معك حق ، اختلطت علي الأمور يا صديقي ، هل هذا ما تقصده ؟؟

 

[الحلبي]

/ @Foksh

نعم هذا ما اقصده استاذى العزيز

تم تعديل أكتوبر 27 بواسطه الحلبي

[Foksh]

الان, الحلبي said:

نعم هذا ما اقصده استاذى العزيز

إذاً يا صديقي ، الخطوات يا صديقي كالآتي ..

قمت بإنشاء مربع نص غير منضم ومخفي اسميته txtCurrentID ، وفي حدث في الحالي On Current للنموذج الفرعي ، قمت بوضع هذا السطر البسيط :-

Me.txtCurrentID = Me.itemcod

لجعل قيمة مربع النص هذا في كل صف = قيمة مربع النص itemcod .

الآن قمت بتحديد جميع مربعات النص في النموذج الفرعي التي اريد ان يتم تغيير خلفيتها وفي التنسيق الشرطي لها ، قمت بإضافة شرط جديد

Expression Is : [txtCurrentID]=[itemcod]

واخترت لون الخلفية للمربعات كما اريد :-

 

والنتيجة في الملف المرفق :-

تلوين الفرعى.accdb

 

[الحلبي]

استاذى الغالى 

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

تمام عليك شرح وافى وواضح ووفيت بكل شئ

ولكن عند التطبيق فى برنامجى النموذج الفرعى يرتعش صف بعد صف بسرعة ما ادرى ما السبب

تعتقد ما السبب فى هذه الرعشة ـ وان لم اجد لها حل فسوف اتركها مرعوشة

ربنا يبارك فيك وفى اولادك وفى صحتك وعافيتك 

[Foksh]

4 دقائق مضت, الحلبي said:

ولكن عند التطبيق فى برنامجى النموذج الفرعى يرتعش صف بعد صف بسرعة ما ادرى ما السبب

 

اذا كنت قد طبقت الخطوات بالضبط ، فلا أعلم ما السبب ، ولكن اذا امكنك تصوير طريقة الترميش التي تتحدث عنها !!

ما لم يكن هناك حدث عند الوقت في النموذج الفرعي 

 

على العموم كإضافة لكلامي ، جرب ما يلي :

 

Private Sub Form_Current()
DoCmd.Echo False
    Me.txtCurrentID = Me.itemcod
DoCmd.Echo True
End Sub

 

تم تعديل أكتوبر 27 بواسطه Foksh

[الحلبي]

استاذى الغالى 

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

تمام عليك شرح وافى وواضح ووفيت بكل شئ

ولكن عند التطبيق فى برنامجى النموذج الفرعى يرتعش صف بعد صف بسرعة ما ادرى ما السبب

تعتقد ما السبب فى هذه الرعشة ـ وان لم اجد لها حل فسوف اتركها مرعوشة

ربنا يبارك فيك وفى اولادك وفى صحتك وعافيتك 

لا يوجد حدث عند الوقت

وانا طبقت كل ما حضرتك اشرت اليه وفعلا يتلون الصف واضفت  

DoCmd.Echo False

ولكن الرعشة مازالت على العموم انا مكتفى وسوف اترك الرعشة الان

اشكرك استاذى العزيز

[Foksh]

6 دقائق مضت, الحلبي said:

ولكن الرعشة مازالت على العموم انا مكتفى وسوف اترك الرعشة الان

 

معناه ان الرعشة أو الوميض الذي ذكرته قد يكون ناتج عن أن الكود يقوم بجعل قيمة مربع النص txtCurrentID = itemcod عند التركيز على اي مربع نص لتحقيق الشرط في التنسيق الشرطي ، مما يسبب رعشة في النموذج الفرعي .

[الحلبي]

لا يوجد حدث عند الوقت

وانا طبقت كل ما حضرتك اشرت اليه وفعلا يتلون الصف واضفت  

DoCmd.Echo False

ولكن الرعشة مازالت على العموم انا مكتفى وسوف اترك الرعشة الان

اشكرك استاذى العزيز

[الحلبي]

ممكن يكون هذا مع انى لم اعمل اى حدث عن التركيز ويمكن يكون الكود هو الذى يسبب الرعشةوسوف احاول ان اصف لك الرعشة على حد تعبيرى : وهى توصف ان النموذج الفرعى ينزلق (ينكمش) الى اعلى بسرعة فائقة ثم يفرد الى اسفل بسرعة فائقة ايضا وكل هذه العملية لا تشتغرق اكثر من ربع ثانية او نصف ثانية 

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

اخويا فؤش سوف اترك هذا الامر حتى ارى ما الذى افعله فى هذا الاستعلام السخيف

بارك الله فيك على حرصك على الاجابة المكتملة لنا 

[jjafferr]

وعليكم السلام 

 

حول النموذج الفرعي الى نموذج جدولي ، واللي تلقائيا سيتم تظليل السجل لما تنقر على اي حقل فيه

1619.تلوين الفرعى.accdb.zip

[الحلبي]

اهلا باستاذنا الفاضل ومعلمنا الاستاذ/ @jjafferr

وكيف احوله الى نموذج جدولى هو الان نموذج مستمر

جزاك الله كل خير وعافك واعطاك الصحة والعافية استاذن العزيز

لقد تمكنت من تحويلة الى نموذج جدولى

وفعلا راحت الرعشة 

ماذا اقول لك ان دكتور واستاذ ورئيس اكاديمية اكسس فى نظرى

تم تعديل أكتوبر 27 بواسطه الحلبي

[الحلبي]

استاذ / جعفر

كيف اجعل الكلام داخل  النموذج الجدولى عامق (اسود)

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

 

[Foksh]

نعم صحيح ، ما تفضل به معلمي الفاضل الأستاذ جعفر حل ابسط واسهل ولم اتطرق له للحفاظ على تصميمك في المرفق .

 

اما بالنسبة لتعديل تصميم النموذج الفرعي في وضع النموذج الجدولي ، تابع هذا المرفق من موضوع سابق

20231119_184539.zip 

 

[الحلبي]

الله يفتح عليك هو ده الكلام 

اشكرك من قلبى بارك الله فيكما 

بهذا تكون الرعشة راحت والنموذج الفرعى تمام التمام

استاذ / فؤش  رعاك الله وحماك

استاذ / جعفر بيض الله وجهك

[jjafferr]

اخي فادي 🙂

شكرا جزيلا لك على المواصلة للنهاية لإرضاء الزبون 🙂

 

اخي الدكتور الحلبي 🙂

كلنا في خدمتكم 🙂

 

[jjafferr]

رجوعا الى طريقة الاستاذ فادي السابقة ،

 

12 ساعات مضت, الحلبي said:

ولكن عند التطبيق فى برنامجى النموذج الفرعى يرتعش صف بعد صف بسرعة ما ادرى ما السبب

تعتقد ما السبب فى هذه الرعشة ـ وان لم اجد لها حل فسوف اتركها مرعوشة

 

ولعلاج الرعشة ، اذا تسمحون لي بتعديل فترات استعمال دواء الدكتور فادي 😁
فعلاج الدكتور فادي كان مستمر ، بينما انا قللت فترة الاستعمال الى مرة واحدة لكل سجل فقط 🙂

 

جرب هذا التعديل:

  
Private Sub Form_Current()

    if Me.txtCurrentID <> Me.itemcod then
      Me.txtCurrentID = Me.itemcod
    end if
  
End Sub

 

 

[الحلبي]

2 ساعات مضت, jjafferr said:

علاج الدكتور فادي كان مستمر ، بينما انا قللت فترة الاستعمال الى مرة واحدة لكل سجل فقط 🙂

للاسف استاذ / جعفر هذا الكود منع التلوين مع استمرار الرعشة

 

3 ساعات مضت, jjafferr said:

شكرا جزيلا لك على المواصلة للنهاية لإرضاء الزبون

الزبون متخذ جنب متكأ فيه لحين حل المشكلة ان كانت مشكلة

والزبون امام عباقرة اكسس مازال متكأ

يارب يكون في حل ـ اعتقد الحل فى الاستعلام المبنى عليه النموذج الفرعى وشرحه لكم يطول ولن نطلع بنتيجه 

جزاكم الله خير على مساعدة الزبائن 

[Foksh]

3 ساعات مضت, jjafferr said:

Private Sub Form_Current()

    if Me.txtCurrentID <> Me.itemcod then
      Me.txtCurrentID = Me.itemcod
    end if
  
End Sub

وما زلنا نتعلم منكم ومن خبراتكم معلمي الفاضل @jjafferr ، وليس لدي شك في ذلك 

فعلاً الكود الذي استخدمه المعلم جعفر أكثر كفاءة لأنه يتجنب تحديث txtCurrentID إذا كانت قيمته بالفعل تساوي itemcod ؛ وهذا يعني أنه سيتم فقط تعديل txtCurrentID في حال كانت القيمتين مختلفتين ، مما يقلل من عدد مرات التحديثات إذا لم تتغير القيمة . ولكني لم أقم بتجربته 

 

وهذا لم انتبه له لعدم ظهور هذه المشكلة لدي في جهازي هذا 

تم تعديل أكتوبر 28 بواسطه Foksh

[Foksh]

منذ ساعه, الحلبي said:

للاسف استاذ / جعفر هذا الكود منع التلوين مع استمرار الرعشة

 

أخي الحلبي ، هل لك أن تجرب هذا التعديل :-

Private Sub Form_Current()
If Nz(Me.txtCurrentID, 0) <> Nz(Me!itemcod, 0) Then
Me.txtCurrentID = Me!itemcod
End If
End Sub

 

وأخبرنا بالنتيجة أيضاً

[الحلبي]

2 ساعات مضت, Foksh said:

خي الحلبي ، هل لك أن تجرب هذا التعديل

الكود فعلا منع الانزلاق الى اعلى وبقى الانزلاق الى اسفل فقط

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

لك ان تتخيل كيف يكون الشكل وانا لو عندى تسجيل فيديو كنت سجلته لك ـ ولان جميع الاجهزة التى اعمل عليها سواء فى العمل او البيت ضعيفه جدا لاتقبل برامج تسجيل فيديو

والسبب ان استعمل نواة 32 بت