Foksh

الصحيح أنا ما فهمت الموضوع لأنها ليست في قاموس الرياضيات اللي اعرفها 🧐 العدد يسار الفاصلة العشرية يسمة عدد صحيح ، والذي على اليمين يسمى العدد الكسري 😊

ارسل مرفقك اخي الكريم لرؤية النماذج التي تستخدم الجدول المحدد . او انك تستخدم الجدول بدلا من استعلام لعرض البيانات في اكثر من نموذج

🤔

أعتقد أن المشكلة تم تجاوزها بعد اكتمال التحديثات الاخيره للمنتدى. واذا استمرت جربي استخدام متصفح آخر مثل Google Chrome أو Brave وأرجح الثاني لأنه لا يظهر الإعلانات الدعائية (PopUp) في بعض المواقع واليوتيوب 😁 . فأنا عن نفسي استخدمه في الكمبيوتر والجوال كمتصفح رئيسي .

هذه نقطة دائماً ننوه لها بالابتعاد عن المسميات العربية للحقووول جرب اخي الكريم كتابة اسم الحقل بهذا الشكل البيانات_المستفيد استبدل الفراغ بإشارة _ واخبرنا بالنتيجة 😊

نعم صحيح استاذ @kanory بما النواتج ستخرج في مربعات نص فيجب ان نحددها بالإسم أو بمصفوفة متتالية text & i ابدعت استاذ @Barna للإبداع حدود حدها الفضاء 🤝

جزاك الله خيرا يا صديقي 🥰 هذا ما لمحت له في كلامي

اخي الكريم أنشئ 3 مربعات نص واجعل اسمائهم كالتالي ( Text1 و Text2 و Text3 ) استخدم الكود التالي في حدث عند التحميل للنموذج Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim formName As String Dim totalSalary As Double strSQL = "SELECT [اسم العامل], SUM(راتب) AS مجموع_الرواتب FROM جدول1 GROUP BY [اسم العامل];" formName = Me.Name Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) Do While Not rs.EOF If rs![اسم العامل] = "محمد" Then Forms(formName).Controls("Text1").Value = rs!مجموع_الرواتب ElseIf rs![اسم العامل] = "علي" Then Forms(formName).Controls("Text2").Value = rs!مجموع_الرواتب ElseIf rs![اسم العامل] = "كمال" Then Forms(formName).Controls("Text3").Value = rs!مجموع_الرواتب End If rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing ونصيحة من أخوك ، ابتعد عن المسميات العربية في اسماء الحقول والكائنات ... الخ

، مع انك لو قرأت الكود الذي هو أصلاُ في مشروعك وليس مني لعرفت اين حل مشكلتك ,, على العموم الإضافة بسيطة جداً ، تفضل Me.nn1 = "A" & Me.nn add attachment.accdb

تابع صديقي العزيز 20240229_203935.zip

الفكرة حالياً قد تكون صغيرة ، ولكن اذا توسعت فيها بعدد الاسماء يا صديقي سيكون الأمر طويلاً , على العموم تنفيذ الفكرة تفضل مثال.accdb

افتح موضوع جديد ، حتى لا يتم اغلاق الموضوع لمخالفة قواعد المنتدى

في التعديل التالي قمت بتجربة الحفظ لنسختين لنفس الملف بمكانين مختلفين بدون شبكة ( لعدم وجود شبكة داخلية عندي ) ، في الكود تم انشاء متغير اسمه filepathLocal ، فقط استبدل في المسار الجزء التالي "D:\" الى مسار المجلد المستهدف على الشبكة بعنوانه الكامل add attachment.accdb

يبدو أنك لم تلحظ الفرق في الكود السابق للزر صورة من سكنر على العموم تم نسخ الكود من الزر صورة من سكنر الى الزر سحب المرفق الاول من السكانر بعد التعديل عليه , تم تعديل المرفق السابق

أخي الفاضل @jo_2010 الصورة في الكود لا تأخذ رقم عشوائي . بل هي تأخذ صيغة الوقت الحالي وتاريخ اليوم ( بدون فواصل ) , كما في الكود التالي في الدالة Format strFullPath = CurrentProject.Path & "\QR\" & Format(Now, "yyyymmdd_hhnnss") & ".jpg" وتستطيع استبدال هذا الجزء باي قيمة تريدها ؛ كمثال حفظ الصورة باسم المريض :- strFullPath = CurrentProject.Path & "\QR\" & Me!PName & ".jpg"

نفضل صديقي ، الحل بطريقة أخرى . قاعدة بيانات_عدد السجلات.accdb

يعني انت تحتاج يكون تخزين الملف بعد سحب سكانر له باسم A متبوعاً برقم الكتاب ؟ فتفضل add attachment.zip

