kanory

تفضل ----------> Nouveau Microsoft Access قاعدة بيانات.accdb

مشاركة مع حبيبي محمد ..... تفضل Allijan.accdb

قد يكون هذا طلبك أخي الكريم ..... Allijan.rar

حياك الله أخي @بلال اليامين بالتوفيق ......

تفضل ...... المستخدم11.mdb

هل هذا هو المطلوب ...... المستخدم11.mdb

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

تفضل .... خالد.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

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

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