Moosak

في نموذج التواريخ مثل ما تلاحظ قمت بنسخ نفس القيمة المسجلة مسبقا ثم ضغطت على Check ولكن لم يعطيني رسالة تأكيد وجود التاريخ مسبقا 🙂

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

بعد بسم الله الرحمن الرحيم 😎 جزيل الشكر والإمتنان لك مهندسنا الغالي @ابو جودي بس عندي ليك كم ملاحظة 😏 أول ملاحظة ( لما يكون الحقل فاضي ) وهذا ينطبق على كل أنواع البيانات : الملاحظة الثانية ( بعض القيم لا يتم اكتشافها ) على الرغم من أنها موجودة مسبقا ( وينطبق على التواريخ ) : والباقي زي العسل على الطحينة 😉

طب 2 / 10 على الأقل عشان أول واحد مجاوب والعيش والملح 😅 خلاص أنا هجاوبك في موضوعك الأصلي عشان عندي كم ملاحظة 😏

وهذا تطبيق على برنامجك 🙂 حبيت أجرب كود الباش مهندس 😄🖐🏼️ جورج الطويل.accdb

ما شاء الله عليك مهندس @احمد الفلاحجي مذاكر كويس ونظرتك ثاقبة 🙂 فعلا غفلت هذه النقطة 😅 بعد ما ترجع الدالة بـ True أو false للمصمم الحرية في أن يبني عليها أوامر أخرى أو تركها كما هي .

تسلم أستاذنا @احمد الفلاحجي 🙂 الكود الذي وضعته عبارة عن نسخة معدلة من كود البطل @ابو جودي .. لذلك كل ما ذكره موجود بالفعل مسبقا 🙂 أنا فقط حولته إلى وظيفة عامة كما طلب هو 😅

شكرا ياباش مهندس @ابو جودي 🙂 ياريت لو تكمل معروفك وتعمل لنا شرح مبسط عن كيفية الاستخدام ( بالصور ) 😁

أهلا بالتحديات الجميلة 😉 يعني هذي محاولة بدون تجربة إن شاء الله تكون مضبوطة 😅 عملتها كدالة عامة ترجع لك نتيجة من نوع True or False Public Function CheckIDExist(IDField As String, TableName As String, FormName As form) As Boolean Dim stLinkCriteria As String Dim strMsgPrt1 As String Dim strMsgPrt2 As String Dim strMsgPrt3 As String strMsgPrt1 = ChrW("1578") & ChrW("1581") & ChrW("1584") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1588") & ChrW("1582") & ChrW("1589") & ChrW("1609") & ChrW("32") & ChrW("40") strMsgPrt2 = ChrW("32") & ChrW("41") & ChrW("32") & ChrW("1578") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1587") & ChrW("1578") & ChrW("1582") & ChrW("1583") & ChrW("1575") & ChrW("1605") & ChrW("1607") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("1602") & ChrW("1576") & ChrW("1604") strMsgPrt3 = ChrW("1587") & ChrW("1608") & ChrW("1601") & ChrW("32") & ChrW("1610") & ChrW("1578") & ChrW("1605") & ChrW("32") & ChrW("1606") & ChrW("1602") & ChrW("1604") & ChrW("1603") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1606") & ChrW("32") & ChrW("1573") & ChrW("1604") & ChrW("1609") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1580") & ChrW("1604") & ChrW("46") stLinkCriteria = IDField & "=" & IDField If DCount("*", TableName, stLinkCriteria) > 0 Then MsgBox$ strMsgPrt1 & IDField & strMsgPrt2 & vbCr & vbCr & strMsgPrt3, vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "" FormName.Undo FormName.Recordset.FindFirst stLinkCriteria CheckIDExist = True Else CheckIDExist = False End If End Function الفحص عليك يا معلم @ابو جودي 🤭 ولا تنسى تديني 10 / 10 😅👊

والعبقرية هي فضل من الله يا عبقري 👍🏼😉

كيف عرفت إنّي ناوي أجدد المكتبة 😅 لا يكون شغلت البخور والعفاريت عندك 👻 إنت كثر شغل أفكار وشخابيط بس عشان نملي المكتبة بسرعة 😋

نستغنى عن النموذج الفرعي ونحول النموذج الاصلي لنموذج عناصر متعددة ونلعب في الريكورد سورس .. مش كده ولا أيه ؟ 😁

منك العذر ياحبيب الملايين 😅✋🏻 انا عارف انك حتكمل ولا كأنك شفت حاجة 😂🤭 أنا اللي عاوز أتعلم منك دالوأتي 😄 وده هيطلع لنا حل استثنائي ما حصلش إن شاء الله 👍🏼😁

