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

[عفرنس]

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

توضيح اكثر : 

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

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

دمتم بود 

1.accdbFetching info...

[محمد أبوعبدالله]

السلام عليكم

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

    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.rarFetching info...

تحياتي

[عفرنس]

  في 28‏/6‏/2020 at 23:05, محمد أبوعبدالله 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 تنزيلات

تحياتي

Expand  

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

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

[عفرنس]

  في 29‏/6‏/2020 at 11:58, فايز.. said:

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

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

Expand  

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

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

[محمد التميمي]

من

 

 

تم تعديل يونيو 29, 2020 بواسطه محمد التميمي

[ابو ياسين المشولي]

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

Up-1.accdbFetching info...

[عفرنس]

  في 29‏/6‏/2020 at 19:24, ابو ياسين المشولي said:

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

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

Expand  

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

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

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

 

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

[د.كاف يار]

تفضل هذا التعديل اخي الكريم

1.accdbFetching info...

[husamwahab]

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

 

root-100.rarFetching info...

[عفرنس]

  في 30‏/6‏/2020 at 05:53, د.كاف يار said:

تفضل هذا التعديل اخي الكريم

1.accdb 624 kB · 4 تنزيلات

Expand  

جزاك الله خيرا .. لكن المشكلة ما زالت  مع العامل الآخر . 

[عفرنس]

  في 30‏/6‏/2020 at 06:12, husamwahab said:

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

 

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

Expand  

أخي @husamwahab

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

11.accdbFetching info...

[husamwahab]

تفضل التعديل

ملاحظة :لاحظ التعديل في جدول salary

 

11-a.rarFetching info...

[محمد أبوعبدالله]

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

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

UPP-1.rarFetching info...

تحياتي

[عفرنس]

  في 30‏/6‏/2020 at 12:52, محمد أبوعبدالله said:

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

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

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

تحياتي

Expand  

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

  في 30‏/6‏/2020 at 12:52, محمد أبوعبدالله said:

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

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

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

تحياتي

Expand  

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