أبو عبدالله الحلوانى

مشاركة مع أخي واستاذي @احمد الفلاحجي جزاه الله خيرا فكرة خارج الصندوق قليلا - الفلترة من داخل الاستعلام مباشرة تصفية.accdb

لست ادري ان كان الامر مرتبط بالموضوع السابق ام لا ولكن انظر الي هذه المشاركة

وانا كذلك اوافق اخي واستاذي @احمد الفلاحجي الفرق بين 7-9 الي 30-9 سيتم حسابه بالشهور بالتأكيد ولكن تلك الفترة لم تكتمل 30 يوم لذلك لم يتم حسابها شهرا كاملا حسب المعادلة وحسب العرف فالفترة عبارة عن 23 يوم فقط جرب زيادة 7 ايام لشهر 10 وستجد ان الناتج اصبح 88 اسبوع و 1 شهر. جرب هذا المرفق قمت بالتعديل علي الدالة واصبحت الآن تعمل داخل الاستعلام بدون وسيط وابقيت علي الدالة القديمة لتري الفرق جرب ووافنا بالنتائج Database1.rar

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

السلام عليكم ورحمة الله وبركاته جرب المرفق التالي ارجو ان يكون موافق لمرادك عملي بالمرفق كان: (علي حسب ما فهمت من المثال المقدم من سيادتكم) 1- قمت بانشاء دالة لجلب الرصيد السابق بين التاريخ المحدد وبداية السنة المالية المحددة في الفورم 1 الدالة بسيطة صغيرة الحجم وتحوي الشرح بداخلها لكل سطر تقريبا. 2- تم التعديل علي الاستعلام الذي انشأته حضرتك (رصيد سابق) واضفت فيه عمود لجلب الرصيد السابق لكل عميل. 3- وتم حذف الاستعلامين الآخرين (رصيد سابق2 و رصيد سابق3) لعدم الحاجة اليهما 4- تم انشاء تقرير لعرض الرصيد السابق لكل العملاء والتعديل علي زر (رصيد سابق لكل مصادر التمويل) لعرض التقرير هذا والله اعلم وأسأل الله لي ولكم القبول والتوفيق لكل خير وان يختم لنا الشهر بعتق رقابنا من النار وان يختم لنا حيتنا بعمل صالح يقبضنا عليه وهو راض عنا آمين T2Q - Copy.accdb

معلش انا فهمي تقيل حبتين اعطني مثال بالارقام يعني لو حددت السنة المالية 2022 التي تبدأ في 1/7/2021 هل تريد احضار الرصيد السابق للعميل 1 مثلا خلال العام المالي السابق الذي يبدأ في 1/7/2020 وينتهي في 30/6/2021 أم ماذا تعني بالرصيد السابق خلال السنة المالية فقط آسف استفساراتي كثير لكن أول ما امسك بداية الخيط هتلقيني فريرة ان شاء الله يا ريت مثال بالأرقام والتواريخ لو تسمح - وبعتذر لعدم تواصلي الا غدا ان شاء الله

كدا الصورة وضحت استفسار اخير الرصيد السابق للفترة المحددة هيكون حدوده ايه عني مثلا لو عندنا ثلاث سنوات مالية وحضرتك حددت السنة المالية الحالية 2022 الرصيد السابق لها هل هيكون سنة ايضا ام كل ما يسبقها من السنوات، توضيح بالأرقام : يعني لو حددنا السنة المالية من 1/7/2021 الي 30/6/2022 كيف سيكون الرصيد السابق؟ هل هو خلال الفترة من 1/7/2020 حتي 30/6/2021 أم خلال كل الفترات السابقة للتاريخ المحدد ايا كان عدد السنوات السابقة؟!

