أبو آدم

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

أخي العزيز حاليا لا يخطر ببالي روتين أو كود لفلترة مربع التحرير بذاته ، و قد لا يكون متاحاً بهذه الصورة و لكنني حسب تحليل المرفق و طلبك أقترح عليك تحويل مربعات التحرير في النموذج الى مربعات نص اضافة مربع تحرير و سرد بمصدر معلوماته ، و ليكن اسمه Images و خلف حدث ( بعد التحديث ... AfterUpdate ) ، ضع الكود التالي : Private Sub Images_AfterUpdate() If IsNull(Me.Image1) Then Me.Image1.SetFocus Me.Image1.Text = Me.Images.Column(0) End If If Not IsNull(Me.Image1) And IsNull(Me.Image2) Then Me.Image2.SetFocus Me.Image2.Text = Me.Images.Column(0) End If If Not IsNull(Me.Image1) And Not IsNull(Me.Image2) And IsNull(Me.Image3) Then Me.Image3.SetFocus Me.Image3.Text = Me.Images.Column(0) End If If Not IsNull(Me.Image1) And Not IsNull(Me.Image2) And Not IsNull(Me.Image3) And IsNull(Me.Image4) Then Me.Image4.SetFocus Me.Image4.Text = Me.Images.Column(0) End If End Sub حيث يفحص مربع النص Image1 فان كان خاليا يقوم باضافة القيمة المختارة اليه ، و الا ينتقل لمربع النص Image2 فان كان خاليا يقوم باضافة القيمة المختارة اليه ، و هكذا و في حال ضرورة تعديل اسم اي صورة قم بحذف محتويات مربع النص الخاص بها و اختر من مربع التحرير و السرد قيمة جديدة ، سيتم نقلها للحقل الفارغ . حاليا .... مجرد اقتراح شكرا

اخوتي الفضلاء في اللغات البرمجية مثل # C و Java ، يتم استخدام Class لإنشاء الكائنات ، و لها مرادف في VBA في Access ، هناك نوعان من الوحدات النمطية : الوحدات النمطية القياسية والوحدات النمطية للفئة Standard modules and class modules موضوع حديثنا هنا والوحدات النمطية للفئة Class ، و هي مصنع الكائنات و خصائصها ، لذا لا بد لنا ان نعرج قليلا على أهم مفاهيم الكائنات في Visual Basic . الكائن هو مزيج من الكودات و البيانات التي يمكن التعامل معها كوحدة واحدة ، و يمكن أن يكون الكائن جزءًا من التطبيق ، مثل عنصر تحكم أو نموذج ، ويمكن أن يكون التطبيق بأكمله كائنًا . عند إنشاء تطبيق في Visual Basic ، تعمل باستمرار مع الكائنات ، و الغالب فيها هي الكائنات التي يوفرها Visual Basic ، مثل عناصر التحكم والنماذج وكائنات الوصول إلى البيانات. Dim db As DAO.Database Dim qd As QueryDef Dim ctl As Control Dim pag As Page كما يمكنك أيضًا استخدام الكائنات من التطبيقات الأخرى داخل تطبيق Visual Basic. Dim ExcelSheet As Object Set ExcelSheet = CreateObject("Excel.Sheet") و الذي يهمنا هنا انه يمكنك أيضًا إنشاء كائناتك الخاصة وتحديد خصائصها و طرق عملها ، و تكون هذه الكائنات مثل اللبنات الجاهزة للبرامج - فهي تتيح لك كتابة الكود مرة واحدة وإعادة استخدامها مرارًا وتكرارًا عند الحاجة لها . و كأي شيئ آخر هناك حسنات و معيقات لاستخدام الكائنات الخاصة في التطبيقات ، ومن الحسنات ، إتاحة بناء التطبيق ككتل معتمدة على الكائنات التي يتم انشاؤها ، ويكون من السهل فحص و اختبار أجزاء التطبيق ، و اذا اضطررنا ( كما يحدث غالبا ) لتعديل او تحديث الكود ، تجنبنا حدوث مشكلات في أجزاء أخرى من التطبيق ، و يبقى دائما من السهل إضافة كائنات بين التطبيقات . أما المعيقات فتتمثل في الجهد والوقت الأطول ( في البداية ) لإنشاء التطبيقات و خاصة عند التحليل و التخطيط ، ولكن على المدى الطويل سيكون هناك توفير للوقت بالاضافة الى كودات يسهل التعامل معها و تحديثها و تعديلها ، كما أنه ليس من السهل دائمًا تحديد ماهية الكائن و خصائصه ، كما أن معظم المبرمجين ( و خاصة الجدد منهم ) يجدون صعوبة ( في البداية ) بفهم الكائنات و الوحدات النمطية للفئة Class . وللحديث بقية ...

