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

[ام ناصر]

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

اساتذتي الافاضل لدي قاعدة بيانات فيها جدولين احدهما للموظفين (persons) والاخر لرواتب الموظفين(salary)

المطلوب هو كيفية عمل رسالة تنبيه للمستخدم تتضمن عدد واسماء الموظفين الغير مدرجة اسمائهم لجدول الرواتب (salary) بالاعتماد طبعا على كود الموظف .

نموذج عن المثال مرفق ادناه ..

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

bmn.rar

[Shivan Rekany]

الان, ام ناصر said:

المطلوب هو كيفية عمل رسالة تنبيه للمستخدم تتضمن عدد واسماء الموظفين الغير مدرجة اسمائهم لجدول الرواتب (salary) بالاعتماد طبعا على كود الموظف .

نموذج عن المثال مرفق ادناه ..

اليك هذا الحل لعل يفيدك

اولا عملت استعلام للاسماء اللي في جدول الموظفين وليس موجودين في جدول الرواتب

وهذا هو الاستعلام

SELECT persons.*
FROM persons LEFT JOIN Salary ON persons.[EmpNumber] = Salary.[EmpNumber]
WHERE (((Salary.EmpNumber) Is Null));

وعملت نموذج عليه

واستخدمت هذا الكود لزر 

Private Sub Command0_Click()
Dim MyCount As Integer
    MyCount = DCount("*", "personsWithoutMatchingSalary")
        If MsgBox("هناك ( " & MyCount & " ) اسماء لم يكن في جدول الرواتب .. هل تريد ان تنظر الى اسماءهم ", vbYesNo, "تنبيه") = vbYes Then
            DoCmd.OpenForm "personsWithoutMatchingSalary", acNormal
        End If
End Sub

اليكي المرفق

 

bmn.rar

تم تعديل يونيو 19, 2017 بواسطه Shivan Rekany

[ام ناصر]

سلمت الايادي استاذ @Shivan Rekany وجزاك الله خير وزادك من علمه وفضله .

[الحلبي]

والله يا استاد شيفان انت استاد

جزاك الله خيرا لك كل تقدير 

[عبد الفتاح كيرة]

شغل جميل أستاذ @Shivan Rekany

[Shivan Rekany]

الان, ام ناصر said:

سلمت الايادي استاذ @Shivan Rekany 

شكرا اختي 

الان, ام ناصر said:

وجزاك الله خير وزادك من علمه وفضله

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

الان, حلبي said:

والله يا استاد شيفان انت استاد

جزاك الله خيرا لك كل تقدير 

شكرا لك اخي الحبيب الحلبي 

الان, عبد الفتاح كيرة said:

شغل جميل أستاذ @Shivan Rekany

شكرا لك استاذي الحبيب نتعلم منكم 

[ام ناصر]

السلام عليكم استاذ @Shivan Rekany

كيف يمكنني الاستفادة من استخدام هذا الاستعلام ضمن شرط اي اذا وجدت اسماء لموظفين غير مدرجين ضمن هذا الجدول اقوم باضافتهم او تحديث بياناتهم  بجمل Insert او  Update .

 

[Shivan Rekany]

3 ساعات مضت, ام ناصر said:

السلام عليكم استاذ @Shivan Rekany

كيف يمكنني الاستفادة من استخدام هذا الاستعلام ضمن شرط اي اذا وجدت اسماء لموظفين غير مدرجين ضمن هذا الجدول اقوم باضافتهم او تحديث بياناتهم  بجمل Insert او  Update .

 

اعمل استعلام الحاقی

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

عيد سعيد

تم تعديل يونيو 24, 2017 بواسطه Shivan Rekany

[الحلبي]

لانشغال استاد / شيفان 

انظري المرفق الاخت الفاضلة

بعد فتح النمودج لمعاينة الاسماء الغير مضافة اغلق النمودج 

تري رسالة تسأل هل تريد الاضافة وعند الموافقة علي الاضافة

يضيف الاسماء

يارب يكون هو المطلوب مجرد محاولة مني فأنا مبتدأ

انتهز الفرصة واقول لجميع اخواننا في المنتدي بمناسبة عيد الفطر غدا

كل سنة والجميع بخير وتقبل صيامكم ان شاء الله 

bmn.rar

[ام ناصر]

في 6/24/2017 at 21:44, Shivan Rekany said:

اعمل استعلام الحاقی

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

عيد سعيد

 

في 6/25/2017 at 00:26, حلبي said:

لانشغال استاد / شيفان 

انظري المرفق الاخت الفاضلة

بعد فتح النمودج لمعاينة الاسماء الغير مضافة اغلق النمودج 

تري رسالة تسأل هل تريد الاضافة وعند الموافقة علي الاضافة

يضيف الاسماء

يارب يكون هو المطلوب مجرد محاولة مني فأنا مبتدأ

انتهز الفرصة واقول لجميع اخواننا في المنتدي بمناسبة عيد الفطر غدا

كل سنة والجميع بخير وتقبل صيامكم ان شاء الله 

bmn.rar

شكرا جزيلا للرد 

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

وكل عام وانتم واعضاء المنتدى الكرام بألف خير .

[salma93]

السلام عليكم 
ممكن كود لنفس الفكرة بس على sql