Moosak

الحقيقة أخي أبو الحسن أنا كنت أحاول إيجاد حل لموضوعك بهذه الأداة حتى قبل ما أطرحها في المنتدى لكن واجهتني مشكلة أن دوال المجال لا تعمل مع الاستعلامات التي لها معايير مرتبطة بقيمة في نموذج (يطلب قيمة معلمة) وهذا بإقرار شركة مايكروسوفت .. والاستعلام (رصيد سابق) هو من هذا النوع ، حيث أنه يطلب بيانات من النموذج : لذلك لم تعمل الدوال معه .. فحاولت التوصل إلى مصدر البيانات الأصلي في الجداول ولكن لقلة فهمي للأمور المالية لم أتمكن من استيعاب فكرة الرصيد السابق من جذورها بعد عدة محاولات 😅 لذلك انسحبت بهدوء وتركت الميدان لأهله 😄🖐🏼️

أستاذنا @ابو جودي .. سبب هذي الرسالة هو الحقل C في الجدول tbldata : وهو من نوع Large Number .... حاول ألا تستخدم هذا النوع من البيانات إطلاقا في برامجك لأنها ميزة مضافة في النسخ الحديثة 2016 وفوق .. لذلك إذا استخدمته لن يعمل البرنامج معاك في النسخ الأفدم .. وعوضا عن ذلك استخدم نوع البيانات Number فقط ومن خصائص الحقل في الأسفل ضع الفيلد سايز = Long Integer عن تجربة 😉👌🏼

الحمدلله على سلامتك يا سيد المعلمين 😊✋🏻🌷 والغايب عذره معه 🌹 كتير أوي يا سيد المعلمين .. 😁🌹 يكفيني 513 إعجاب وشهادة كبيرة منك يا معلمنا 😇🌷 الحمدلله هذا كله من فضل الله وإنعامه .. ثم مما تعلمناه منكم ، وتشجيعكم الدائم 🙂 وأسأل الله تعالى أن يجيب دعواتك الصادقة يا حبيب الملايين 👐🏻 حاسس إني عارف اللي بتفكر بيه ( اللي بالي بالك ) 😉👌🏻 بس برضوه مش حقول ومستنيك وأفكارك ولمساتك المتميزة👍🏼😊

أخي طارق جرب ادخال سجل جديد وأخبرنا بالنتيجة

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

=Nz(DMax("[NoM7alfa]";"tblM7alfa";"[EmpNoM7alfa]=[Forms]![frmSearch]![SubfrmQTGetAlll].[Form]![Emp_No]" And [M7alfaDate] Between DateSerial(Year(Date); Month(Date); 1) AND DateSerial(Year(Date); Month(Date) + 1; 0) );0)+1 جرب الآن أخي عمر 🙂

مثل ما أخبرتك أخي طارق ضع الكود كقيمة إفتراضية للحقل user هكذا : والنتيجة : الآن عند إنشاء أي سجل سوف تنحفظ عندك هذه القيمة مباشرة في الجدول جورج الطويل تعديل 3 (1).accdb

شكراً لكم جميعاً .. 🌹 تفاعل جميل منكم 😊

هل جربت ال vbNull أخي أبو عبدالله ؟

وعليك السلام ورحمة الله وبركاته أخي العزيز @أبو عبدالله الحلوانى 🙂 في تعريف المتغير هنا : ضع قيمة srtDate = "" a , ,وليس صفر 0 .. لأن الصفر لها قيمة في التاريخ عند البرنامج .. 🙂 .. أنظر عندما قلت له أن يحول الصفر إلى قيمة تاريخية ماذا أحضر لي : لذلك إن وجدها 0 فسوف يعطيك قيمة تاريخية .. لذلك ضع مكانها "" << علامة فارغة أو vbNull

بعد إذنك أخي المهندس قاسم @Eng.Qassim 🙂 تفضل أخي طارق مع بعض التعديلات على الكود ونموذج الدخول بطريقتي 😉 بالنسبة لاستخدام اسم المستخدم في أي جزئية من أجزاء البرنامج قم باستدعائه بهذا السطر : =[TempVars]![userName] فقد قمت بحفظ أسم المستخدم في متغير مؤقت يحتفظ به طول فترة استخدام البرنامج .. ويغيره تلقائيا عند تبديل المستخدم لاسم للمستخدم الجديد .. ولكي يدخل لك اسم المدخل تلقائيا .. ضع السطر السابق كقيمة إفتراضية لذلك الحقل .. واجعل خصائص الحقل "محمي" لكي لا يتم تعديله يدويا : الآن وضعت لك مربع نص أعلى النموذج يظهر به اسم المستخدم تلقائيا 🙂 ومن الزر تبديل المستخدم تخرج وتدخل باسم مستخدم جديد : جورج الطويل تعديل 3 (1).accdb

