kanory

حياك الله اخي @خالد عبد الغفار بالتوفيق ......

تفضل .... خالد.rar

مشاركة مع استاذي محمد tb.accdb

اكتب داخل مربع النص عدد التكرار المطلوب ------>>>> اضغط على زر عرض التقرير ..... تكرار المقطع في التقرير.mdb

بالتوفيق ....

اين النموذج والازرة ؟؟؟؟؟

هل جربت هذا الكود ؟؟؟؟؟؟ Dim FrontObj As AccessObject, FrontDB As Object Set FrontDB = Application.CurrentData For Each FrontObj In FrontDB.AllTables If Left(FrontObj.Name, 4) <> "MSys" Then DoCmd.DeleteObject acTable, FrontObj.Name End If Next FrontObj Set FrontDB = Nothing

ربما هذا الفيديو يفيدك .... شرح باركود الاصناف والوزن للميزان

وعليكم السلام .... انظر الصورة ......

بالنسبة للكود الاول لم يعمل معك .. لأنك SIRIAL غير موجود في النموذج لديك في الكود الثاني استخدمنا DLOOKUP للبحث عن القيمة الموجودة في مربع النص IDE في جدول EMPDEV في الحقل IDE عندما قيمة الحقل IDE يساوي القيمة الموجودة في مربع النص IDE عند وجود القيمة في الجدول يقوم الكود بمسح الحقول واعطاء الرسالة بوجود السجل ELSE في حالة عدم وجود القيمة في الجدول يتمم حفظ السجل انصحك بالبحث في المنتدى شرح مستفيض عن دالة DLOOKUP ارجو اني وفقت للشرح ...... لأني ضعيف جدا في الشرح ....

جرب هذا الكود ..... If Me.IDE = DLookup("IDE", "EMPDEV", "[IDE] = " & Me.IDE) Then Me.CMBSERIAL.Undo Me.Undo MsgBox "هذا الاسم مسجل مسبقا", vbInformation, "تنبيه تكرار" Exit Sub Else MsgBox "تم" End If

بارك الله فيك ...شكرا لك

اين ومتى تظهر الرسالة ..... لم تظهر لدي ؟؟؟؟؟؟

جرب هذا الكود بدل الموجود لديك ... If Me.CMBSERIAL.Column(0) = DLookup("IDD", "EMPDEV", "[IDD] = '" & Me.CMBSERIAL.Column(0) & "'") Then Me.CMBSERIAL.Undo Me.Undo MsgBox "هذا الجهاز مسجل مسبقاً", vbInformation, "تنبيه التكرار" Exit Sub Else MsgBox "تم" End If

وعليكم السلام ما شاء الله تبارك الله جهودكم واضحة في المنتدى للتطوير ... بارك الله فيكم 🌷

وهذا حل اخر ..... المستخدم.mdb

للجداول فقط ممكن ولكن القاعدة كاملة فلا يمكن !!!!

حياك الله اخي الكريم وبالتوفيق ...

تفضل ..... Database8.rar

اذا كانت الحقول داخل مربعات نص محددة ودائما هي فقط ما تحتاج لنسخها معا .... يمكن ان تحفظ قيمها بالنسخ في متغيرات عامة .... لاستخدامها بشكل متكرر ... كفكرة لم انفذها ولكن ممكن تجربها !!!

لماذا لا تجعلها بشكل حقول بدلا من السجلات

هل جربت هذا الكود ؟؟؟؟؟ Me.m.SetFocus DoCmd.RunCommand acCmdCopy حيث M هي مربع النص

انظر للمرفق طبعا فكرة الكود اذا حدث تغير في السعر تأخذ السعر الجديد واذا لم يجد سعر جديد يأخد السعر الاخير ...... جرب ووافنا weekprices.accdb

وعليكم السلام ورحمة الله وبركاته استبدل كود التحديث بهذا الكود وأعلمنا بالنتيجة Me.proprice = Nz(DLookup("[weekpricef]![price]", "[weekpricef]", "[Forms]![salebill].[billfooter subform]![productname] = [weekpricef]![productname]and forms![salebill]![billdate] between [weekpricef]![from]and [weekpricef]![to]"), DLookup("[weekpricef]![price]", "[weekpricef]", "[Forms]![salebill].[billfooter subform]![productname] = [weekpricef]![productname]"))