مشكلة طباعة مع النموذج الفرعي

[rayan_saad]

السلام عليكم

عندي مشكلة وهي ان الطباعة خلال النموذج تتم بشكل طبيعي

ولكن الطباعة من خلال  هذا النموذج في نموذج فرعي 

لاتتم الطباعة وتخرج رسالة خلل في الاستعلام المبني 

 

ومرفق نموذج يوضح المشكلة 

http://up.harajgulf.com/do.php?id=361378

رابط اخر

http://gulf-up.com/do.php?id=24118

[jjafferr]

وعليكم السلام

 

المشكلة عندك في الشرط في الاستعلام klm

.

فالشرط يأخذ قيمته من الحقل mol في النموذج moaa ،

فالنموذج moaa عندما يكون مفتوحا مباشرة ، فالاستعلام يعمل ، ولكن عندما يكون :

.

النموذج moaa داخل النموذج mm ، فهنا تحدث المشكلة ، فالشرط في الاستعلام في هذه الحالة يجب ان يتغير الى Forms!mm!moaa!mol (هاي ماحسبنا لها حساب )

 

لذلك ، واذا اردنا التقرير يُفتح من كل النماذج ، فطريقتي هي:

1. نحذف الشرط من الاستعلام:

.

2. عملت زر جديد في النموذج:

.

وكود فتح التقرير هو:

Private Sub cmd_Print_Preview_entema_Click()

    If Len(Me.mol & "") = 0 Then
        MsgBox "Please Select a name first"
        Exit Sub
    Else
        DoCmd.OpenReport "entema", acViewPreview, , "[name]='" & Me.mol & "'"
    End If
    
End Sub

 

 

جعفر

255.saa.accdb.zip

[rayan_saad]

بارك الله فيك اخي جعفر 

نجرب نعدل ونشوف

اصلح الله لك النية والذرية اخي جعفر

[عبدالرحمن هاشم]

جزاك الله خيرا أستاذنا الفاضل جعفر 

تعجبني جدا طريقتك في الشرح بارك الله فيك 

[jjafferr]

49 دقائق مضت, عبدالرحمن هاشم said:

جزاك الله خيرا أستاذنا الفاضل جعفر 

تعجبني جدا طريقتك في الشرح بارك الله فيك 

حياك الله أخوي عبدالرحمن 

[rayan_saad]

السلام عليكم

اقتباس

فالشرط يأخذ قيمته من الحقل mol في النموذج moaa ،

فلو كان الشرط اكثر من قيمة في نفس النموذج 

مثلا sss الشرط الاول و yyyyالشرط الثاني 

فكيف الطريقة جزاكم الله خير الجزاء

 

[jjafferr]

وعليكم السلام 

 

بدل name فقط

"[name]='" & Me.mol & "'"

تستطيع ان تضيف الشروط التي تريد ، بمراعاة ان الحقل نص او رقم او تاريخ 

 

يعني اخبرنا ماهو sss و yyyy ومن ثم نقدر نعدل لك الكود ، بس الافضل ان ترفق مرفق آخر به قيم الحقول الجديدة 

 

 

جعفر

[rayan_saad]

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

هل هكذا ينفع نسخ ولصق متتالي للكود 

لاني اريد ان يختار من القائمتين اجباري ولا ينفذ الامر الا بكلا الاختيارين

 

اقتباس

 

If Len(Me.dd & "") = 0 Then
        MsgBox "اختر اسم من القائمة"
        Exit Sub
    Else
        DoCmd.OpenReport "tgweemmstmr", acViewPreview, , "[alsaf]='" & Me.dd & "'"
      If Len(Me.sf & "") = 0 Then
        MsgBox "اختر  من  القائمة"
        Exit Sub
    Else

        DoCmd.OpenReport "tgweemmstmr", acViewPreview, , "[fsl]='" & Me.sf & "'"

    End If
End Sub

 

 

 

[jjafferr]

السلام عليكم 

 

