أ / محمد صالح

المطلوب غير واضح بصورة كافية

بارك الله لك أستاذ أبا عبد الله المعادلة الأولى كانت تقوم بوضع صفر في كل الشهور غير شهر ٧ لكن حسب المطلوب الجديد يمكن اختصار المعادلة التي تكرمت بها إلى =IIf(Month(Date())=7,[Forms]![Employé_en_arabe]![PreD],0)+[Année]*50

بارك الله لك أخي الكريم فعلا دالة iif تفي بالغرض ولكن لا يوجد لديك حقل يسمى date حتى تضع حوله القوسين المربعين [date] فقط يبزمك تغيير هذه المعادلة إلى =IIf(Month(Date())=7,[Année]*50+[Forms]![Employé_en_arabe]![PreD],0) لاحظ الأقواس الجديدة وفقنا الله وإياكم لكل ما يحب ويرضى

شكرا لكلماتك الطيبة أخي الفاضل وممكن من غير متغير عام فقط option group مجموعة الخيارات مثل الأربع اختيارات في الامتحان ولا أدري لماذا غيرت الطريقة في شاشة تحديد رقم الاختبار فقط أضف عنصر التحكم هذا للنموذج واملأ الخيارات بأسماء الاختبارات ودع القيم هي 1 و 2 و 3 ..... وهكذا

هذا هو الملف بنفس الأكواد التي أخبرتك بها ويعمل بكل كفاءة mas_E_Exams.rar

تفضل أخي الكريم هذا مثال بسيط لحقل به سورة غافر وحقل به 45 آية من سورة يس والبحث في نص السورتين لاحظ تعديل سطر الفلتر إلى Me.Filter = "cleantxt([ayatext1]) Like ""*" & FindAsType & "*""" & _ "or cleantxt([ayatext2]) Like ""*" & FindAsType & "*""" نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا البحث في حقلين بدون تشكيل.rar

لم أفهم السطر الأخير أخي الكريم وائل الدالة تقوم بتجاهل الهمزات والتشكيل ... إلخ وتستعمل مع كود الفلترة ... للبحث سواء في حقل واحد .... أو في أكثر من حقل حسب ما تم شرحه سابقا في سطر الفلتر مع استعمال المعامل or في حالة البحث في أكثر من حقل وفقنا الله وإياكم لكل خير

