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

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

قام بنشر

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

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

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

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

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

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

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

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

الترحيل.rar

قام بنشر

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

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

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

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

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

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

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

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

قام بنشر

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

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

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

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

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

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

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

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

 

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

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

  • 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

قام بنشر

إليك يا من بذلت ولم تنتظر العطاء، إليك أهدي عبارات الشّكر والتّقدير وبارك الله فيك وجزأك الله خير الجزاء

هذا هو المطلوب

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