تحديث بيانات جدول الى جدول اخر بشكل تراكمي

[ام ناصر]

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

 شهر رمضان مبارك على جميع الاعضاء نسأل الله ان يتقبل طاعاتكم ويبارك بأعمالكم  ويعيده علينا وعليكم وعلى الامة الاسلامية بالخير والبركة

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

حاولت ان استخدم استعلام الحاق لكن يقوم بتحويل كافة بيانات جدول الرواتب بدون قيد او شرط  الى الجدول الجديد وحاولت ان ادرج شرط داخل الاستعلام على ان يكون التحديث حسب التاريخ المدخل في النموذج لم اوفق بنتيجة مرضية  .

ارفقت صور عن التحديث المظلوب مع الشكر والتقدير لكل من يتابع الموضوع.

update.rarFetching info...

[محمدنجار]

  في 31‏/5‏/2017 at 21:29, ام ناصر said:

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

Expand  

::: تفضلي ارجو ان اكون فهمت طلبك . بالتوفيق

Update_UP.rar

[ابو جودي]

  في 31‏/5‏/2017 at 21:29, ام ناصر said:

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

 شهر رمضان مبارك على جميع الاعضاء نسأل الله ان يتقبل طاعاتكم ويبارك بأعمالكم  ويعيده علينا وعليكم وعلى الامة الاسلامية بالخير والبركة

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

حاولت ان استخدم استعلام الحاق لكن يقوم بتحويل كافة بيانات جدول الرواتب بدون قيد او شرط  الى الجدول الجديد وحاولت ان ادرج شرط داخل الاستعلام على ان يكون التحديث حسب التاريخ المدخل في النموذج لم اوفق بنتيجة مرضية  .

ارفقت صور عن التحديث المظلوب مع الشكر والتقدير لكل من يتابع الموضوع.

update.rarFetching info...

Expand  

 

 

اتفضلى اختنا الكريمة

مرة من خلال اكواد احترافية
ومرة بطريقة بسيطة بالاستعلامات

تحديث بيانات جدول الى جدول اخر بشكل تراكمي .rar

[ابو جودي]

معلش كنت مستعجل شويه لانى كنت نازل على الشغل 

الطريقة الاولى بالاكواد
- تنبيه لو تاريخ استحقاق البداية غير موجود وكذلك لو تاريخ استحقاق النهاية 

- لو تم ادراج السجلات الجديده يظهر رسالة تفيد بنجاج الادارج وبعدد السجلات

- لو لم يتم الادراج يظهر رسالة تفيد بعدم تمام العملية بنجاح  

 

طبعا لو تم الضغط على زر الامر اكثر من مره لن تتكرر السجلات وذلك لانى عدلت على الجدولين

T2  ,   T3     انظرى الى المفاتيح التى تم عملها على الحقول 

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

[ام ناصر]

  في 31‏/5‏/2017 at 23:26, محمدنجار said:

::: تفضلي ارجو ان اكون فهمت طلبك . بالتوفيق

Update_UP.rarFetching info...

Expand  

اشكرك جدا استاذ محمد على المرور والمشاركة وسلمت الايادي على الطريقة التي تفضلت بها بالمثال

 المثال يقوم بالتحديث على اساس اختيارنا لـ ID  الموظف من القائمة المنسدلة , فند الضغط على زر تحديث البيانات لجدول T2، يحدث البيانات لسجل  واحد فقط للموظف  على الرغم من وجود بيانات خاصة به بتواريخ وبيانات مختلفة  في جدول الرواتب وكذلك من دون التقيد بالتواريخ المدخلة في النموذج  . هل من الممكن تعديل الاستعلام ليشمل التحديث جميع البيانات الخاصة بالموظف الذي تم اختيار الـ ID  الخاص به ؟

 

[ام ناصر]

  في 1‏/6‏/2017 at 05:41, ابا جودى said:

 

 

اتفضلى اختنا الكريمة

مرة من خلال اكواد احترافية
ومرة بطريقة بسيطة بالاستعلامات

تحديث بيانات جدول الى جدول اخر بشكل تراكمي .rarFetching info...

Expand  

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

ممكن توضيح  الكود  الذي استخدمته في تحديث البيانات لجدول  T2  لان الاستعلام الخاص بعمل نفس النتيجة لم يعمل في المثال وكذلك Modules (الصورة مرفقة ادناه)

وكذلك لو سمحت ممكن ما الغرض من استخدام المفاتيح التى تم عملها على الحقول في الجداول ؟

مع كل الشكر والتقدير ..

 

[husamwahab]

السلام عليكم

اعتذر من الاساتذة الافاضل استاذ محمد واستاذ ابا جودي واسمحوا لي بالمشاركة والذي حفزني على المشاركة (د.ع)

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

ملاحظة العمل يتم على نموذج (FEmployee)

 

update1.rar

[ام ناصر]

استاذي الفاضل محمد النجار  لقد توصلت لحل لما قد سألتك عن امكانية تعديل الاستعلام ليشمل التحديث جميع البيانات الخاصة بالموظف الذي تم اختيار الـ ID  الخاص به وذلك بتعديل الشرط الذي اورده الاستاذ ابا جودي مشكورا ً في امثال شاكرة تعاونكم  ربي يزيدكم علماً وتوفيق 

  في 31‏/5‏/2017 at 23:26, محمدنجار said:

