اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

منع لصق بيانات سجل موجودة سابقا


ahmad_mustafa

الردود الموصى بها

السلام عليكم 

ارجو منكم مساعدتي :

في المرفق يوجد نموذج جدول1 ونموذج جدول2 ..المطلوب نسخ السجل من الجدول 2 وعند لصقه في جدول 1 يعطيني رسالة بانه لايمكن اللصق لوجود بيانات موجودة سابقا

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

رسالة تنبيه عند لصق بان بيانات السجل موجودة سابقة.rar

رابط هذا التعليق
شارك

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

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

ساطلع علي مرفق حضرتك الآن وسأوفيق بالتعديل المطلوب ان شاء الله بعد قليل

 

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم 

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

رابط هذا التعليق
شارك

7 ساعات مضت, ahmus said:

السلام عليكم 

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

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

استاذ @أبو عبدالله الحلوانى قلت لك ان ...

19 ساعات مضت, أبو عبدالله الحلوانى said:

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

كما مبينة في الصورة

1390055515_Screenshot2021-09-04180628.png.93070c470b64b92712cf99853f5e21c4.png

وعلى مرفقك عملت ذلك القي نظرتا اليه

رسالة تنبيه عند لصق بان بيانات السجل موجودة سابقة.rar

تحياتي

رابط هذا التعليق
شارك

السلام عليكم 

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

 

يجب ادخال قيمة.png

رابط هذا التعليق
شارك

استخدم هذا الكود في مربع النص الخاص بالتاريخ في حدث بعد التحديث ......

If Not IsNull(DLookup("A", "ABCD", "C=form!C and D=form!D And A=form!A And A=form!A")) Then
    If MsgBox("سبق إدخال " & C & " و " & D & " هل تريد الاستمرار؟", vbYesNo, "تنبيه") = vbNo Then
    'لتفريغ الحقول فقط
    A = Null
    B = Null
    C = Null
    D = Null
    End If
End If

للأسف لم استطع استخدام الكود في مثالك ......... نظرا لاستخدامك اللغة العربية في التسميات ............

 

  • Like 3
رابط هذا التعليق
شارك

الاخ kanory مافهمت ياريت على المثال توضيح الحل ويمكنك تغيير الاسماء بالانجليزي

رسالة تنبيه عند لصق بان بيانات السجل موجودة سابقة.rar

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information