salehamr

هذا صحيح في حال كان المدى المطلوب طباعته متصل فكيف إذا كان الإختيار خلايا في أعمدة غير متصلة A1:A7 و C1:C7 و G1;G7 معاً أو إذا كان الإختيار خلايا في أسطر غير متصلة A1:C1 و A4:C4 و A7:C7 معاً مع الشكر

بعد التحية والدعاء لكم بطول العمر وأن يزيدكم الله من فضله أحييكم على كرم خلقكم وشكراً لكم ، إنتهى حيث هو المطلوب.

أعذركم إخوتي لإنشغالكم ولكثرة الإستفسارات مما حدا بهذا الطلب أن يصبح في عالم النسيان فهل يمكن أن نحصل على إجابة وكلي أمل : وإليكم التوضيح التالي : على إفتراض أن خلية أو أكثر أدرج بها دالة قالنتيجة ستكون قيمة ( رقم أو نص أو ..... ) . وعند إختيار هذه الخلية تظهر الدالة في ألــ Formula Bar والمطلوب أن تظهر النتيجة لا الدالة أي ينتهي دور الدالة بمعنى أن لا تتأثر بأي متغيرات في محددات الدالة إلا من خلال تنشيط الدالة بواسطة زر مرتبط بكود الدالة .

مطلوب كود تعيين ألــ Print Area بواسطة MSBox للحالات التالية : إذا كان متصل على سبيل المثال A1 : C7 أو أعمدة بذاتها مثلاً العمود الأول ، العامود الثالث ، العمود الخامس ، ..... مع الخيارات : مشاهدة قبل الطباعة الدخول إلى شاشة الطباعة لغرض تثبيت الإعدادات وتحديد عدد النسخ و..... الطباعة مباشرة لنسخة واحدة

أعتذر واستغفر الله عن الخطأ المطبعي في الرد السابق بارك الله فيكم

بارك االله فيكم .

بصراحة معلمين جراكم الله خيراً ونفع بكم خلقه وأثقل بذلك ميزان حسناتكم جهدكم مشكور لكم منا كل التقدير والإحترام أخوتي

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

أرغب في إدراج نتائج الدوال في الخلايا كقيمة بحيث لا تظهر الدوال ذاتها في ألــ Formula Bar عند التأشير على تلك الخلايا بل تظهر كقيمة دون الحاجة لإخفاء شريط الــ Formula Bar

أخوتي الأعزاء كل عام وأنتم بخير إسمحوا لي بهذا الإستفسار : كيف يمكن إضافة Condtional Formatting على سجلات حقل نموذج فرعي Sub-Form ضمن نموذج رئيسي من خلال : 1- القائمة Format 2- الكود علماً أن : الحقل يتم إختياره من مربع تحرير وسرد و الشرط بحسب قيمة مربع نص وكلاهما بالنموذج الرئيسي ولكم الشكر

حيث أني بحاجة وعلى ما يبدو أن أخينا Dream_ Works مشغول جداً كان الله في عونه فهل من مساعد آخر لإستكمال مثاله مشكوراً أو هل سيكون لنا حظاً معه ثانية جزاكم الله خيراً : المطلوب : 1- إدراجOptionGroup تحوي زرين : 1 - تحديد السجلات وتلوينها بلون مغاير دون تصفية ؟؟ 2 - تصفيةالسجلات ؟؟ كما هو الحال في المثال 2- بما أنه لا يمكن إستخدام قائمة LstRecords للتصفية فهل يمكن إستبدالها بمربع تحرير وسرد لإستخدامه لغرض التصفية المتدرجة للسجلات بمجرد كتابة أول حرف مع بقاء إمكانية الإختيار من مربع التحرير والسرد ...... ؟؟

تفاعلك وتواصلك دلالة على طيبك وكرم أخلاقك برجاء أن تتحملنا لا زلنا في طور التعلم وبحاجة للمساعدة فأجرك على الله فنرجو أن تبقى أهلاً لها وفقكم الله ومبارك عليك شهر البركات شهر رمضان وكل عام وأنتم بألف خير . عسانا نبقى بالبال ونحن بالإنتظار يا أخي

وينك يأخي dream_works عسى المانع خيراً وكل عام وأنتم بخير

بارك الله فيك وطمعاً في الأجاويد أمثالك أتسمح لي بطلب الآتي : 1- أريد إستخدام أداة OptionGroup أخرى لإختيار أسلوب الفلترة : ( 1- تحديد السجلات وتلوينها بلون مغاير فقط دون تصفية 2- تصفية كما هو الحال في المثال ) على الحقل الذي تم إختياره ؟؟ 2- هل يمكن إستخدام قائمة LstRecords للتصفيةالمتدرجة للسجلات بمجرد كتابة أول حرف مع بقاء إمكانية الإختيار من القائمة ...... ؟؟

رغبة في معرفة كيفية تركيب الجمل والإستزادة في المعرفة كان مطلبي أعلاه وعلى كل فنعذرك أخي . 1- لطفاً توضيح الكود أدناه مع أنه شارح لنفسه تقريباً وبالذات لماذا Then SearchValue = " = '" & Me.LstRecords.Value SearchValue = Nz(Switch( _ IsDate(Me.LstRecords.Value), " = #" & Me.LstRecords.Value & "#", _ IsNull(Me.LstRecords.Value), " Is Null", _ IsNumeric(Me.LstRecords.Value), " = " & Me.LstRecords.Value), "") If SearchValue = "" Then SearchValue = " = '" & Me.LstRecords.Value & "'" 2- أريد إستخدام أداة OptionGroup لإختيار أسلوب الترتيب ( تصاعدي أو تنازلي ) على الحقل الذي تم إختياره ؟؟

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

تحية وإحترام وتقدير وإمتنان لك أخي لم أصل للمطلوب بعد حيث أن مثالك المرفق : يعرض مربع السرد CboTables الجداول والإستعلامات في قاعدة البيانات ويعرض مربع السرد CboFields حقول الجدول / الإستعلام الذي تم إختياره ويعرض مربع السرد LstRecords سجلات الحقل الذي تم إختياره وإلى هنا عظيم وممتاز ولكن المطلوب إضافة لما سبق إدراج نموذج فرعي SubForm داخل النموذج الرئيسي { يستعرض ( الجدول / الإستعلام) } الذي تم إختياره لأتمكن من إجراء فلترة عليه بحسب قيمة ألـــ LstRecords مع الشكر .

على إفتراض قاعدة بيانات بها أكثر من جدول وأكثر من إستعلام كيف يمكن عمل نموذج فرعي واحد فقط بحيث تكون بياناته مستقاه من( الجدول / الإستعلام) الذي يتم إختياره من قائمة منسدلة

لك الشكر الجزيل على تفاعلك وإهتمامك أخي نعم أريد أن أعمل : قاعدة بيانات بها أكثر من جدول وأكثر من إستعلام ونموذج رئيسي يحتوي على : 1- زرين إختيار : الأول : جداول الثاني : إستعلام 2 - قائمة منسدلة CboTables تستعرض الجداول و/ أو الإستعلام فقط ( حسب الإختيار أعلاه ) 3 - قائمة منسدلة CboFields تستعرض فقط حقول الجدول / الإستعلام الذي تم إختياره من القائمة CboTables 4 - قائمة عادية ListBox تستعرض فقط بيانات الحقل الذي تم إختياره من القائمة CboFields 5 - زرين إختيار : الأول : تحديد الثاني : تصفية 6 - نموذج فرعي واحد فقط بحيث أتمكن من : 1- إستعراض بيانات أي ( جدول / إستعلام ) يتم إختياره من القائمة المنسدلة CboTables 2 - تحديد و/ أو تصفية السجلات على ضوء الحقل الذي يتم إختياره من القائمة المنسدلة CboFields و معيار التصفية الذي يتم إختياره من القائمة ListBox أرجو المعذرة أخي

جزيل الشكر لك أخي Dream Works على سرعة إستجابتك المعذرة ما المقصود بـــ .Filter = "[TableField] = 'TableName' " وللتوضيح أخي : قاعدة البيانات تحوي أكثر من جدول ..... النموذج الرئيسي يحوي : 1- قائمتين منسدلتين Combo Boxes الأولى CboTables , والثانية CboFields تعتمد على CboTables 2- قائمة عادية ListBox اسمها LstRecords تعتمد على CboFields 3- نموذج فرعي أريد أن تتم تحديد أو تصفية ( فلترة ) سجلاته بحسب ما يتم إختياره من قائمة ListBox

السلام عليكم ورحمة الله وبركاته جزاك الله خيراً أخي Dream Works وأثقل بها ميزان حسناتك وللشهادة أني أحببت هذا المنتدى لوجود الخيرين أمثالك من مشرفين وخبراء وأعضاء جزاكم وجزاهم الله عنا كل خير . وأرجوا أن تسمحوا لي بالسؤال التالي تكملة للموضوع أعلاه : كيف يمكن تغيير مصدر النموذج الفرعي إستناداً لما يتم إختياره في مربع التحرير والسرد المسمى CboTables ؟ .

تحية وإحتراماً فقد جربت الكود وكان هو المطلوب فعلاً ، ولي سؤال إن تكرمتم توضيح معنى الجمل التالية لتتعمق الفكرة لدي . كما ولا يسعني إلا أن أشكر جميع المشرفين على هذا المنتدى الخيري وجميع الخيرين من الأعضاء أمثالك الذين يجدون بما أنعم الله عليهم من العلم والمعرفة ليستفيد منها المبتدئين أمثالي . For Each tbl In CurrentDb.TableDefs If Left(tbl.Name, 4) <> "MSys" Then .AddItem (tbl.Name) End If Next tbl .Value = .Column(0, 0) Set tbl = Nothing

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