[ تمت الإجابة ] عدم تكرار إدخال نص بناء على ن

السلام عليكم

اخي الكريم نرجو ارفاق ملف Sup.mdb الذي يحتوي علي الجدول الاصلي

اخوك فى الله

بسم الله الرحمن الرحيم

ملف الجدول كما طلبت أخي الكريم

===

Sup.rar

الاستاذ الكبير.... فيصل - حفظه الله -

لم يعمل الملف معي لا ادري لماذا ...

عموما ارفقت لكم مثال مصغر يحتوي على الفكرة المطلوبة..

اتمنى ان يكون هو ما تريد..

Shifts.rar

السلام عليكم

اخي الكريم

ملف مصدر البيانات يحتوي علي حقل AutoNumber....

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

بمعني ان تكون يدويا حاولت ادخال سجل بالجدول ثم قمت بالغاء العملية ؟؟؟

هل بعد كل رسالة خطأ تظهر تزيد قيمة هذا الحقل ؟

بعد تمكين خاصية الاضافة بالنموزج

ثم تجربة المشكلة بواسطة الربط علي الشبكة وحماية ملف البيانات بكلمة مرور

هذه المشكلة لن تظهر اذا كان الجدول غير مربوط يعني جدول Local بقاعدة بياناتك

الحل :

انشاء جدول مؤقت Local وتسجل فيه الاول وبعد كده تعمل استعلام يتم تخزينة ايضا Local وتعمل جملة Cmd.RunSql

اللي بتعمل Insert فى الجدول المربوط بشرط ان يكون الاستعلام Select * from TempTable

يعني ابسط شكل الاستعلامات

اتمني ان أكون وصلتني المشكلة بشكل صحيح

اخوك فى الله

بسم الله الرحمن الرحيم

اخي الفاضل فيصل

السلام عليكم ورحمة الله وبركاته

اولا : اهلا وسهلا بك في منتداك منتدى الأكسيس وحياك الله بيننا

ثانيا : الموضوع بسيط ان شاء الله تعالى فكل ما عليك هو اتباع هذه الخطوات وستحل المشكلة بإذن الله

1. في الإستعلام QueryByDate ضع تحت خانة الحقل Rdate المعيار التالي اذا لم يكن موجود لديك

[forms]![SupReport]![Rdate]

2. ايضا في الإستعلام QueryByDate ضع تحت خانة الحقل Rshift المعيار التالي

[forms]![SupReport]![Rshift]

3. انتقل الى النموذج SupReport المبني على الإستعلام واعرضه في وضع التصميم واختر مربع التحرير والسرد Combo125 الذي يمثل حقل الـ Rshift وفي حدث بعد التحديث لمربع التحرير والسرد ضع هذا الكود

Private Sub Combo125_AfterUpdate()
If DLookup("Rshift", "QueryByDate") > 0 Then
response = MsgBox("عفوا ... رقم الشفت هذا مكرر لنفس التاريخ", vbOKOnly, "تنبيه تكرار")
If response = vbYes Then
Me.Undo
End If
End If
End Sub

وهذا جزء مصغر لبرنامجك فيما يخص التاريخ والشفت فقط

SUPER2.rar

السلام عليكم

الاخ الفاضل فيصل الحربي عفوا لم انتبه الي اسمك جيدا علي قدر انتباهي للمشاركة فكلنا ضيوف عليك

الاخت الفاضلة زهرة - الاخ المبدع ايهاب عثمان

نظرا لمواجهتي مشكلة الادخال بالجداول المرتبطة خلال الشبكة من قواعد بيانات محمية بكلمة مرور بشرط وجود علاقات One to Many

وبصراحة طلعت عيني فيها الي ان توصلت لحل وسط وهو جدول مؤقت يتم ترحيل البيانات منه الي الجدول المربوط نظرا لان الاكسس فيه مشكلة فى الموضوع ده

لما قرأت المشاركة توهمت انه الاخ الفاضل فيصل الحربي يعاني من هذه المشكلة فذهبت اسرد له خطوات ما حدث معي حتي لا يذهب وقته فى هذه المشكلة وبعد رد الاخ ايهاب والاخت زهرة قمت باعادة قراءة المشاركة وتبين لي خطاي فى فهم المشاركة واعتذر بشدة للاخوة لعدم التأني فى قراءة المشاركة

اخوكم فى الله

طريقة اخرى اخي فيصل

اذا كنت تريد الإعتماد على مصدر السجلات وهو الجدول للنموذج فأترك كل شيء كما هو وتضع هذا الكود في حدث بعد التحديث لمربع التحرير والسرد Rshift فقط

Private Sub Combo125_AfterUpdate()
If DCount("*", "SupReport", "Rdate=forms!SupReport!Rdate and Rshift=forms!SupReport!Rshift") > 0 Then
Response = MsgBox("عفوا ... رقم الشفت هذا مكرر لنفس التاريخ", vbOKOnly, "تنبيه تكرار")
If Response = vbYes Then
Me.Undo
End If
End If
End Sub

وهذا ملفك كامل بعد التعديل الأخير

zaSup2.rar

ملاحظة : اوقفت بعض الأوامر اثناء تحميل النموذج بإمكانك اعادتها

بسم الله الرحمن الرحيم

أشكر الجميع على مابذلوه من وقتهم الثمين في التغلب على هذه المشكلة .

بارك الله فيكم و جعلكم ذخرا لمنتداكم العامر بكم

===