أ / محمد صالح

يمكنك استعمال هذا الكود Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long If InternetGetConnectedState(0&, 0&) Then 'code if conected Else MsgBox "تأكد من اتصالك بالانترنت" End If مع مراعاة أن السطر الأول للإعلان عن الدالة يجب أن يوضع في الجزء العلوي من الموديول وكود الشرط يمكن تضمينه في أي إجراء أو حدث وفقنا الله وإياكم لكل خير

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

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

التجربة خير دليل جرب وأخبرنا بالنتيجة رغم أنه لا يوجد ما يمنع تنفيذها نظريا

ما الذي لايعمل؟ يجب أن تحددكلامك فربما يفهما أحدنا أن الوظيفة الإضافية لا تعمل وهذا مخالف للحقيقة فهي تعمل بنجاح ربما يحتاج أحدنا ممن لم تعمل معه إعادة الخظوات بطريقة أكثر دقة في تنفيذ المطلوب وفقنا الله وإياكم لكل خير

بعد إذن حبيبنا شيفان يمكن استعمال المعادلة الآتية DSum("Field", "Table", "Field > 0") حيث table اسم الجدول و field اسم الحقل الموجود به الأرقام

في هذه الحالة يلزمك حساب على موقع استضافة مجانية أو مدفوعة http://www.hostingadvice.com/how-to/free-web-hosting/

وهذا فيديو لشرح الأكواد والطريقة من الألف إلى الياء نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا

السلام عليكم ورحمة الله وبركاته كيف الحال؟ يا رب دايما بخير وسعادة ورضى بالمكتوب ومحاولات جاهدة لنكون أفضل مما كنا عليه حياكم الله وبعد اليوم أحببت أن أشارك أحبابي في الله مشرفي وأعضاء وزوار موقعنا الغالي على قلوبنا جميعا ملتقى الأوفيس العربي الأول على مستوى الانترنت أوفيسنا بمعلومة مفيدة جدا لكل من يريد التطبيق العملي للتعليمات الموجودة في فيديوهات الشروح ومن يريد الاستمتاع بمشاهدة يوتويب أثناء تصفحه باقي المواقع إليكم الطريقة بمنتهى البساطة ملحوظة: العمل على متصفح جوجل كروم وذلك من خلال إضافة تسمى floating for YouTube extension وولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرى وإن أعجبكم الفيديو استفدتم به فلا تبخل على غيرك بمشاركته معهم فلو بخل به غيرك ما وصل إليك والآن مع الفيديو وفقنا الله وإياكم لكل ما يحب ويرضى وتسعدني تعليقاتكم ولو بكلمة انتظرونا فالقادم أفضل

جرب تعديل كود زر الأمر إلى هذا الكود If Not (IsNull(Me.Dept)) Then DoCmd.OpenForm "Employees", , , "Dept =Forms!main!Dept" Else MsgBox ("تأكد من إدخال البيانات بشكل سليم") End If

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا واوعى تنسى مشاركة الفيديو لو بخل بها غيرك ما وصلت إليك زكاة العلم نشره

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

بارك الله لك أستاذ أبا عبد الله المعادلة الأولى كانت تقوم بوضع صفر في كل الشهور غير شهر ٧ لكن حسب المطلوب الجديد يمكن اختصار المعادلة التي تكرمت بها إلى =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 على مجهوده في الوصول للحل لقد تم الوصول للحل قبل ذلك فلا داعي لبدء موضوع جديد مكرر ربما لم يتابع الأستاذ صاحب الموضوع الحلول المقترحة جل من لا يسهو كل عام والجميع بخير وسعادة ورضا

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