::: تفضلي ارجو ان اكون فهمت طلبك . بالتوفيق

Update_UP.rarFetching info...

Expand  

 

update new.rar

[ام ناصر]

  في 2‏/6‏/2017 at 17:06, husamwahab said:

السلام عليكم

اعتذر من الاساتذة الافاضل استاذ محمد واستاذ ابا جودي واسمحوا لي بالمشاركة والذي حفزني على المشاركة (د.ع)

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

ملاحظة العمل يتم على نموذج (FEmployee)

 

update1.rarFetching info...

Expand  

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

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

[ابو جودي]

  في 2‏/6‏/2017 at 16:25, ام ناصر said:

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

ممكن توضيح  الكود  الذي استخدمته في تحديث البيانات لجدول  T2  لان الاستعلام الخاص بعمل نفس النتيجة لم يعمل في المثال وكذلك Modules (الصورة مرفقة ادناه)

وكذلك لو سمحت ممكن ما الغرض من استخدام المفاتيح التى تم عملها على الحقول في الجداول ؟

مع كل الشكر والتقدير ..

 

Expand  

* يتم الفصل بين المتغيرات بـ ( & vbcrlf & )
* معامل الربط ( & ) يستخدم للربط بين السلاسل النصية
* الثابت الحرفى ( vbcrlf ) يستخدم لإضافة رمز مفتاح الإدخال وسطر جديد.
* علامة الشرطة السُفلى (_) تستخدم لكتابة الكود على أكثر من سطر إذا كان سطر الكود طويل وذلك لتسهيل قراءة الكود بمعنى ان السطر التالى هو استكمال للسطر الحالى .

* Dim dcou_befor As Integer   الاعلان عن متغير بهذا الاسم وذلك لمعرفة عدد السجلات قبل الضغط على الزر وتحديث الجدول باضافة سجلات عن طريق الكود التالى

dcount_befor = DCount("*", "T2")

- dcou_befor  اسم المتغير الذى تم الاعلان عنه مسبقا
DCount("*", "T2")          عدد كل السجلات الموجوده فى الجدول  T2

*Dim dcou_after As Integer
مثل ما سبق شرحه ولكن هذه بعد الضغط على الزر وتحديث الجدول باضافة سجلات

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

[ابو جودي]

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

اختنا الكريمة @ام ناصر

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

تم بحمد الله تعالى الانتهاء من اعادة التكويد مرة اخرى بعد ترتيب افكارى وبفضل الله تعالى تمت التجربة بنجاح
الميزات

- فى حالة عدم وجود تاريخ بداية الفترة المستحقة تظهر رسالة تفيد بذلك
-فى حالة عدم وجود تاريخ نهاية الفترة المستحقة تظهر رسالة تفيد بذلك
-فى حالة ان التاريخ الذى تم ادخاله فى النموذج عن بداية الفترة المستحقة غير موجود فى جدول الــ  Salary  تظهر رساله ايضا تفيد بذلك
-فى حالة ان التاريخ الذى تم ادخاله فى النموذج عن نهاية الفترة المستحقة غير موجود فى جدول الــ  Salary  تظهر رساله ايضا تفيد بذلك

هذا فى وجود اخطاء تتعلق بتواريخ بداية وهاية الفترة المستحقة
وفى حالة عدم وجود اى اخطاء تتم عمليات الاضافة بنجاح


- تظهر رسالة تفيد بنجاح عملية الاضافة وعدد سجلات الاضافة
-فى حالة اضافة حسب كود موظف محدد لو لم يتم اختيار كود الموظف تظهر رسالة تفيد بذلك
وعندما يتم اختيار كود الموظف
تظهر رسالة سؤال هل تريد اضافة بيانات الموظف باسمه

 

اترككم مع التجربة واتمنى ان شاء الله تعالى ان تستمعوا بهذا العمل المتواضع

update v2.rarFetching info...

تم تعديل يونيو 3, 2017 بواسطه ابا جودى

[ام ناصر]

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

جزاك الله خير استاذي الفاضل  @ابا جودى

على تفضلك  علينا بشرح الكود السابق  اما التعديل عليه من قبلكم كان رائع سلمت الايادي, اسأل الله ان يزدكم من علمه وفضله ويوفقكم لكل خير .

[ابو جودي]

  في 3‏/6‏/2017 at 19:38, ام ناصر said:

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

جزاك الله خير استاذي الفاضل  @ابا جودى

على تفضلك  علينا بشرح الكود السابق  اما التعديل عليه من قبلكم كان رائع سلمت الايادي, اسأل الله ان يزدكم من علمه وفضله ويوفقكم لكل خير .

Expand  

وجزاكم اجر ما تمنيتم لى بل اكثر من فضل الله وكرمه ان شاء الله
والحمد لله تعالى الذى تتم بنعمته الصالحات الحمد لله الذى هدانا وما كمنا لنهتدى لولا ان هدانا الله عزوجل
سبحانك لا لم لنا الا ما علمتنا انك انت العليم

يملئ قلبى السرور حينما يسعد السائل عندما يجد طلبه من سؤاله تحقق واكثر الحمد لله تعالى