* بالنسبة للدالة الخاصة بحذف التشكيل والهمزات وتجاهل الفروق بين التاء المربوطة والياء والألف المقصورة لا يلزمك استعمالها في التقرير فليس منطقيا أن تعرض النص بدون تشكيل وهمزات .... إلخ في التقرير على العموم استدعاؤها في التقرير مثل استدعائها في أي مكان =cleantxt([fieldname]) حيث fieldname هو اسم الحقل المراد حذف تشكيله أما إذا كان مقصودك عرض نتيجة الفلتر في تقرير فيمكنك تصميم تقرير يحتوي على الحقول التي تريدها وفتحه بهذا الأمر بعد إضافة الجزء الخاص بالفلتر في أمر الفتح DoCmd.OpenReport "reportname", , , Me.Filter * وبالنسبة للمطلوب الثاني فيمكنك استعمال المعامل المنطقي or (أو) فيكون شرط الفلتر هو Me.Filter = "cleantxt([field1]) Like ""*" & FindAsType & "*"" Or cleantxt([field2]) Like ""*" & FindAsType & "*""": Me.FilterOn = True حيث field1 هو اسم الحقل الأول و field2 هو اسم الحقل الثاني وفي هذه الحالة سيبحث عن النص في الحقل الأول ويحضر سجلاته وكذلك سيبحث عن نفس النص في الحقل الثاني ويجلب سجلاته السجلات الموجود بها هذا النص في هذا الحقل أو ذاك ويمكن تكرار (أو) بأي عدد من الحقول نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا بارك الله لك أخي الكريم أبا جودي جهود مشكورة وربما تم حذف دالة cleantext من المرفق الخاص بكم سهوا رغم أنه لم يتم حذف النموذج quran فالأفضل حذف الاثنين أو ابقاؤهما فلن يعمل البحث داخل النموذج بدون الدالة فلماذا الإبقاء على النموذج؟؟!!! وإذا سمحت لي أعتقد أن الدالة الخاصة بي cleantext Public Function cleantxt(txt As String) As String For Each itm In Array("إ", "أ", "آ") txt = Replace(txt, CStr(itm), "ا") Next For Each itm In Array("َ", "ً", "ُ", "ٌ", "ِ", "ٍ", "ْ", "ّ", "ـ") txt = Replace(txt, CStr(itm), "") Next txt = Replace(txt, "ة ", "ه ") txt = Replace(txt, "ي ", "ى ") cleantxt = txt End Function أقل في عدد الأسطر من الدالة المجمعة Public Function change_characters(str_Name As String) 'كود العبد الفقير الى الله str_Name = Replace(str_Name, "أ", "ا") str_Name = Replace(str_Name, "إ", "ا") str_Name = Replace(str_Name, "آ", "ا") str_Name = Replace(str_Name, "ة", "ه") str_Name = Replace(str_Name, "ى", "ي") change_characters = str_Name 'كود الاستاذ ابو خليل لحذف التشكيل Dim i As Integer Dim fld As String, wr As String, spa As String wr = "" fld = str_Name i = 1 Do While i <= Len(fld) spa = Mid(fld, i, 1) If Asc(spa) = 240 Or Asc(spa) = 241 Or Asc(spa) = 242 Or Asc(spa) = 243 Or Asc(spa) = 244 Or Asc(spa) = 245 Or Asc(spa) = 246 Or Asc(spa) = 247 Or Asc(spa) = 248 Or Asc(spa) = 249 Or Asc(spa) = 250 Then Else wr = wr & spa End If i = i + 1 Loop change_characters = wr End Function وهذا يعني سرعة في البحث أكثر وبالنسبة للمطلوب الثاني أعتقد والله أعلم أن مقصود الأخ صاحب السؤال أن يبحث في الحقلين معا (بحث متعدد) في نفس الوقت وليس أن يختار الحقل الذي يبحث فيه وحده الحكم في مقصد الأخ صاحب السؤال هو نفسه ويختار ما يلبي طلبه والحمد لله الذي هدانا لهذا وكل عام والجميع بكل خير

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

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

ربما لم تصل الفكرة المطروحة في هذا الرد إلى الأذهان فقمت على عجالة بهذا التصميم المبدئي لقاعدة بيانات المصروفات ربما يفيدك هذا التخطيط لنفس الأغراض وأكثر mas_المصروفات.rar

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

أخي الكريم صبحكم الله بكل خير يمكنك الإعلان عن المتغير في بداية موديول ليكون عاما في كل البرنامج لأن أعلانك في بداية النموذج يعتبر عاما داخل النموذج ولا يتعداه ربما يفيدك هذا الفيديو ويسعدني اشتراكهم في قناتي عيدكم سعيد ملحوظة: أعتقد أنه قد تمت الإجابة على هذا السؤال في هذا الرابط لفتح نموذج الاختبار مفلترا حسب اختيار المستخدم في النموذج الأول

ما شاء الله كود ولا أروع أستاذ @Shivan Rekany بالتوفيق للجميع مع العلم أن نصائح كيفية تصميم قاعدة بيانات مثالية ربما توفر على من يلتزم بها الكثير من الوقت والجهد والتفكير في حل المشكلات وربما يراها من لا يعرف قدرها غير مفيدة ولا ضير في ذلك فقديما قالوا ( الإنسان عدو ما ي*** ) كل عام وانتم جميعا بخير وسعادة ورضا عيدكم سعيد

كل عام أنتم بخير أخي الكريم عبد الله قدور في هذه الحالة لن يتم فتح التقرير وفي نهايته الأمر me.filter وإنما ستحتاج مثلا forms!subformname.filter لأن الفلترة تتم على النموذج الفرعي مع مراعاة استبدال subformname باسم النموذج الفرعي لديك

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

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

