kanory

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

بالنسبة للكود الاول لم يعمل معك .. لأنك 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]"))

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

وعليكم السلام انظر المرفق ...... Fill_Dates.mdb

وعليكم السلام انظر الصورة .... ادخل رقما مكان السهم بدلا من الرقم الموجود ثم انتقل بزر TAB ولاحظ الترقيم فردي.accdb

الحمد لله بالتوفيق ....

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

بعد اذنك حبيبي ابا البشر انظر كده ....... جرب ووافينا بالنتيجة تنسيق المدارس1.accdb

كلام صحيح ....

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