ما تعني بتقيد الانترنت؟ هل تريد ايقاف اتصال الكمبيوتر بالانترنت ويتم اعادة الاتصال عند فتح برنامج الاكسس؟! ام تقصد ان الكمبيوتر لا يتصل الا بالشبكة المحلية فقط التي تم مشاركة الملف معها؟! آسف رديت علي سؤالك بسؤالين ولكن كما تعلم فهم السؤال نصف الاجابة. تمناتي بالتوفيق بانتظار ردك

وعليكم السلام ورحمة الله وبركاته تقبل الله طاعتكم وكل عام وحضرتك وكل اعضاء المنتدي الكرام بخير حقيقة تصفحت مرفقكم وقد تهت به - ولا أدري اهذا من تأثير الصيام ام - تخانة مخ - 1- ممكن حضرتك تبسط لنا المطلوب ربما هنالك طريقة اسهل من صنع استعلامات كثيرة او اكواد ما فهمت من اطلاعي علي نص الموضوع هو استخراج الرصيد الدائن والمدين لكل عميل هل هذا صحيح ان كان هذا هو المطلوب فقط فأعتقد ان هذا الاستعلام الذي اسمه (الرصد السابق) فقط يفي بالغرض والا فعد لرقم واحد بالأعلي 👆 فهذه نتيجة الاستعلام كما ظهرت عندي

جرب هذا التعديل ووافنا بالنتائج تم اضافة البيانات الي الجدول ومن ثم الي الاستعلام Database1.rar

مشاركة مع أخي وأستاذي @احمد الفلاحجي جزاه الله خيرا جرب هذا المرفق ووافنا بالنتائج شرح الدالة داخلها Database1.rar

جزاكم الله خيرا تشرفت بمروركم الكريم جربت ما تفضلتم به ظهرت لي هذه الرسالة

جزاك الله خيرا علي المشاركة حياك الله وبياك وجدت هذا الموضوع https://stackoverflow.com/questions/18497942/function-optional-parameter-date-type-fails وقد أفدت من الاجابة الثالثة فيه وقمت ببعض التعديل علي الكود بهذا الشكل 1-if len(srfdate & "") >0 2- And srfdate <> 0 ' Replace Or By And 3- and srfdate <> null 4-And srfdate > #12/31/2000# 'Add Defulte value Can control by it وقد اعطتني الدالة قيم صحيحة والحمد لله لن أقوم بوضع علامة مجاب علي الموضوع لعلي اجد بمشاركات الأساتذة حلا محترفا أكثر وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته أولا - تقبل الله طاعاتكم ورمضان مبارك عليكم ان شاء الله وبعد؛ انشأت دالة لحساب بعض القيم وكان من ضمن البارمترات الممرة لها تاريخ يمكن ان يكون غير موجود ولاحظت عند الدبج للدالة انه يقوم بحساب التاريخ سواء كان موجودا أو غير موجود رغم اني وضعت كل الاحتمالات لكون التاريخ غير موجود، مثل: 1- if len(sarfDate & "") >0 2- or sarfDate = 0 3- or sarfDate = null ارجو المساعدة وجزاكم الله خيرا ربما الصور توضح المقصود ان شاء الله

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

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

فترة الضمان تكون صفر تمام مفهومة لكن لماذا يتم ازالة تاريخ نهاية الضمان وهي بوجهة نظري معلومة مفيدة يجب حفظها بقاعدة البيانات ليتم الرجوع اليها وقت الحاجة جرب هذه الفكرة لعلها تروق لك فترة الضمان.accdb

جزاك الله خيرا ومبارك الترقية خبيرا قد شرف بكم اللقب فأنتم أهله وأحق به

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

للرفع