شكرا جزيلا لكم جميعا لمرروركم وتشجيعكم 😊🌹 أستاذي العزيز الغالي @د.كاف يار تشرفت بمرورك وإضفاء لمساتك السحرية الرائعة 😊 وشهادة عظيمة منك أعتز بها 😄 فقط أتمنى منك تعديل شيء بسيط عليها لتكتمل الفرحة 😁 أولا : من الأشياء التي راعيتها عند التصميم .. تسهيل عملية استخدام ونقل الأداة إلى أي قاعدة بيانات أخرى للمستخدمين .. فلو أمكن أن تدرج الكود الذي في الموديول إلى قائمة أكواد النموذج لكي يسهل نقله ( قطعة واحدة ) بدل أن ينقل عنصرين ( النموذج والموديول ) 🙂 ثانيا : أيضا راعيت مسألة إمكانية استخدام الأداة بدون الحاجة لنقلها لبرنامجك .. وهذا يستدعي أن القوائم المنسدلة تقبل أي اسم غير المدرج ضمن القائمة .. لكن لاحظت أن (قائمة نوع البيانات) لا تعمل عند كتابة اسم حقل غير المدرجة ضمن القائمة .. ولك مني جزيل الشكر 😊 🌹

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية الرمضانية المتميزة والرائعة 😊 ( الكاتب الذكي لدوال المجال في أكسس ) Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg هذه الأسطورة هي عبارة عن أداة صممتها في أكسس ( بفضل الله وحمده ) تقوم بكتابة دوال المجال نيابة عنك بشكل آلي .. وتعطيك النتيجة بشكل مباشر 😉👌🏼 لن يخطيء أحد بعد اليوم في كتابة جملة هذه الدوال إن شاء الله 😁 كل ما عليك فعله هو استيراد هذه الأداة لبرنامجك ثم اختيار الجدول أو الاستعلام المطلوب والحقل المراد وبعدها سترى العجب العجاب 🙂 ✨ ومن مزاياها :✨ 1 - تسهل عليك كتابة أسماء الجداول والحقول ( فقط تختارها من القائمة المنسدلة ) . 2- يحل مشكلة تداخل النصوص عند استخدامها مع الجداول والحقول المكتوبة باللغة العربية . 3- تفحص لك النتيجة مباشرة للتأكد من أنك ستحصل على البيانات التي تريدها . 4 - سهلة الاستخدام فقط اتبع الخطوات الموضحة وتأكد من اختيار نوع البيانات الصحيح . 5 - يمكنك عمل دالة بأربعة 4 معايير بكل سهولة ويسر . 6 - يمكنك عمل تعديلاتك الخاصة على الدالة مباشرة وفحص النتيجة مباشرة بعد التعديل على النتيجة النهائية . 7 - إمكانية الحصول على الصيغة الخاصة بمحرر الأكواد VBA أو الصيغة المستخدمة في الاستعلامات ومنشيء التعبير . 8- إمكانية استخدام الأداة بشكل مستقل من غير الحاجة لنقلها إلى برنامجك . 9- وغيرها الكثير مما سيفتح الله عليكم اكتشافه بأنفسكم إن شاء الله 😅 طريقة الاستخدام : سهلة يسيرة بحمد الله .. فقط قم بسحب النموذج المسمى SmartDomainFunctionsBuilder_F إلى برنامجك عن طريق السحب والإفلات .. ثم قم بفتح النموذج عندك وسوف يقوم هو آليا بالتعرف على الجداول والاستعلامات الخاصة ببرنامجك بدون الحاجة إلى جهد يذكر 🙂 ( مع إمكانية استخدام الأداة بشكل مستقل من غير الحاجة لنقلها لبرنامجك ولكنك ستفقد الكثير من المميزات 😉 ) الأداة تم عمل الكثير من التجارب عليها وتم تلافي العديد من الأخطاء وإصلاحها بحمد الله وفضله... ولكن لا زلت لا أستغني عن آراءكم وملاحظاتكم من خلال استخدامكم لها 😉 الشرح بالتفصيل : 🙂 وهنا قمت بشرح الأداة بشكل مفصل نوعا ما في مقطع فيديو مدته نصف ساعة تقريبا : وأخيرا التحميل 😊 تحميل الملف الأصلي : >> حمل من هنا آخر إصدار للأداة << تحميل الملف بلمسات المهندس العزيز @د.كاف يار : د.كاف يار __Domain Functions Builder V1.0.accdb وأهم من الأداة نفسها 😉 لا تنسوني من صالح دعائكم لي ولوالدي .. ولا تحرموني من آرائكم ومقترحاتكم ونصحكم وإرشادكم 🙂 أخوكم ومحبكم موسى الكلباني 😊 ‏‏Domain Functions Builder V1.0.accdb