تعيين خيارات التصفية لقاعدة البيانات الحالية يمكن فرز المعلومات التي يتم عرضها في أحد النماذج بتحديد عامل تصفية باستخدام التعريف تصفية حسب النموذج وتحديد قيم العرض لنافذة تصفية حسب النموذج لقاعدة البيانات الحالية. تتحكم الخيارات في هذا المقطع العديد من ميزات مثل حجم قوائم القيم التي تظهر ل# حقل معين في النافذه تصفيه حسب النموذج. يمكنك تحديد الخيارات ل# ما اذا كان عرض القيم ل# الحقول المفهرسه او غير المفهرسه ول# الحصول علي جدول مرتبط من قبل مستخدم في ملف خارجي. يمكنك ايضا تحديد خيارات ل# ما اذا كان اظهار قوائم القيم في عناصر التحكم الموجوده في نموذج عند استخدام تصفيه حسب النموذج. الإعداد الوصف حقول محلية مفهرسة عند تحديد هذا الخيار، يتم عرض قيم من حقول محلية مفهرسة في قوائم القيم التي تظهر في النافذة تصفية حسب النموذج. حقول محلية غير مفهرسة تضمين قيم من حقول محلية غير مفهرسة في قوائم القيم التي تظهر في النافذة تصفية حسب النموذج. حقول ODBC تضمين قيم من الجداول التي تُنشئ ارتباطاً بها باستخدام اتصال قاعدة البيانات المفتوح (ODBC). عدم عرض القوائم التي يظهر فيها عدد من السجلات أكبر من ادخل الحد الاقصي ل# عدد السجلات التي تريدها Access ل# قراءه اثناء انشاء قائمه القيم ل# عامل تصفيه حسب النموذج العمليات. لن تظهر قائمه قيم عندما يتجاوز عدد السجلات المطلوبه ل# اكمال قائمه الرقم الذي تحدده. ستحتوي قوائم القيم كافه القيم الفريده فقط، حتي لو غير مفهرسه الحقول الخاصه بها. الاعداد الافتراضي هو 1000. الخلاصة هي إمكانية تضمين جميع أنواع الحقول (المفهرسة وغير المفهرسة والمرتبطة) في القوائم المفلترة بحد أقصى 1000 سجل

بارك الله لك أستاذي الفاضل يمكنك تعديل كود زر فتح النموذج إلى DoCmd.OpenForm "Exam", , , "[Chapter_Question] = """ & Forms!startup!Label72.Caption & """" أو DoCmd.OpenForm "Exam", , , "[Chapter_Question] = """ & Me.Label72.Caption & """" بدلا من DoCmd.OpenForm "Exam", , , "[Chapter_Question] = Me.[Label74].caption" ملحوظة: ياعم الحاج احنا ناس غلابة قوي بلاش حكاية سعادة الأستاذ ال.... ال...... والكلام الكبير ده الواحد ياخد قلم في نفسه ولا حاجة ربنا يصلح أحوالنا جميعا

بارك الله لك أستاذ إبراهيم ولإثراء الموضوع وتطوير الدالة وجعلها أكثر احترافية Function GetNumbersOnly(SText as string) as double Dim Numbers as string For i = 1 To Len(SText) If IsNumeric(Mid(SText, i, 1)) or mid(sText,i,1) = "." Then Numbers = Numbers & Mid(SText, i, 1) End If Next GetNumbersOnly = cdbl(Trim(Numbers)) End Function تم إضافة تعريف بعض المتغيرات وشرط للعلامة العشرية وتحويل ناتج الدالة لرقم من نوع دبل كل عام وانتم جميعا بخير وسعادة ورضا

إذا كانت النصوص الممكنة مع الأرقام هي فقط رموز gr kg ml l يمكنك استعمال هذا التعبير في الاستعلام weight number: Replace(Replace(Replace(Replace([weight];"gr";"");"kg";"");"ml";"");"l";"") وهو لاستبدال النصوص بلا شيء لتظهر الأرقام فقط

لعمل هذا يمكنك نسخ الكود الموجود في الزر الثاني إلى الزر الأول أو استعمال call button2_Click داخل حدث ضغط الزر الأول

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

تفضل أخي الكريم تم تعديل زر السابق وعرض الإجابة والخروج زأضافة موديول لإخفاء الأكسس مع تغيير حاصية منبثق popup ومشروط modal إلى نعم mas_Questions_4.rar

عفوا هناك مشكله . لمنتمكن من تحديد المحتوي الذي ترغب في عرضه كود الخطاء : 2S328/1 تقريبا تم حذف المرفق