rayan_saad قام بنشر نوفمبر 11, 2015 قام بنشر نوفمبر 11, 2015 السلام عليكم عندي مشكلة وهي ان الطباعة خلال النموذج تتم بشكل طبيعي ولكن الطباعة من خلال هذا النموذج في نموذج فرعي لاتتم الطباعة وتخرج رسالة خلل في الاستعلام المبني ومرفق نموذج يوضح المشكلة http://up.harajgulf.com/do.php?id=361378 رابط اخر http://gulf-up.com/do.php?id=24118
jjafferr قام بنشر نوفمبر 11, 2015 قام بنشر نوفمبر 11, 2015 وعليكم السلام المشكلة عندك في الشرط في الاستعلام 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 1
rayan_saad قام بنشر نوفمبر 11, 2015 الكاتب قام بنشر نوفمبر 11, 2015 بارك الله فيك اخي جعفر نجرب نعدل ونشوف اصلح الله لك النية والذرية اخي جعفر
عبدالرحمن هاشم قام بنشر نوفمبر 11, 2015 قام بنشر نوفمبر 11, 2015 جزاك الله خيرا أستاذنا الفاضل جعفر تعجبني جدا طريقتك في الشرح بارك الله فيك 1
jjafferr قام بنشر نوفمبر 11, 2015 قام بنشر نوفمبر 11, 2015 49 دقائق مضت, عبدالرحمن هاشم said: جزاك الله خيرا أستاذنا الفاضل جعفر تعجبني جدا طريقتك في الشرح بارك الله فيك حياك الله أخوي عبدالرحمن
rayan_saad قام بنشر نوفمبر 22, 2015 الكاتب قام بنشر نوفمبر 22, 2015 السلام عليكم اقتباس فالشرط يأخذ قيمته من الحقل mol في النموذج moaa ، فلو كان الشرط اكثر من قيمة في نفس النموذج مثلا sss الشرط الاول و yyyyالشرط الثاني فكيف الطريقة جزاكم الله خير الجزاء
jjafferr قام بنشر نوفمبر 22, 2015 قام بنشر نوفمبر 22, 2015 وعليكم السلام بدل name فقط "[name]='" & Me.mol & "'" تستطيع ان تضيف الشروط التي تريد ، بمراعاة ان الحقل نص او رقم او تاريخ يعني اخبرنا ماهو sss و yyyy ومن ثم نقدر نعدل لك الكود ، بس الافضل ان ترفق مرفق آخر به قيم الحقول الجديدة جعفر
rayan_saad قام بنشر نوفمبر 23, 2015 الكاتب قام بنشر نوفمبر 23, 2015 ما استطيع ارفاق نموذج لوجود مشكلة عندي بالجهاز هل هكذا ينفع نسخ ولصق متتالي للكود لاني اريد ان يختار من القائمتين اجباري ولا ينفذ الامر الا بكلا الاختيارين اقتباس 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 قام بنشر نوفمبر 23, 2015 قام بنشر نوفمبر 23, 2015 السلام عليكم 1 ساعه مضت, rayan_saad said: هل هكذا ينفع نسخ ولصق متتالي للكود . نعم ، ولكن بمراعاة ان القيم نص او ارقام : هكذا اذا كانت قيمة name نص "[name]='" & Me.mol & "'" وهكذا اذا كانت قيمة name رقم "[name]=" & Me.mol جعفر
rayan_saad قام بنشر نوفمبر 23, 2015 الكاتب قام بنشر نوفمبر 23, 2015 نفع في انه يرفض الا باختيار من القائمة الاولى ولكن يعرض التقرير بدون ان نختار من القائمة الثانية حيث القائمة الاولى نص والثانية رقم 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 قام بنشر نوفمبر 23, 2015 قام بنشر نوفمبر 23, 2015 عفوا الظاهر ما فهمت قصدك يعني المستخدم لازم يختار من القائمتين ، ثم يفتح التقرير؟ ويفتح التقرير على اساس الحقلين alsaf و fsl ؟ جعفر
rayan_saad قام بنشر نوفمبر 23, 2015 الكاتب قام بنشر نوفمبر 23, 2015 صحيح اخي جعفر لابد من انيختار من القامتين والا لايعرض له التقرير
jjafferr قام بنشر نوفمبر 23, 2015 قام بنشر نوفمبر 23, 2015 تفضل 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 قام بنشر نوفمبر 24, 2015 الكاتب قام بنشر نوفمبر 24, 2015 اخي جعفر يرفض الطباعة ويتوقف هناك خلل في الكود شاهد الصورة المرفقة
jjafferr قام بنشر نوفمبر 24, 2015 قام بنشر نوفمبر 24, 2015 هل يوجد سجل بهذه المعلومات؟ هذه الرسالة عادة تظهر إذا ما في بيانات في التقرير. جعفر واذا كانت المعلومات موجودة ، فرجاء إرفاق برنامجك للنظر فيه. جعفر
rayan_saad قام بنشر نوفمبر 24, 2015 الكاتب قام بنشر نوفمبر 24, 2015 المشكلة في هذه القاعدة والنموذج هو mm11 واقدم جزيل الشكر والتقدير لك اخي جعفر sart.rar
jjafferr قام بنشر نوفمبر 24, 2015 قام بنشر نوفمبر 24, 2015 وعليكم السلام انا قلت في 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 قام بنشر نوفمبر 26, 2015 الكاتب قام بنشر نوفمبر 26, 2015 بارك الله فيك اخي جعفر وفعلا كانت رقمية وعدلتها ولم انتبه جزاك الله خير الجزاء
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.