نجوم المشاركات

عليكم السلام عسى أمون قد فهمت الموضوع صح جرب هذا Sub test() Dim dic1 As Object: Dim dic2 As Object Dim a, b, w, xx Dim i& a = Sheets("فودا").Cells(1).CurrentRegion b = Application.Transpose(Sheets("قاعدة العملاء").Cells(1).CurrentRegion.Columns(2)) Set dic1 = CreateObject("scripting.dictionary") Set dic2 = CreateObject("scripting.dictionary") For i = 2 To UBound(a) If (IsNumeric(Application.Match(a(i, 3), b, 0))) Then If Not dic1.exists(a(i, 3)) Then dic1.Add a(i, 3), Array(a(i, 3), a(i, 2), a(i, 7)) Else w = dic1.Item(a(i, 3)) w(2) = w(2) + a(i, 7) dic1.Item(a(i, 3)) = w End If Else If Not dic2.exists(a(i, 3)) Then dic2.Add a(i, 3), Array(a(i, 3), a(i, 2), a(i, 7)) Else w = dic2.Item(a(i, 3)) w(2) = w(2) + a(i, 7) dic2.Item(a(i, 3)) = w End If End If Next With Sheets("رحل") Range(.Cells(3, 1), .Cells(3, 5).End(xlDown)).ClearContents Range(.Cells(3, 8), .Cells(3, 11).End(xlDown)).ClearContents .Cells(3, 1).Resize(dic1.Count, 3) = Application.Index(dic1.items, 0, 0) .Cells(3, 8).Resize(dic2.Count, 3) = Application.Index(dic2.items, 0, 0) End With End Sub

اخي الكريم تريد تطابق سجلات داخل نموذج مستمر و هذا الأمر لايمكن الا مع التركزي على سجل حدد لكن لسهل عليك الأمر اوجز بإختصار مطلبك و الهدف الذي تريد الوصول اليه تجريبي.accdb

عفوا اذا تم الحل ، رجاء اختيار المشاركة السابقة كأفضل اجابة 🙂

اذا تم الحل ، رجاء اختيار المشتركة السابقة كأفضل اجابة 🙂

وعليكم السلام ورحمة الله وبركاته العمل سهل للتقرير : اعمل تقرير غير مقيد بمعيار ، ولنسميه rpt ، وضع هذا الكود لفتح التقرير : Dim strIN As String strIN = InputBox("رجاء ادخل ارقام الدول، بينهم فاصلة") DoCmd.OpenReport "rpt", acViewPreview, , "[ConID] IN(" & strIN & ")"

نعم ممكن ، ولكن لأي سجل؟ يعني تريد المستخدم يدخل البيانات ، ولما يغلق النموذج ، يعرف اي من بياناته غلط !! وبعدين اي معلومة تعتبر المعلومة الصحيحة ، num1 او num2 اذا اردتنا ان نغيرها !! مع وجود الرسالة ، عملت لك تنسيق شرطي ، اذا القيمتين لا يساوون بعض ، فالحقلين يكونون بلون مختلف . يجب عليك تحليل طريقة العمل ، وبعدين ممكن توصل الى الطريقة الاصح للحل 🙂 1591.تجريبي.accdb.zip

تفضل التعديل الخطأ كان في العلاقة بين الجداول تم انشاء علاقة بين جدول الحسابات و جداول الحركات بعد الربط اصبح الكشف بهذا الشكل project no 2.zip

وعليكم السلام 🙂 1. انت تريد ان يتم فتح النموذج "رسالة" اذا قيمة الحقلين غير متساويين في السجل ، وليس على مستوى النموذج ، فعليه يجب ان تضع الكود على حدث "بعد تحديث" الحقل الثاني "نص2" (و الافضل لك ان تكتب اسماء الحقول بمعنى الحقل ، وليس نص1 .... ) ، 2. يجب ان تعطي اسم الحقل الذي في النموذج ، وليس اسم الحقل في الجدول/الاستعلام :

اين يتم ادخال البيانات

انظر هنا ......

عملت لك ملف على السريع هتلاقى داخل الملف المضغوط 3 ملفات الاول قاعدة البيانات الاكسيس الثاني ملف خط الباركود (هتحتاج تسطبه فى الوندوز عندك علشان كل حاجه تكون مظبوطه) الثالث ملف الاكسيل انت طبعا لنا تحب تغير ملف الاكسيل اول حاجه لازم يكون اسم ملف الاكسيل هو " MyLabel.xlsx " بعدها تفتح قاعدة البيانات هذا للفائدة تم وضع كود اعادة ربط ملف الاكسيل علشان لو نقلت مكان البرنامج بشكل تلقائى يعرف يعيد ربط الاكسيل بالاكسيس طبعا الكود اخذته من استاذى @Moosak وهو Sub RelinkLinkedTable() Dim db As DAO.Database Dim tblDef As DAO.TableDef ' Set the path to the original Excel file Dim excelFilePath As String excelFilePath = CurrentProject.Path & "\" & "MyLabel.xlsx" ' Set the name of the linked table Dim linkedTableName As String linkedTableName = "MyLabel" ' Open the database Set db = CurrentDb() ' Get the TableDef object for the linked table Set tblDef = db.TableDefs(linkedTableName) ' Update the Connect property to relink the table to the original Excel file tblDef.Connect = "Excel 12.0;HDR=YES;IMEX=2;ACCDB=YES;DATABASE=" & excelFilePath ' Refresh the table to apply the changes tblDef.RefreshLink ' Close the database db.Close ' Cleanup Set tblDef = Nothing Set db = Nothing MsgBox "Linked table relinked successfully.", vbInformation End Sub Label.rar