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

الترحيل بشرط ادخال شهر ثم العام


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

إخواني أعضاء أوفيسنا

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

لدية نموذج الترحيل

ارغب في  الترحيل جميع السجل بشرط  ادخال شهر ثم السنة

فيتم الترحيل جميع السجل الذي في نفس شهر والسنة

 في حالة تم الترحيل في سابق

فيظهر رسائل تنبيه

بان السجل المذكورة لشهر ثم السنة تم ترحيل

الترحيل.rar

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

فقط اجعل الحقول الثلاثة في جدول الارشيف مفاتيح

اليوزر  والشهر والسنة

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

تم التعديل

الترحيل2.rar

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

خي ابوخليل بارك الله فيك

وجزأك الله خير الجزاء

يوجد ملاحظة بسيط

ارغب في حالة  تغير شهر او السنة  يقبل الترحيل البيانات

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

ويظهر رسائل تنبية بان البيانات تم ترحيل في سابق لشهر والسنة

الفكرة من البرنامج

هي يتم ترحيل البيانات في كل شهر

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

التعديل السابق لا يمكن الترحيل اذا تشابه ثلاثة اشياء

اليوزر والسنة والشهر

اذا تغير واحد منها يمكن الترحيل

هذا الذي انا اعمله مع المرتبات الشهرية

ولسنا بحاجة الى رسائل  لان المسألة محكمة و لن يتم الترحيل

هل جربت المثال جيدا ؟ حاول ان ترحل البيانات نفسها مرتين او ثلاثة 

لن يتم تكرار الترحيل

وفي الوقت نفسه حاول ان تغير في احد الحقول الثلاثة بالطبع سيقبل الترحيل

 

اذا فحصت المثال جيدا سوف نأتي للرسالة :

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

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

خي ابوخليل بارك الله فيك وجزأك الله خير الجزاء

 

ارغب في شروط الترحيل  

 

 في حالة تغيير حقول شهر او السنة فقط يقبل الترحيل البيانات

 

في حالة عدم تغيير حقول شهر او السنة فقط

 

لايقبل الترحيل البيانات  

 

ويظهر رسائل تنبية بان البيانات تم ترحيل في سابق

 

شر.rar

تم تعديل بواسطه عبداللهM
شرح
رابط هذا التعليق
شارك

تم التعديل وعمل المطلوب

Dim i As Boolean
i = Nz(DLookup("EmpID", "tblEmployeess", "[status]= forms!nam!status And [sdasda]= forms!nam!sdasda"), 0)
If i = True Then
MsgBox " مكرر !! لا يمكن ادخال السنة والشهر"
Exit Sub
End If

 

الترحيل4.rar

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

خي ابوخليل بارك الله فيك وجزأك الله خير الجزاء

بشان رسائل تنبية بان البيانات تم ترحيل في سابق ممتاز جدا

والكن باقي مشكلة الترحيل  

الجدول (tblEmployeess)

سوف شرح لك المطلوب

لا مانع من تكرار الاسم والسجل في حالة اختلف شهر او السنة

عدم تكرار الاسم والسجل في نفس شهر و السنة

شرح.rar

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

تفضل  اضفنا شرط

وللعلم  السجل يغني عن الاسم

Dim i As Boolean
i = Nz(DLookup("EmpID", "tblEmployeess", "[status]= forms!nam!status And [sdasda]= forms!nam!sdasda And [Emp_No]= forms!nam!Emp_No"), 0)
If i = True Then
MsgBox " مكرر !! لا يمكن ادخال الشخص والسنة والشهر"
Exit Sub
End If

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

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

خي ابوخليل بارك الله فيك وجزأك الله خير الجزاء

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

والكن باقي مشكلة الترحيل في شهر التالية

مثال للتوضيح للترحيل 

                                                                           الاسم / ابو خليل  السجل 1 الراتب 500  شهر 4 السنة 1436 يتم الترحيل كامل البيانات

                                                                           الاسم / ابو خليل  السجل 1 الراتب 500  شهر 5 السنة 1436 يتم الترحيل كامل البيانات

                                                                           الاسم / ابو خليل  السجل 1 الراتب 500  شهر 6  السنة 1436 يتم الترحيل كامل البيانات

                                                                                                                مثال للتوضيح  عدم الترحيل 

                                                                        الاسم / ابو خليل  السجل 1 الراتب 500  شهر 4  السنة 1436  لايقبل الترحيل سباب هو تم الرحيل في سابق                                         

 

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

تمام  الفحص عن قرب يبين المشكلة

مشكلتك في حقل Emp_No   في جدول   tblEmployeess

هو الآن غير قابل للتكرار

 اجعله  يقبل التكرار

 

ولزيادة الضبط اجعل الحقول الثلاثة مفاتيح ..  انظر التعديل

الترحيل6.rar

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information