عيني عليك بارده من الحسد 🥰 ومنكم نتعلم وما زلنا معلمنا الفاضل @ابوخليل جزاك الله كل خير 🤝 انا كنت فاهم باتجاه آخر 😅

جزاك الله كل خير يا صديقي .. معلومة مفيدة 😊

قلتلك استراحة محارب ، خلني بس أوصل البيت وأصحصح استأنف 😎

الفكرة وصلت ، لكن راسي صف على اليمين وأخذ استراحة محارب .. محتاج منك طلب بسيط ,, اتعب معي شوي وان شاء الله تنحل مشكلتك اعمل لي نموذج حسب فكرتك بحيث يكون عند المقارنة بين (رئيس مهندسين) و (مدير) تكون القيم موجودة فعلاً وليس تصوراً .. يعني A تساوي GradNo B تساوي Txt_h C تساوي Txt_e <<<<< صحيح ولا لأ . يعني كيف أجعل المقارنة في التطابق (رئيس مهندسين) و (مدير) بدون توافر شروط البحث

هذه انتهينا منها المفروض ,, هذه النقطة التي لم استوعبها ، فما الحاجة للبحث داخل كل الحقول في السجل المحدد ؟؟؟؟؟؟؟؟؟؟؟ ام تريد ان تكون القيمة في B اذا كانت موجودة في أحد الحقول في السجل المحدد فيكون التطابق موجود وإذا لم تكن القيمة في أي من الحقول ضمن نفس السجل فتكون الحالة عدم تطابق ؟؟؟؟

أستاذ @Ahmed_J ، خليني افهم حبة حبة لأن احياناً استيعابي يكون بطيء حبتين بعد الأكل .. هالحين انت محتاج من تختار من القائمة B يروح يعمل بحث في كل الحقول - حتى لو عددهم 50 - اللي سجلها رقمه يطابق GradeNo في القائمة A . انا عملت الـ GradeNo رقم 8 يساوي كاتب في الحقلين باعتبار وجود أكثر من حقل في الجدول . وعند اختيار رقم 8 من النموذج من A وتختار اي اختيار في B غير كاتب رح تكون النتيجة انه عدم تطابق في البيانات .. ومن تختار كاتب ما رح يظهر رسالة . الحين هذا اللي انا دخت وأنا أشرحه صحيح ولا لا سمح الله غلط . هذا الكود اللي خرجت فيه بالنهاية ، والمرفق أسفله :- Private Sub B_AfterUpdate() Dim db As DAO.Database Dim rs As DAO.Recordset Dim sql As String Dim found As Boolean Dim field As DAO.field found = False Set db = CurrentDb sql = "SELECT * FROM TP2 WHERE GradeNo = " & Me.A Set rs = db.OpenRecordset(sql) If Not rs.EOF Then found = True rs.MoveFirst For Each field In rs.Fields If field.Name <> "GradeNo" And field.Value <> Me.B Then found = False Exit For End If Next field End If rs.Close If found Then MsgBox "بيانات متطابقة", , "" Else 'If Not found Then MsgBox "بيانات غير متطابقة", , "" End If End Sub Test-1.accdb

طيب ، خلينا نجرب تضييق النطاق في الحصول على اسماء الحقول Dim rs As DAO.Recordset Dim field As DAO.Field Set rs = CurrentDb.OpenRecordset("SELECT * FROM TP2 WHERE 1=0") For Each field In rs.Fields fieldName = field.Name fieldValue = Nz(DLookup(fieldName, "TP2", "GradeNO=" & Me.A), "") If Me.B <> fieldValue Then MsgBox "البيانات غير متطابقة" Undo Exit Sub End If Next field rs.Close Set rs = Nothing

اسمح لي بمداخلة لولبية أستاذ @Ahmed_J ، طبعاً بعد إذن معلمي @ابوخليل يمكننا استخدام حلقة تكرارية تقوم بالتحقق من قيمة Me.B في كل سجل دون حاجتنا الى تحديد اسماء الحقول أو رؤوس الأعمدة ، كمثال يمكن أستخدام حلقة For Each كما في الكود التالي ,, Dim i As Integer Dim fieldName As Variant Dim fieldValue As Variant For Each field In CurrentDb.TableDefs("TP2").Fields fieldName = field.Name fieldValue = Nz(DLookup(fieldName, "TP2", "GradeNO=" & Me.A), "") If Me.B <> fieldValue Then MsgBox "البيانات غير متطابقة" , , "" Undo Exit Sub End If Next field قم بالتجربة حسب تصميمك وأبلغني بالنتيجة