• 0
فيصل الحربي

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

سؤال

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

واجهتني مشكلة بسيطه في عدم تكرار رقم الوردية ( نص ) بناء على تاريخ اليوم نفسه

هذا البريمج يعتمد على التاريخ و رقم الوردية ( Shift ) كمفتاح أساسي بحيث أستطيع إدخال بيانات على 3 فترات في نفس اليوم

الفترة الاولى = الوردية = 01-M

الفترة الثانية = الوردية = 02-E

الفترة الثالثة = الوردية = 03-N

فبالامكان ادخال تاريخ اليوم 25/07/2007 مع الوردية 01-M

وبالامكان ادخال تاريخ اليوم 25/07/2007 مع الوردية 02-E

وبالامكان ادخال تاريخ اليوم 25/07/2007 مع الوردية 03-N

سؤالي هو :

حينما أخرج من مربع نص ( الوردية = Shift ) يقوم البرنامج بتنبيهي أنه تم إدخال بيانات التاريخ سابقا ويلغي عملية الإضافة .؟.

الملف بالمرفقات

مع العلم أن الملف مرتبط بملف الجداول عن طريق الشبكة .

===

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

9 إجابة على هذا السؤال .

  • 0

السلام عليكم

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

اخوك فى الله

تم تعديل بواسطه ahamied
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

===

Sup.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

Shifts.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

اخي الكريم

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

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

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

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

تم تعديل بواسطه ahamied
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

الحل :

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

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

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

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

اخوك فى الله

تم تعديل بواسطه ahamied
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

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

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

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

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

اخوكم فى الله

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

اذا كنت تريد الإعتماد على مصدر السجلات وهو الجدول للنموذج فأترك كل شيء كما هو وتضع هذا الكود في حدث بعد التحديث لمربع التحرير والسرد 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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

===

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .