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

[nabilbibo2255]

السلام عليكم اخواني الاعضاء الافاضل 

عندي نموذج للتذكير بالموظفين الذين تنتهي عقودهم اريد عندما تاتني الرسالة التذكير عندما اضغط على نعم يفتح نموذج الموظفين المنتهية عقودهم وهو fin_ssolde و عند اختيار لا يفتح النموذ ج الرئيسي frm_F20

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

 

 

تم تعديل الخميس at 10:12 بواسطه nabilbibo2255

[Foksh]

وعليكم السلام ورحمة الله وبركاته أخي @nabilbibo2255 ، وأهلاً وسهلاً بك معنا في اسرة هذا المنتدى الكبير .

أولاً أدعوك للمساهمة في تطبيق أساسيات وقوانين المنتدى عند نشر أي موضوع ، بحيث :-

1. يكون العنوان صريح ودال على المطلوب .
2. الشرح الوافي الكافي الشافي للمشكلة .
3. ارفاق ملف مرفق يساعد ويدعم في إيجاد حل على أرض الواقع .
4. لا تحاول استخدام مسميات الحقول والعناصر في المشروع بأسماء عربية أو ذات رموز أو أرقام فقط .

أما فيما يتعلق بسؤالك ، فأنصحك باستعمال علامات التكويد <> لوضع الكود بدلاً من الصورة ، ليسهل قراءته والتعامل معه ممن يحاول ان يساعدك في الحل .
لاحظت ان الكود يعمل بشكل سليم إلى حد ما ، ولكن المشكلة تكمن في الشروط التي على أساسها سيتم فتح النموذج .

 

Private Sub Form_Load()
    On Error Resume Next
    Dim xx As Integer
    xx = Nz(DCount("[IDEmp]", "fin_ssolde"), 0)
    If xx > 0 Then
        Beep
        If MsgBox("هناك " & xx & " موظف(ين) انتهت عقودهم. هل ترغب في عرض التفاصيل؟", _
                  vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then
            DoCmd.OpenForm "fin_ssolde", acNormal
        Else
            DoCmd.OpenForm "frm_F20", acNormal
        End If
    Else
        DoCmd.OpenForm "frm_F20", acNormal
    End If
End Sub

 

حاول وأخبرنا بالنتيجة .. 

[kkhalifa1960]

تفضل أخي @nabilbibo2255 حسب مافهمت . ووافمي بالرد .

DD12-2024-1.rar

[ابوخليل]

منذ ساعه, kkhalifa1960 said:

تفضل أخي @nabilbibo2255 حسب مافهمت . ووافمي بالرد .

DD12-2024-1.rar 38.1 kB · 0 downloads

الحمد لله على سلامتك اخي خليفة  .. وعودا حميدا 

[kkhalifa1960]

حبيي في الله @ابوخليل جزاك الله خير 

[moho58]

2 ساعات مضت, kkhalifa1960 said:

تفضل أخي @nabilbibo2255 حسب مافهمت . ووافمي بالرد .

DD12-2024-1.rar 38.1 kB · 1 download

عودة ميمونة الرجل الطيب @kkhalifa1960

الحمد لله على السلامة

[nabilbibo2255]

15 ساعات مضت, kkhalifa1960 said:

تفضل أخي @nabilbibo2255 حسب مافهمت . ووافمي بالرد .

DD12-2024-1.rar 38.1 kB · 2 downloads

بارك الله فيك اخي هذا المطلوب 

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

[Foksh]

16 ساعات مضت, kkhalifa1960 said:

تفضل أخي @nabilbibo2255 حسب مافهمت . ووافمي بالرد .

DD12-2024-1.rar 38.1 kB · 5 downloads

حمد لله على سلامتك أستاذ خليفة . ونسأل الله أن تكون بصحة وعافية 💐

[kkhalifa1960]

6 ساعات مضت, nabilbibo2255 said:

ارك الله فيك اخي هذا المطلوب 

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

تفضل أخي . واذا كان هذا اضغط على أفضل اجابة .

DD12-2024-1-1.rar

تم تعديل الأحد at 15:27 بواسطه kkhalifa1960

[nabilbibo2255]

بارك الله فيك اخي  kkhalifa1960 جزاك الله كل خير