أهلا بك أخي طارق 🙂 استخدمت هذا الكود في حدث قبل التحديث للنموذج : Private Sub Form_BeforeUpdate(Cancel As Integer) Dim checkDuplicates As Integer checkDuplicates = DCount("*", "[T_takrir]", "[namee] Like '*" & [Forms]![F_takrir1]![namee] & "*' " & _ " And [family] Like '*" & [Forms]![F_takrir1]![family] & "*' " & _ " And [father] Like '*" & [Forms]![F_takrir1]![father] & "*' " & _ " And [mather] Like '*" & [Forms]![F_takrir1]![mather] & "*' ") If checkDuplicates > 1 Then MsgBox "هذا الشخص مسجل من قبل", vbInformation, "تكرار" Cancel = True Else End If End Sub جربه وأخبرني بالنتيجة 🙂 جورج الطويل تعديل 2 .accdb

ولكن كمساعدة سريعة ضع هذا الكود في حدث قبل تأكيد الحذف للنموذج BeforeDelConfirm وغير الرسالة كما تحب 🙂 Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer) Dim strMessage As String Dim intResponse As Integer On Error GoTo ErrorHandler ' Display the custom dialog box. strMessage = "Would you like to delete the current record?" intResponse = MsgBox(strMessage, vbYesNo + vbQuestion, _ "Continue delete?") ' Check the response. If intResponse = vbYes Then Response = acDataErrContinue Else Cancel = True End If Exit Sub ErrorHandler: MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description End Sub

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

بالنسبة لسؤالك هذا .. وجدت أنك بالفعل قمت بربط الجدولين بعلاقة 🙂 ، فقط قمت بأعادة تسمية حقل الربط (id_n) لكي تفهمه بسهولة وأضفت حقل ترقيم تلقائي لجدول الصور (Pic_ID) .. فقط ستحتاج الآن لعمل نموذج فرعي داخل النموذج الأصلي وتربط بينهما بالحقل (id_n) .. ملاحظة : إن كنت تنوي إضافة عدة صور للشخص الواحد فوجود جدول مستقل للصور هو أمر جيد .. ، ولكن إن كنت ستضيف صورة واحدة فقط لكل شخص فيحبذ أن تستغني عن الجدول الخاص بالصور وتدمج حقل الصور مع الجدول الأصلي T_takrir . جورج الطويل تعديل 1 .accdb

تفضل أخي طارق .. غيرت لك الكود ليتناسب مع احتياجك 🙂 جورج الطويل تعديل 1 .accdb

يعمل بكل كفائة أخي طارق 🙂 ( لاحظ الرقم الأحمر من اليمين ) الترقيم موزع بهذه الطريقة : الرقم السنة الشهر اليوم الرمز 000001 22 04 17 /206 بخصوص طلبك هذا يمكنك الاستفادة من موضوع الأستاذ الإمام المهندس العلامّة محمد عصام @ابو جودي : 🙂

العفو أخي @hougar 🙂 اللهم آمين وإياكم 🌹

وعليكم السلام ورحمة الله وبركاته 🙂 تفضل أخي .. تم استخدام هذه الدالة : LastValue : Right([Daignosis];Len([Daignosis])-InStrRev([Daignosis];",")) x.rar

تفضل أخي @hougar جرب هذا : DLookUp("[Barcode]","[products]","[Barcode] Like '*"& Me.srchb &"*'")

وعليكم السلام ورحمة الله وبركاته .. 🙂 أخي ما نوع البيانات لحقل الباركود Barcode ؟ نص أم رقم ؟ هل هذا srchb اسم متغير أم اسم حقل في النموذج ؟ لكن على اعتبار أن نوع البيانات رقمي .. وأن srchb هو اسم لمتغير .. جرب هذه الدالة : DLookUp("[Barcode]","[products]","[Barcode] Like *"& srchb &"*") جرب وأعلمنا بالنتيجة 🙂

الأخطاء تعلمنا الصواب .. وتذكرنا بأننا مجرد بشر وعلمنا محدود 🙂