Moosak

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

بالنسبة لسؤالك هذا .. وجدت أنك بالفعل قمت بربط الجدولين بعلاقة 🙂 ، فقط قمت بأعادة تسمية حقل الربط (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 &"*") جرب وأعلمنا بالنتيجة 🙂

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

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