اسمحلي أبا جودي بهذا الدخول المفاجئ 😅 كحل سريع ، قم بتعديل المعيار الذي أسفل الحقل Grde في الاستعلام هكذا (تحذف النجمة التي على اليمين ) : Like "*" & [Forms]![frm_Search]![Ser_Grade] والنتيجة : Database271.accdb

جرب هذا : ((TransactionsT.TransToDept) Like '" & Forms!MainScreen!txtDepartment & "'"))

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

ماذا تقصد بالصورة ؟ هل ممكن تضع مرفق للتعديل مباشرة عليه ..

وعليكم السلام ورحمة الله وبركاته يا حسين .. استخدم دالة Replace مثلا .. replace(me.txtNumber,"#","")

أخي عبدالعزيز ضع الكود التالي على زر الحذف : Dim InBox As String On Error Resume Next InBox = InputBox("أدخل كلمة المرور لتأكيد الحذف", "خاص بالادارة") If InBox = 9999 Then DoCmd.RunCommand acCmdDeleteRecord Else MsgBox "كلمة مرور خاطئة" End If وعند الضغط على الزر ستظهر لك هذه الرسالة : إذا تم إدخال كلمة المرور بشكل صحيح = 9999 فسيتم الحذف وإلا فلن يتم الحذف 🙂

نيابة عن أخي أزهر .. يقصد لك أن تضع مربع نص جديد وتسميه textpassword لكي يتعرف عليه الكود 🙂 أما لو أردت الاستغناء عن مربع النص والاستعاضة عنه بصندوق إدخال فاكتب الكود هكذا : Private Sub Form_Delete(Cancel As Integer) Dim InBox As String InBox = InputBox("أدخل كلمة المرور لتأكيد الحذف", "خاص بالادارة") If InBox = 9999 Then DoCmd.RunCommand acCmdDeleteRecord Else MsgBox "كلمة مرور خاطئة" Cancel = True End If End Sub

أنا معاك تمام بشا مهندس محمد في هذي النقطة 👍🏻 ، لكن أحس المنتدى نايم هذي اليومين ، الناس مشغولة بالعبادة واستغلال الشهر الكريم، الله يتقبل من الجميع 🙂 .

هو أنا هلحق أعمل حاجة قبلك وأنت اللي يسموك @ابو جودي ("قاهر الأكسس")Cstr حتى إني كتبتهالك في دالة 😂 أنت شخص متفجر بالأفكار ما شاء الله عليك 😄 وأنا كمان حاليا شغال على حاجة كبيرة .. سترى النور قريبا إن شاء الله 😉💪🏼

دائما تنزل الميدان بقوة باش مهندس @ابو جودي رااااااااااااائع كروعتك .. حاجة كاملة الدسم وشاملة لكل الاحتياجات 😊 دائما تحاول تحط الحلول النهائية لمشاكل الناس .. الله يوفقك يا باشه 😃 >>>>>> يضاف لمكتبة الأكوااااااااااااد 😁👌🏼

بارك الله فيك أخي أبا الحسن ،، تتبعت مصدر البيانات التي في النموذج Form1 ووجدتها تأتي من الجدول Financial_Records.. ولو أمعنت النظر ستجد أن تاريخ أول قيد في 2/7/2021 .. بينما في شاشة البحث في النموذج Form1 البحث يبدأ من 1/7/2021 .. لذلك لن تجد أي رصيد سابق للعملاء بهذه الطريقة وستضل النتيجة تعطيك NULL .. فم هي الآلية التي تريد بها الحصول على الرصيد السابق للعميل ؟ وكيف سيتم التمييز بين العملاء ؟ باسم العميل أم برقم العميل ؟ ماهي الخانة التي سأربط بها بين العميل ورصيده ؟ تحتاج لكمّ جيد من البيانات التجريبية في الجداول لكي تستطيع تجربتها عند تصميم قاعدة البيانات .

أهلا بك أخي أبا الحسن ،، بعد صراع طويل مع الملف المرسل ولفك أشفاره ، ولمحاولة فهم المطلوب ( وأشك أنني فهمت ) 😅 توصلت لهذه المعادلة للرصيد السابق : =Nz(DLookUp("[Balance]";"[Financial_Records]";"[Registration_Date] <#" & [Forms]![Form1]![FromDate] & "# And [Customer_ID] =" & [Forms]![Form1]![Customers] & " ");0) وتم إصلاح حدود التقرير 🙂 وإن لم أوفق لما تريده بالضبط فعليك أن تفيض علينا بالشرح المفصل . تحياتي ،، T1 (2).rar