Moosak

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

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

في نموذج التواريخ مثل ما تلاحظ قمت بنسخ نفس القيمة المسجلة مسبقا ثم ضغطت على 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 حتى إني كتبتهالك في دالة 😂 أنت شخص متفجر بالأفكار ما شاء الله عليك 😄 وأنا كمان حاليا شغال على حاجة كبيرة .. سترى النور قريبا إن شاء الله 😉💪🏼

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