مشكلة في تنفيذ دالة IF الشرطية عند إختيار الابن

[طاهر اوفيسنا]

السلام عليكم اساتذني الكرام

نتمنى ان تكون صحتكم بالف خير يارب

بعد غياب طويل عن المنتدى لظروف ما

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

حيث عند مربع إختيار الإبن  T1 = -1 في الفورم A2  بعد اختيار الزوج والزوجة والابن من الفورم الرئيسي Search_Frm

دالة معرفة العمر 

Dim Cr As String
        Cr = DLookup("anneNes", "Tbl_Enf", "NF =" & Me.NF)
        Cr1 = Year(Date) - Cr

 الشرط 01-  الابن اكبر من 17 سنة ونختار  في  Reporte_Title احدى :  "تصريح بالبطالة";"تصريح بالشرف"

يفتح التقرير Face4T   ولا يفتح التقرير face10

بظهزر ميساج  عند المنع " اي عند  فتح face10 "

MsgBox " تنبيه ! هذا الطفل إستوفى 18 سنة "

الشرط 02- الابن اقل او يساوي 17 سنة  ونحتار في   Reporte_Title  "تصريح أبوي لقاصر" 

يفتح التقرير face10 ولا يفتح التقرير Face4T

 

بظهزر ميساج  عند المنع " اي عند  فتح Face4T"

MsgBox " تنبيه ! هذا الطفل لم يستوفى 18 سنة "

       ' (الإبن (ة
    ElseIf T1 = -1 Then
        If Me.Reporte_Title = Me.Reporte_Title.ItemData(0) Then
        Rept2 = "   أصـرح بشرفـي بأنني عاطل(ة)عــن العمـل لا أمارس أي نشاط مأجور في القطاع العام أو الخاص"
    ElseIf Me.Reporte_Title = Me.Reporte_Title.ItemData(1) Then
        Rept2 = "أصـرح بشرفـي بأنني لأمارس اي نشاط مهني او تجاري"
    End If
    
    Rept1 = Me.Reporte_Title
    TempVars("Reporte_Title") = Reporte_Title.Value
    TempVars("C1") = C1.Value
    TempVars("C2") = C2.Value
    TempVars("C3") = C3.Value
    TempVars("N4") = N4.Value
    TempVars("N5") = N5.Value
    TempVars("Reporte_Title1") = Reporte_Title1.Value

    stDocName = "Face4t"
    DoCmd.OpenReport stDocName, acPreview
'    Abou_Taha (stDocName)
    DoCmd.Close acForm, "A2"
    

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

9acer.rar

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

[kkhalifa1960]

تفضل استاذ @طاهر اوفيسنا أولاً عوداً حميداً ................. تم عمل الازم  حسب مافهمت .

لكن التقرير (Face4) يعمل تمام  أما التقرير (Face10) محتاج منك بعض الاصلاح والترتيب  اليك المرفق . ووافني بالرد .

9acer-1.rar

[طاهر اوفيسنا]

37 دقائق مضت, kkhalifa1960 said:

تفضل استاذ @طاهر اوفيسنا أولاً عوداً حميداً ................. تم عمل الازم  حسب مافهمت .

لكن التقرير (Face4) يعمل تمام  أما التقرير (Face10) محتاج منك بعض الاصلاح والترتيب  اليك المرفق . ووافني بالرد .

شكرا أستاذي الكريم

التعديل في محله

اعرف ان التقرير Face10 يلزمه اصلاح ترتيب وهذا سهل 

01- ولكن استاذ مامشكلة عدم ظهور معلومات  Rep1 و Rep2 في التقرير Face4T

02- يوجد مشكلة عند فتح التقرير عند الزوج والزوجة

مع العلم ان العمر مقيد للأبناء فقط يعني دالة حساب العمر تكون عند T1 = -1

3- هل يمكن اختفاء "تصريح أبوي لقاصر"  عند احتيار الزوجين واظهاره  عند الابناء الي اقل او يساوي من 17 سنة

و شكرا استاذي

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

[kkhalifa1960]

اليك المرفق بعد التعديل بالطلب 3  أما الطلبان 1 و 2   عدل استعلامات التقارير لينتج طلبك .

9acer-2.rar

[طاهر اوفيسنا]

10 دقائق مضت, kkhalifa1960 said:

اليك المرفق بعد التعديل بالطلب 3

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

*- صحيح قمت بالاختفاء كما طلب عند الابناء من 18 فما فوق ولكن فتح التقاير لم تتم 

14 دقائق مضت, kkhalifa1960 said:

أما الطلبان 1 و 2   عدل استعلامات التقارير لينتج طلبك

1- مشكلتها في دالة العمر لان الزوجين لاتشملهما دالة Cr1

2- في نظري ليس له علاقة بالاستعلام عند التقرير بل تكون عبر دالة IF عند اختيار  Reporte_Title في الفورم A2  تظهر في التقرير في مربع نص غير منظم  REP1 

وكذلك  REP2 تظهربأسفل التقرير  عند الشرط وفق لما يلي :

        If Me.Reporte_Title = "تصريح بالبطالة" Then
            Rept2 = "   أصـرح بشرفـي بأنني عاطلة عــن العمـل لا أمارس أي نشاط مأجور في القطاع العام أو الخاص"
        ElseIf Me.Reporte_Title = "تصريح بالشرف" Then
            Rept2 = "أصـرح بشرفـي بأنني لأمارس اي نشاط مهني او تجاري"
        End If

وفي حدث التقرير

Private Sub Report_Load()

Me.Rep1.Value = Rept1
Me.Rep2.Value = Rept2

End Sub

 

[kkhalifa1960]

ابشر  وعطني فرصة لباكر .

[طاهر اوفيسنا]

11 دقائق مضت, kkhalifa1960 said:

ابشر  وعطني فرصة لباكر

ان شاء الله استاذي

مع مرعاة UpdateComboBox لاتكون هنا

Private Sub F1_AfterUpdate()
'    UpdateComboBox
End Sub

Private Sub Y1_AfterUpdate()
'    UpdateComboBox
End Sub

Private Sub T1_AfterUpdate()
'    UpdateComboBox
End Sub

 تكون عند 

Private Sub SearchListZy_Click()
    UpdateComboBox

Private Sub SearchListZT_Click()
     UpdateComboBox

Private Sub SearchListZ_Click()
    UpdateComboBox

 

[طاهر اوفيسنا]

استاذ حاول التعديل على النسخة هذه

وخاصة المطلب  01

 

 

 

9acer3.rar

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