نعم اخي العزيز ممكن و لكن امهلني لتجهيز الشرح ، لعموم الفائدة شكرا

هل يمكن توضيح الغاية اذا سمحت شكرا

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

ارفق قاعدة للتطبيق ... لطفا

أخي الاستاذ محمد صالح أحسن الله اليك ورفع قدرك بين اهل الدنيا و اهل الآخرة شكرا

إخوتي الفضلاء نشرت هذا في منتدى الأكسيس و أحببت أن أشارككم به هنا ... أود هنا ان أوصل بعض الأفكار لإخوتي ، أرجو أن يتسع لها صدركم ، و تدركوها مني ببساطة و بدون تأويلات أو تحريفات ، إنما هي بعض خبرة و نصائح و تصريح. نحن هنا في مجتمع علمي محترم و ذو اصول راسخة عبر السنوات ، يحترم بعضنا بعضا ننقل هنا العلوم التي تعلمناها بكل طيب خاطر و رغبة ( و كل حسب نيته ) و لكنها عندي لوجه الله تعالى العلم الذي نتداوله هنا علم تجريبي لا يترسخ بسهوله الا اذا امتزج برغبة ، و هو كغيره يتفلت منك ، ما لم تواظب عليه ، و هو تراكمي يستند على بعضه و يتراكب و معظمه ثابت و ضمن محددات لغة البرمجة ، و له طرقه و تشعباته و ارتباطاته ، و حين تتعلمها تصبح لك و من مخزونات معارفك و خبراتك لا حقوق ملكية و انفراد للمنشور في المنتديات العلمية في مثل ما نحن فيه ، فمن يبتغي غير ذلك يغلق على افكاره و يحميها و يضعها حيث لا يدركها الناس و يبيعها و يتاجر بها كما يشاء. هناك شيئ اسمه تقدير و ليس حق احتكاري مطلق في مثل ما نتاوله ، فان تذكرت من اين اتيت به و ممن تعلمته فاحببت ان تقدر المصدر فخير ... العالم و اسع و ان كنا نظنه قرية صغيرة ، فالقرية افتراضية و العالم الواسع واقع ، فما لا تعرف انه موجود في العالم لا يعني انه غير موجود حقيقة ، و ان كنت موجودا في القرية فلا يعني ان كل من في العالم يعرفك لكل مسلكه و طريقته و منهجه بالتفكير في الحلول البرمجية ، و انما الامور بنتائجها ، فعندما نحقق النتيجة تنتهي المسالة ببساطة ، مهما كان منهج الوصول اليها من قصر أو طول بمراحل متعددة أو مختصرة ، باستعلام او بوحدة نمطية ، بنموذج ام بتقرير ... ، فلا صحيح بالمطلق و لا خطأ بالمطلق و لا مرجعية للاشخاص الا ( بالتقدير ) ، و لكل منهجه و رؤيته. أبحث و انقب و أدرس و أجرب و أعالج أفكاري و الافكار المطروحة بطريقتي ، فإن كانت كما يرى أخي و ناسبته فهي مسألة و حل برمجي تعلمه و هو حق مطلق له ، لا يسأل عنه ، و لا فضل لي عليه فيه ، و لا أبتغي أجراً منه أو مديحاً الا ما يظنه تقديرا بمنهجه وفكره ، فله كل احترامي و اعتزازي بذكره لي بالخير ، فجزاه الله خيرا ، و ان لم يناسبه فكراً و منهجاً فلا يقلل ذلك من قدري عند نفسي او عند غيري ، فما رأيته أنا و فهمته و وصلت اليه ، ببساطة ... لا يناسبه ، ذلك أمر يعنيه و هو سيد رأيه و ( يختار ) ما يتعلم و من أين يتعلم و كيف يتعلم و لا سلطان لي أو لغيري عليه . كنت فيما سبق أعتب على عدم الالتزام بالقواعد الاختيارية للمنتديات كالبحث و السؤال المتكرر و غيرها من التوجه لشخص معين ، و بالتجربه و مرور السنين أدركت سعة صدر القائمين على المنتديات ، فكل يختار كيف يتعلم ، فمن شاء ان يبحث فليبحث ففي البحر جواهر و درر ، و من شاء فليسأل مئة مرة حتى يجد مراده ، فمن شاور الناس شاركهم عقولهم ، و منتدياتنا هذه باب سؤال و طلب للعلم و المشورة ، و لا يؤخذ على طالب العلم سؤاله ، و لا يؤخذ على الباحث المنقب فعله . استمزاج الآراء و طرح تعدد الحلول متاح و مشروع ، و ربما يكون أكثر إحترافاً و مشروعية ( عند الطلب ) ، و فيما رأيت في المنتديات ، يكون الجميع راضياً - بغض النظر عن الآراء الشخصية – عندما يصرح السائل انه قد وجد مبتغاه و رضي ، و هنا يكون طرح تعدد الحلول من باب لزوم ما لا يلزم . المنتديات العربية و (الاجنبية ) تعج بالسائلين و المجيبين و تتعلم منها كثيرا كما نتعلم بمنتدانا هذا ، فلا فضل لهم علينا و لا فضل لنا عليهم ، و كثير منا مشترك في منتديات كثيرة بالعالم باسماء مختلفة منها القديم ومنها الحديث ، و كلنا نخوض بنفس العلم لاتحاد الغاية و الطلب ، فلا يتميز احدنا عن غيره الا بما يصل اليه من نتائج و ما ينشر من علم ( بغض النظر عن النية ) و ما يلتزم به من خدمة اقرانه ( بغض النظر عن النية ). لا فضل لي على أحد ، و لا فضل لأحد عليّ ( إلا بالتقدير ) فما اكتسبته جهدي و تعبي ، و ما اكتسبه إخوتي جهدهم و تعبهم و سهرهم و تجاربهم ونتاج أسئلتهم و افكارهم ، فكلنا عالة على أخيه ، لا نتمايز بالفضل و التلميح و التصريح ، و انا نتمايز بالعطاء و البذل قدر المستطاع. لا تلميح بالقول فهو جلً تصريح ، و انما هي أفكار و مشاعر راودتني من بعض المواقف و الاحوال ، أحببت أن أحيلها لتصريح و بيان ، حتى أعلن بيننا أنه لا فضل و لا منّة و لا فخر ولا تفاخر و لا تناحر ، إنما علم و تعلم و ( أدب علم ) و الله من وراء القصد ... و السلام عليكم و رحمة الله و بركاته