1 ساعه مضت, rayan_saad said:

هل هكذا ينفع نسخ ولصق متتالي للكود 

.

نعم ، ولكن بمراعاة ان القيم نص او ارقام :

هكذا اذا كانت قيمة name نص
"[name]='" & Me.mol & "'"

وهكذا اذا كانت قيمة name رقم
"[name]=" & Me.mol 

 

 

جعفر

 

 

[rayan_saad]

نفع في انه يرفض الا باختيار من القائمة الاولى ولكن يعرض التقرير بدون ان نختار من القائمة الثانية 

حيث القائمة الاولى نص والثانية رقم 

 If Len(Me.dd & "") = 0 Then
        MsgBox "اختر اسم او صف من القائمة"
        Exit Sub
    Else
        DoCmd.OpenReport "tgweemmstmr", acViewPreview, , "[alsaf]='" & Me.dd & "'"
    
     End If 
      If Len(Me.sf & "") = 0 Then
        MsgBox "اختر اسم او صف من القائمة"
        Exit Sub
    Else
        DoCmd.OpenReport "tgweemmstmr", acViewPreview, , "[fsl]=" & Me.sf تم التعديل على الحقل رقمي

ولكن يواصل بعرض التقرير بدون التوقف لاختيار الحقل الثاني والمسمى sf من الاستعلام 

 

    End If
End Sub
 

[jjafferr]

عفوا الظاهر ما فهمت قصدك 

 

يعني المستخدم لازم يختار من القائمتين ، ثم يفتح التقرير؟

ويفتح التقرير على اساس الحقلين alsaf و fsl ؟

 

 

جعفر

[rayan_saad]

صحيح اخي جعفر 

لابد من انيختار من القامتين والا لايعرض له التقرير

[jjafferr]

تفضل 

    If Len(Me.dd & "") = 0 Or Len(Me.sf & "") = 0 Then
        MsgBox "اختر اسم من القائمة"
        Exit Sub
    Else
        
        DoCmd.OpenReport "tgweemmstmr", acViewPreview, , "[alsaf]='" & Me.dd & "' And [fsl]=" & Me.sf
    End If
   

 

 

جعفر

[rayan_saad]

اخي جعفر 

يرفض الطباعة ويتوقف هناك خلل في الكود 

شاهد الصورة المرفقة

 

[jjafferr]

هل يوجد سجل بهذه المعلومات؟

 

هذه الرسالة عادة تظهر إذا ما في بيانات في التقرير.

 

جعفر

 

 

واذا كانت المعلومات موجودة ، فرجاء إرفاق برنامجك للنظر فيه.

 

جعفر

[rayan_saad]

المشكلة في هذه القاعدة والنموذج هو mm11

واقدم جزيل الشكر والتقدير لك اخي جعفر

 

sart.rar

[jjafferr]

وعليكم السلام 

 

انا قلت

في 11/22/2015, 12:37:02, jjafferr said:

تستطيع ان تضيف الشروط التي تريد ، بمراعاة ان الحقل نص او رقم او تاريخ 

.

انت قلت

في 11/23/2015, 12:34:35, rayan_saad said:

حيث القائمة الاولى (alsaf) نص والثانية (fsl) رقم 

.

عليه ، اصبحت المعادلة:

في 11/23/2015, 1:14:25, jjafferr said:

DoCmd.OpenReport "tgweemmstmr", acViewPreview, , "[alsaf]='" & Me.dd & "' And [fsl]=" & Me.sf

.

والان الى برنامجك:

.

.

والطريقة الوحيدة للتأكد 100% هو الرجوع للجدول ومعرفة نوع الحقل:

.

يعني fsl نص وليس رقم

 

يالله نرجع نصلح المعادلة في النموذج ، ونخلي fsl نص بدل مايكون رقم:

.

والنتيجة

.

 

جعفر

277.sart.accdb.zip

[rayan_saad]

بارك الله فيك اخي جعفر 

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

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