اذهب الي المحتوي
أوفيسنا

عدم تكرار البيانات


عفرنس
إذهب إلى أفضل إجابة Solved by husamwahab,

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

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

توضيح اكثر : 

إذا كان العامل ( ممتاز ) أدخلت بياناته بتاريخ اليوم 29-06 يمنع تكرار ادخال البيانات لنفس العامل في هذا الشهر وليس اليوم .

والرسالة تكون / تم ادخال بيانات ( اسم العامل ) لهذا الشهر ) 

دمتم بود 

1.accdb

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

السلام عليكم

اضف الكود التالي

    If Rs("F_Name") = Me.Xname.Column(0) Then
    
            If DatePart("m", Rs("F_Date")) = DatePart("m", XDate) Then
                MsgBox "تم ادخال بيانات العامل / " & Me.Xname.Column(0) & " لهذا الشهر"
            Exit Sub
            End If
            
    End If

Up-1.rar

تحياتي

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

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

السلام عليكم

اضف الكود التالي


    If Rs("F_Name") = Me.Xname.Column(0) Then
    
            If DatePart("m", Rs("F_Date")) = DatePart("m", XDate) Then
                MsgBox "تم ادخال بيانات العامل / " & Me.Xname.Column(0) & " لهذا الشهر"
            Exit Sub
            End If
            
    End If

Up-1.rar 48.25 kB · 1 تنزيلات

تحياتي

أخي @ محمد أبو عبدالله 

جربت الكود وما زال يضيف نفس البيانات للعامل بنفس التاريخ .. لعل هناك خطأ ما .. 

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

4 ساعات مضت, فايز.. said:

أخي @ محمد أبو عبدالله 

جربت الكود وما زال يضيف نفس البيانات للعامل بنفس التاريخ .. لعل هناك خطأ ما .. 

@jjafferr @محمد أبوعبدالله 

يحتاج الكود لإعادة النظر فيه . جزيتم خيرا

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

15 دقائق مضت, ابو ياسين المشولي said:

مشاركة مع الاخوان

Up-1.accdb 620 kB · 1 تنزيلات

أخي @ابو ياسين المشولي

الكود عمل تمام مع العامل اللي اسمه ممتاز 

لكن جربت مع عامل آخر ولم ينجح أي أنه يكرر اضافة بياناته لنفس الشهر .. 

 

الأمر الآخر ياليت تشرح لي الكود بالتفصيل للفائدة 

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

5 ساعات مضت, husamwahab said:

مشاركة مع الاساتذة

 

root-100.rar 46.46 kB · 2 تنزيلات

أخي @husamwahab

جربت الكود مع الملف الأصلي عندي ولم يضبط وهذا هو الملف : انظر لاهنت وين المشكلة ؟؟

11.accdb

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

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

تفضل اخي الكريم

التعديل الاخير يعمل بشكل جيد ان شاء الله

UPP-1.rar 49.59 kB · 3 تنزيلات

تحياتي

شكرا لك أخي الفاضل محمد .. تم المطلوب بنجاح 

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

تفضل اخي الكريم

التعديل الاخير يعمل بشكل جيد ان شاء الله

UPP-1.rar 49.59 kB · 3 تنزيلات

تحياتي

جزاك الله خيرا .. تم المطلوب بنجاح

 

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

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