إخوتي الفضلاء أود هنا ان أوصل بعض الأفكار لإخوتي ، أرجو أن يتسع لها صدركم ، و تدركوها مني ببساطة و بدون تأويلات أو تحريفات ، إنما هي بعض خبرة و نصائح و تصريح. نحن هنا في مجتمع علمي محترم و ذو اصول راسخة عبر السنوات ، يحترم بعضنا بعضا ننقل هنا العلوم التي تعلمناها بكل طيب خاطر و رغبة ( و كل حسب نيته ) و لكنها عندي لوجه الله تعالى العلم الذي نتداوله هنا علم تجريبي لا يترسخ بسهوله الا اذا امتزج برغبة ، و هو كغيره يتفلت منك ، ما لم تواظب عليه ، و هو تراكمي يستند على بعضه و يتراكب و معظمه ثابت و ضمن محددات لغة البرمجة ، و له طرقه و تشعباته و ارتباطاته ، و حين تتعلمها تصبح لك و من مخزونات معارفك و خبراتك لا حقوق ملكية و انفراد للمنشور في المنتديات العلمية في مثل ما نحن فيه ، فمن يبتغي غير ذلك يغلق على افكاره و يحميها و يضعها حيث لا يدركها الناس و يبيعها و يتاجر بها كما يشاء. هناك شيئ اسمه تقدير و ليس حق احتكاري مطلق في مثل ما نتاوله ، فان تذكرت من اين اتيت به و ممن تعلمته فاحببت ان تقدر المصدر فخير ... العالم و اسع و ان كنا نظنه قرية صغيرة ، فالقرية افتراضية و العالم الواسع واقع ، فما لا تعرف انه موجود في العالم لا يعني انه غير موجود حقيقة ، و ان كنت موجودا في القرية فلا يعني ان كل من في العالم يعرفك لكل مسلكه و طريقته و منهجه بالتفكير في الحلول البرمجية ، و انما الامور بنتائجها ، فعندما نحقق النتيجة تنتهي المسالة ببساطة ، مهما كان منهج الوصول اليها من قصر أو طول بمراحل متعددة أو مختصرة ، باستعلام او بوحدة نمطية ، بنموذج ام بتقرير ... ، فلا صحيح بالمطلق و لا خطأ بالمطلق و لا مرجعية للاشخاص الا ( بالتقدير ) ، و لكل منهجه و رؤيته. أبحث و انقب و أدرس و أجرب و أعالج أفكاري و الافكار المطروحة بطريقتي ، فإن كانت كما يرى أخي و ناسبته فهي مسألة و حل برمجي تعلمه و هو حق مطلق له ، لا يسأل عنه ، و لا فضل لي عليه فيه ، و لا أبتغي أجراً منه أو مديحاً الا ما يظنه تقديرا بمنهجه وفكره ، فله كل احترامي و اعتزازي بذكره لي بالخير ، فجزاه الله خيرا ، و ان لم يناسبه فكراً و منهجاً فلا يقلل ذلك من قدري عند نفسي او عند غيري ، فما رأيته أنا و فهمته و وصلت اليه ، ببساطة ... لا يناسبه ، ذلك أمر يعنيه و هو سيد رأيه و ( يختار ) ما يتعلم و من أين يتعلم و كيف يتعلم و لا سلطان لي أو لغيري عليه . كنت فيما سبق أعتب على عدم الالتزام بالقواعد الاختيارية للمنتديات كالبحث و السؤال المتكرر و غيرها من التوجه لشخص معين ، و بالتجربه و مرور السنين أدركت سعة صدر القائمين على المنتديات ، فكل يختار كيف يتعلم ، فمن شاء ان يبحث فليبحث ففي البحر جواهر و درر ، و من شاء فليسأل مئة مرة حتى يجد مراده ، فمن شاور الناس شاركهم عقولهم ، و منتدياتنا هذه باب سؤال و طلب للعلم و المشورة ، و لا يؤخذ على طالب العلم سؤاله ، و لا يؤخذ على الباحث المنقب فعله . استمزاج الآراء و طرح تعدد الحلول متاح و مشروع ، و ربما يكون أكثر إحترافاً و مشروعية ( عند الطلب ) ، و فيما رأيت في المنتديات ، يكون الجميع راضياً - بغض النظر عن الآراء الشخصية – عندما يصرح السائل انه قد وجد مبتغاه و رضي ، و هنا يكون طرح تعدد الحلول من باب لزوم ما لا يلزم . المنتديات العربية و (الاجنبية ) تعج بالسائلين و المجيبين و تتعلم منها كثيرا كما نتعلم بمنتدانا هذا ، فلا فضل لهم علينا و لا فضل لنا عليهم ، و كثير منا مشترك في منتديات كثيرة بالعالم باسماء مختلفة منها القديم ومنها الحديث ، و كلنا نخوض بنفس العلم لاتحاد الغاية و الطلب ، فلا يتميز احدنا عن غيره الا بما يصل اليه من نتائج و ما ينشر من علم ( بغض النظر عن النية ) و ما يلتزم به من خدمة اقرانه ( بغض النظر عن النية ). لا فضل لي على أحد ، و لا فضل لأحد عليّ ( إلا بالتقدير ) فما اكتسبته جهدي و تعبي ، و ما اكتسبه إخوتي جهدهم و تعبهم و سهرهم و تجاربهم ونتاج أسئلتهم و افكارهم ، فكلنا عالة على أخيه ، لا نتمايز بالفضل و التلميح و التصريح ، و انا نتمايز بالعطاء و البذل قدر المستطاع. لا تلميح بالقول فهو جلً تصريح ، و انما هي أفكار و مشاعر راودتني من بعض المواقف و الاحوال ، أحببت أن أحيلها لتصريح و بيان ، حتى أعلن بيننا أنه لا فضل و لا منّة و لا فخر ولا تفاخر و لا تناحر ، إنما علم و تعلم و ( أدب علم ) و الله من وراء القصد ... و السلام عليكم و رحمة الله و بركاته

