هل يمكن عملة بالاكسس coloring entire row

بصورة عامة :

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

و بصرف النظر عن محتوى سؤالك :

فكل ما عليك هو أن تضع مصدر سجل النموذج RecordSource  = "كود سيكوال الاستعلام"

Me.RecordSource= "select ..................................."                                g

أمير2008 كتب:

بصورة عامة :

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

و بصرف النظر عن محتوى سؤالك :

فكل ما عليك هو أن تضع مصدر سجل النموذج RecordSource  = "كود سيكوال الاستعلام"

Me.RecordSource= "select ..................................."                                g

هل ممكن تطبيقة فى مثال بارك الله فيك

COLORING with query 2.rar

شكرا اااااااااااااااااااااااااااااااااااا          جزيلا

بارك الله فيك

ياباشا أي خدمة

لو تحب كمان الاستغناء عن الجداول ممكن نشوف لك حل

ممكن طلب اخر اذا امكن

هل يوجد لديك مثال لنفس الفكره و لكن تقوم بتلوين التكست فى Row

فى ميزان اعمالك ان شالله

و هل فعلا هناك طريقة للاستغناء عن الجداول

بالنسبة لتلوين النص في النموذج  سواء لون الخط أو لون الخلفية فأنا أفضل التنسيق الشرطي Conditional Formatting  لأنه ذات دلالة وله هدف.

وبالنسبة للاستغناء عن الجداول : هناك أكواد تنشئ جدول ومفتاح اساسي وعلاقات.

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

وكان البرنامج يحسب تدرج المرتب للعاملين بالجهات الحكومية ، والقيم الثابتة مثل اسماء الادارات أو الاقسام كانت مسجلة بالنموذج كقيم للكومبوبوكس

ويحدث انشاء جدول  واستعلام مؤقتين وقبل غلق البرنامج يحدث الحذف.

فعلت ذلك لتجديد الخطاب البرمجي  .ههههههههه حاجة كده زي تجديد الخطاب الديني

هههههههه

التجديد فن و ابداع مثلى انا فى تجديد طرح الاسئلة

التنسيق الشرطى حسب علمى لا يصلح الا لثلاثه

بالنسبه لى احتاج عدد غير محدود

و فعلا شى جميل ان تنشىء برنامج بدون جداول عمل جميل جدا فعلا اذا لم تكن هناك قيم للحفظ فلا داعى للجداول .

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

شكرا بارك الله فيك

الفكرة القريبة من مثالك هي كود تلوين أحرف مربع نص محدد  إلى لون معين طبقاً للقيمة المختارة من الكومبوبوكس مثلاً لإظهار أحرف مربع النص First باللون الأحمر اذا اخترنا من الكومبوبكس   color قيمة اللون الأحمر به.

If Me.COLOR = 5 Then
Me.FIRST.ForeColor = vbRed
End If

أما التنسيق الشرطي جربته أكثر من ثلاث مرات على نفس الكائن

شكرا جزيلا بارك الله فيك