حدوث مشكلة عند توحيد التقرير

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

السلام عليكم اساتذتي الكرام مشكلتي وقعت عندما وحدت التقرير face5 عند الدخول بواسطة الزوجة يظهر اسمها ولقبها (حرم)او(ارملة) الشرط واضح اذ كان CheckBox=-1 حرم واذا كان يساوي 0 ارملة هنا المعاينة تمام ولكن المشكلة عند الدخول بواسطة الزوج او الابن تظهر حرم او ارملة فكيف يتم التعديل حتى لاتظهر عند هاذين الاخرين وشكرامشكلة التقرير الموحد.rar

[ابوخليل]

عليكم السلام

عملت لك متغير  للتفريق بين الزوجة  من جهة اذا قيمة المتغير = 0

وبين الزوج والابناء من جهة اخرى اذا قيمة المتغير = 1

هذا المتغير يتم اعطاؤه القيمة في نموذج A1 عند الاختيار

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

If testTypeGender = 1 Then
text1 = [Prenom1]
Else
text1 = [Prenom] & " " & [Nom] & " " & [ep] & " " & [Prenom1]
End If

 

مشكلة التقرير الموحد2.rar

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

4 ساعات مضت, ابوخليل said:

عملت لك متغير  للتفريق بين الزوجة  من جهة اذا قيمة المتغير = 0

4 ساعات مضت, ابوخليل said:

وبين الزوج والابناء من جهة اخرى اذا قيمة المتغير = 1

هذا المتغير الذي تم وضعه استاذ

  ' الزوجة
    If F1 = -1 Then
    testTypeGender = 0
    
    ' الزوج
    ElseIf Y1 = -1 Then
    testTypeGender = 1

 ' الابناء الاكبر من 18 سنة
    ElseIf T1 = -1 Then
    testTypeGender = 1

وفي التقرير

If testTypeGender = 1 Then
text1 = [Prenom] & " " & [Nom]
Else
text1 = [Prenom] & " " & [Nom] & " " & [ep] & " " & [Prenom1]
End If

صراحة طبقت كل هذا في النموذج الاصلي ولكن وجدت مشكلة عند الزوج ظهر التقرير مثلا  " الطاهر بن عتوس 1  حرم "

[Foksh]

أخي طاهر ، هل قمت بحجز المتغير الموجود داخل المديول name_report والذي =

Public testTypeGender As Byte

 

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

27 دقائق مضت, Foksh said:

أخي طاهر ، هل قمت بحجز المتغير الموجود داخل المديول name_report والذي =

Public testTypeGender As Byte

 

نعم تم الحجز استاذي ولكن بدون نتيجة صحيحة

علما اني نسخت الفورم A1 والتقرير Face5 في ملفي وبقيت النتيجة على حالها علما ان تعديل الاستاذ ابوخليل  على المرفق صحيح 100%

مانعرف اين يكمن المشكل

[Foksh]

8 دقائق مضت, طاهر اوفيسنا said:

مانعرف اين يكمن المشكل

لا اعلم اين المشكلة ، ولكن انظر النتيجة من مرفق الأستاذ @ابوخليل

 

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

7 دقائق مضت, Foksh said:

لا اعلم اين المشكلة ، ولكن انظر النتيجة من مرفق الأستاذ @ابوخليل

 

الخلل عندي استاذ سأتمعنه غدا خطوة بخطوة بحول الله

[Foksh]

52 دقائق مضت, طاهر اوفيسنا said:

الخلل عندي استاذ سأتمعنه غدا خطوة بخطوة بحول الله

بعد التدقيق في فكرة أستاذي ومعلمي @ابوخليل ، تبين لي ان المتغير لا يتم حجزه بشكل مناسب قبل فتح التقرير ، وهنا خطر لي تعديل بسيط بحيث نعتمد على قيمة CheckBox في النموذج A1 والذي هو مفتاح الربط في فكرتي ، بحيث اذا كان فارغاً يتم تعديل القيمة كما فعل أستاذي في فكرته ، وإلا فيتم عرض النص الأصلي ( بين عرض اسم الزوج أو الزوجة )

جرب تعديل حدث عند التحميل للتقرير بهذا الأسلوب :-

 

Private Sub Report_Load()

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

'المعلومات الشخصية
Me.Nom.Value = TempVars("Nom")
Me.Prenom.Value = TempVars("Prenom")
Me.Date_Naiss.Value = TempVars("Date_Naiss")
Me.Lieu_Naiss.Value = TempVars("Lieu_Naiss")
Me.Nom_Per.Value = TempVars("Nom_Per")
Me.Nom_Mer.Value = TempVars("Nom_Mer")
Me.CheckBox.Value = TempVars("CheckBox")
Me.Prenom1.Value = TempVars("Prenom1")
Me.ep = IIf(([CheckBox]) = 0, "أرملة", "حرم")

'الشاهد الاول
Me.C1.Value = TempVars("C1")
Me.N1.Value = TempVars("N1")
Me.d1.Value = TempVars("D1")
Me.L1.Value = TempVars("L1")
'الشاهد الثاني
Me.C2.Value = TempVars("C2")
Me.N2.Value = TempVars("N2")
Me.D2.Value = TempVars("D2")
Me.L2.Value = TempVars("L2")
''السكن وبلدية الاقامة
Me.N4.Value = TempVars("N4")
Me.N5.Value = TempVars("N5")

If Not IsNull(Forms!a1!CheckBox) Or (Forms!a1!CheckBox) <> "" Then
text1 = [Prenom] & " " & [Nom] & " " & [ep] & " " & [Prenom1]
Else
text1 = [Prenom]
End If

End Sub

 

تم تعديل منذ 4 ساعات بواسطه Foksh
تعديل الجملة الشرطية بشكل صحيح