شكرا أخي العزيز أحسن الله اليك

قيد النظر

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

تفضل أخي العزيز في الاستعلام Delay penalty: IIf(([Fraction]>0.25 And [Fraction]<0.5),[Fraction]*1.5,IIf(([Fraction]>0.5 And [Fraction]<1),[Fraction]*2,IIf([Fraction]>1,[Fraction]*3,IIf([Fraction]<0.25,[Fraction]*1))))

هناك الفئة الاولي أقل من ربع ساعة هل هي مهملة أم تضرب في 1

جهز قاعدة تؤيد الفكرة و اشرح بها التفاصيل و اجعلها في موضوع جديد و دعنا نعمل عليها شكرا

تأكد من الاحتساب و وافني بالنتيجة

قيد الاطلاع

شكرا لكم على دعائكم الطيب الفكرة مختلطة ... هل يمكن ان توضحها اذا سمحت

https://www.officena.net/ib/topic/83261-البحث-و-الفلترة-عند-الكتابة-ضمن-نموذج-مستمر-و-تمييز-نتائج-البحث-باللون-أو-خصائص-الخط-مثل-الخط-العريض/

إخوتي الفضلاء التزاما بقواعد المنتدي فضلت إنشاء موضوع جديد لطرح الفكرة ، لعملية البحث و الفلترة عند الكتابة ضمن نموذج مستمر و تمييز نتائج البحث باللون أو خصائص الخط مثل الخط العريض. حيث طرح السؤال و الطلب ضمن مشاركة احد الاخوة في موضوع يتعلق بالبحث ، بالاضافة لطرح هذا الطلب اكثر من مرة في مواضيع مختلفة . حاولت جعل الكودات بسيطة و قابلة للتعديل حسب التطبيقات التي سيستخدم بها منعا لحدوث اشكالات عند النقل و التطبيق . هناك امور لا بد من مراعاتها عند التعامل مع الفكرة و بعضها رئيسي ومهم لا تنجح الامور الا به ، و هي كما يلي : · نص البحث يكتب ضمن مربع النص txtSearch · البحث و الفلترة تتم في نفس النموذج و هو نموذج مستمر و ليس من خلال نموذج فرعي او مربع قائمة · البحث سيتم ضمن ثلاثة حقول من الجدول tblCustomer ، وهي CompanyName و City و Address يمكن زيادتها حسب الحاجة و مستلزمات التطبيق · مربعات النص في النموذج التي تظهر محتويات الحقول هي غير منضمة unbound · مصدر عنصر التحكم control source للحقول يثبت لكل مربع نص ضمن قائمة الخيارات مثلا (=[CompanyName]) · مربعات النص الثلاثة يجب ان يكون تنسيق النص فيها text format هو (Rich Text) ، وهذه نقطة مهمة حتى يقبل مربع النص كود تغيير خصائص أجزاء النص من حيث اللون و الخط العريض . · كود البحث و الفلترة يكون خلف حدث on change – عند التغيير لمربع النص txtSearch · البحث و الفلترة يفترض في فكرتنا ان تتم عند كل حرف ، وبعد انتهاء الفلترة يعود مؤشر النص ليكتب نص ( حرف ) الفلترة الجديد ، فيصبح مربع النص يتعامل من حرف واحد فقط ، وبالتالي سنضطر لاستخدام خاصية SelStart لتحدد نقطة البداية للنص أو موضع نقطة الإدراج لنتمكن من كتابة اكثر من حرف . · بعد التطبيق اعترضتني مشكلة عدم قبول مربع النص للمسافة بين الاحرف spacebar ، نتيجة استخدام خاصية SelStart و بالتالي كان لا بد من إجبار مربع النص على قبول المسافة بين الاحرف ، و تم ذلك و الحمد لله باستخدام كود في حدث on Key up . · ضمن الكود تم تحديد خاصيتين للخط و هما اللون الاحمر و الخط العريض وذلك لتمييز مكانها ضمن نتائج البحث و الفلترة . · كل حرف يتم كتابته في مربع النص txtSearch تتم بموجبه و مباشرة فلترة النتائج ضمن مربعات النص الثلاثة و تمييز الحرف باللون الاحمر العريض. · بعد الفلترة يتم تغيير مصدر عنصر التحكم عبر الكود باسناد القيم لمربعات النص الثلاثة في النموذج محملة بكود تغيير خصائص الخط لكل حرف تمت كتابته في مربع النص txtSearch · بالضغط على مربع النص txtSearch يتم افراغ مربع النص مما كتب به سابقا لبداية بحث جديد ، كما تظهر كافة سجلات الجدول في مربعات نص النموذج. راجيا من الله عز و جل ان يكون التطبيق وافيا و محققا لحاجات الاخوة ، و ان يكون فيه النفع لهم في تطبيقاتهم . و الله من وراء القصد ... NA_Highlight_Search_results_while_typing.accdb

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

الحمد لله الذي بفضله تقضى الحاجات

هل قضي الأمر

استخدم البحث للحصول على مواضيع تنفعك في " الفلترة " فلترة " او ارفق قاعدة للتطبيق مع شرح و تحديد الحاجة حسب القاعدة المرفقة شكرا