السلام عليكم انت اللي جبته لنقسك - اسمع شرح الصعايدة - وامرك لله بس علي شرط لو لم تتفهم من الشرح شىء - عليك الاستعانة بالله أولا - ثم قم بشراء قاموس مفرادات اللهجة الصعيدية ولا تطلب الاعادة. توكلنا علي الله 1- في هذا السطر بنعرف دالة عامة - حتي نستطيع ان ننادي عليها من اي مكان بالبرنامج 2- لماذا دالة وليس اجراء؟! يعني لماذا Function وليس Sub ؟! 3- نعم لأن الدالة يمكن تحويلها الي قيمة وهذا ما حدث هنا فقد تم تحويل هذه الدالة الي قيمة منطقية ( True - False) فبعد ان تنتهي دالتنا من مهمتها ستتحول الي قيمة true في حالة الانتهاء من مهمتها بنجاح والا الي false 4- وكنا بحاجة الي تمرير اسم الفورم الذي ستتعامل معه دالتنا فكان لا بد من وضع بارمتر للدالة لنمرر قيمة هذا البارمتر عند منادة الدالة من الفورم - وعلي حد علمي يمكن تمرير البارمتر بطريقتين: أ- ByVal = وبهذه يتم تمرير القيمة للبارمتر - بحيث نخبر الدالة ان تتعامل مع هذا البارمتر كقيمة مثلا: عندما امرر اسم مربع نص لهذا البارمتر من الفورم فستقوم الدالة بالتعامل مع النص الذي بداخل مربع النص (ارجو ان يكون الأمر واضح) ب- ByRef = وهذه تتعامل مع كائن المرر علي اعتباره وليس علي اعتبار قيمته ، مثلا: بالمثال السابق عند تمرير اسم مربع النص سيتم التعامل مع مربع النص كمربع نص - يعني ككنترول - وليس كرقم او نص الذي بداخل هذا الكنترول لا تنسي الشرط - والقاموس اما عن C فكنت قد عرفته في جزء التعريفات العام ولم ارفق هذا الجزء بالكود ولم انتبه الا عند ممارستي لهواية الشرح وكان تعريف الـ c هكذا Dim C As Control وهكذا لا حاجة لتوضيح شىء آخر عن هذه النقطة والحمد لله اما عن باقي الكود فهذا لا يحتاج الي شرح اليس كذلك وعلي كل وان كنت مصر فهذا هو مدار الكود ان يتم التحقق من كل كنترول مظنة اداخل البيانات منه مثل: textbox - أو - combobox ان كان يحمل تاج * هل هو فارغ ام لا ان كان فارغ يعطي الدالة قيمة false وينهي الاجراء ويظهر رسالة ويظلل خلفية هذا الكنترول بلون اصفر وضع التركيز عليه ولا تسأل لماذا اللون الأصفر لأني لا أدري لماذا أفضله أعتقد ان الشرح قد انتهي وأسأل الله أن ييسر لكم فهم ما قلت ولا تنسي شرطنا واتفاقنا منذ البداية تمنياتي بالتوفيق

اذا اكتب الكود بهذا الشكل في حدث عند الخروج ووافنا بالنتائج Private Sub Form_Close() If TestRequeredField(Me) = False Then Me.Undo End If End Sub

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

جرب هذا ووافنا بالنتائج أرجو ان يوافق مرادك Microsoft.accdb

السلام عليكم ورحمة الله وبركاته اولا - أنشأ موديل وضع به هذا الكود Public Function TestRequeredField(ByRef frm As Form) As Boolean 'Elhlawany 21/12/2021 'test if control is marked with * or not On Error Resume Next For Each C In frm.Controls If C.ControlType = acTextBox Or C.ControlType = acComboBox Then If C.Tag = "*" And Len(C & "") = 0 Then C.BackColor = vbYellow C.SetFocus msgbox "This is Required Field you must fill it!" 'MakeMsg (45) TestRequeredField = False Debug.Print C.Name Exit For Exit Function Else TestRequeredField = True End If End If Next End Function ثانيا- من خصائص الحقل او الحقول التي تريد التحقق منها اضبط خاصية التاج الي نجمة بهذا الشكل ثالثا- في زر الحفظ ضع هذا الكود If TestRequeredField(Me) = True Then 'Write here what you want happin Else Beep End If ودمتم ولا تنسانا من دعواتك