alcasir قام بنشر يناير 1, 2011 قام بنشر يناير 1, 2011 السلام عليكم اتمنى المشاركة ولكم جزيل الشكر عندي برنامج استخدم في طباعة السجل الحالي...والتقرير عبارة عن اشعار تصريح زراعي ارغب في طباعة جميع التصاريح التي لها حقل قيد اصدار مرة واحدة بشرط ان ياخذ الاشعار اثناء الطباعة نفس التصميم التي تصميمه مسبقا. ( حقل قيد الاصدار اسمه printed وهو موجود في السجل الرئيسي بالنموذج) وتوجد عندي 3 اشعارات للتصاريح الزراعية. وصصمت كود معاينة السجل الحالى في النموذج يتضمن الاشعارات الاتية: واحد يسمى (permit for 10 records) وهذا التقرير يظهر تلقائيا عنما يكون عدد السجلات الفرعية المسجل بالنموذج والمرتبطة بالسجل الرئيسي اقل من 10 سجلات. وهناك تقريران اخران (permit see the attachment), (permit see the attachment) وهذان الاشعارين يظهران اذا كان عدد السجلات الفرعية المسجلة بالنموذج والمرتبطة بالسجل الرئيسي اكبر من 10 سجلات. فاذا على سبيل المثال عندي 10 تصاريح زراعية (سجلات رئيسية) ويوجد حقل قيد الاصدار في السجل الرئيسي......كيف لي ان اطبع جميع السجلات او الاشعارات ال 10 مرة واحدة التي تحمل حقل قيد اصدار ...مع التنبية ان ياخذ كل تصريح التصميم الخاص به... واريد عند طباعة جميع السجلات التي تحمل حقل قيد اصدار ان تتغير قيمة الحقل (printed) تم الضغط عليه تتغير قيمة الحقل printed الى تم اصداره. اسف جدا على الشرح المطول ...بس اتمنى وصلت الفكرة المرفق موضح اكثر مقصدي شاكر لكم pending.rar
alcasir قام بنشر يناير 2, 2011 الكاتب قام بنشر يناير 2, 2011 علما عندما كنت استخدم تقرير واحد ...كنت استخدم كود لطباعة جميع السجلات التي لها حقل قيد اصدار هو كالاتي: Dim stLinkCriteria As String Dim rs As Recordset Me.printed = "تم اصداره" Set rs = CurrentDb.OpenRecordset("Quary", dbOpenDynaset) rs.MoveLast rs.MoveFirst If rs.RecordCount = 0 Then MsgBox "لا توجد سجلات قيد الاصدار" Exit Sub End If For i = 1 To rs.RecordCount stLinkCriteria = "[id] =" & rs![id] DoCmd.OpenReport "permit 10 records", acViewNormal, , stLinkCriteria rs.Edit rs!printed="تم اصداره" rs.Update rs.MoveNext Me.Dirty = True Next فالحين المشكلة عند تقريرين اخرين ....كيف لي ان استخدم هذا الكود في طباعة جميع الاشعارات التي لها حقل قيد اصدار..!! الموضوع مهم جدا بالنسبة لي ارجو واتمنى المشاركة ولكم جزيل الشكر والتقدير Quary : هو استعلام لجميع السجلات التي لها حقل قيد اصدار
alcasir قام بنشر يناير 3, 2011 الكاتب قام بنشر يناير 3, 2011 إلا أجد أحد يفيدني في هذا الموضوع أين مشرفي المنتدى الأعزاء أرجو المشاركة
am4net قام بنشر يناير 3, 2011 قام بنشر يناير 3, 2011 بسمه تعالى وبه نستعين اخي الكريم الصبر جميل ( وبشر الصابرين ) تفضل المرفقات قد يعجبك التعديل. مع التحية pending3.rar
alcasir قام بنشر يناير 4, 2011 الكاتب قام بنشر يناير 4, 2011 اخي العزيز am4net شاكر لك على المشاركة معي ولكن الذي اردته هو ان اطبع جميع التصاريح التي لها حقل قيد اصدار مرة واحدة بضغطة زر واحدة..... التعديل الذي تفضلت به هو لابد ان اذهب لكل تصريح او سجل واضغط زر اطبع التصريح الذي تفضلت به. اريد عندما اضغط على زر اطبع التصريح ان يطبع لي جميع الاشعارات التي لحا حقل قيد اصدار....بدون الحاجة للذهاب الى كل سجل واعمل طباعة.. اتمنى وصلت الفكرة... شاكر ومقدر لك جدا تعاونك معي اخيك / alcasir
am4net قام بنشر يناير 5, 2011 قام بنشر يناير 5, 2011 بسمه تعالى وبه نستعين اخي الكريم اريد عندما اضغط على زر اطبع التصريح ان يطبع لي جميع الاشعارات التي لحا حقل قيد اصدار....بدون الحاجة للذهاب الى كل سجل واعمل طباعة.. اتمنى وصلت الفكرة... ** يمكنك عمل استعلام يشمل البيانات المطلوبة . ( ضع معيار - قيد الاصدار - ) ** اجعل الاستعلام مصدر للتقرير. قد يكون الكلام سهل جدا ... اخي الكريم هناك سؤال : هل استطيع استبدال الاكواد التي يحتويها النموذج . هل استطيع استبدال مصدر التقرير .. ( اقصد من ذلك ان اغير برنامجك حسب فهمي ومعلوماتي ). وفقك الله .. وانا بالانتظار
alcasir قام بنشر يناير 5, 2011 الكاتب قام بنشر يناير 5, 2011 اخي العزيز شاكر على التواصل.... ممكن لسه ما وصلت للفكرة اللي انا اريدها.... شكل الاشعار الذي كنت استخدمه للطباعة هو طباعة السجل الحالي....... لقد عملت استعلام ووضعت معيار قيد الاصدار ولو تلاحظ المرفق في مشاركتي #1 يوجد خانة طباعة جميع الاشعارات التي لها حقل قيد اصدار وكنت استخدم الكود التالي Dim stLinkCriteria As String Dim rs As Recordset Me.printed = "تم اصداره" Set rs = CurrentDb.OpenRecordset("Quary", dbOpenDynaset) rs.MoveLast rs.MoveFirst If rs.RecordCount = 0 Then MsgBox "لا توجد سجلات قيد الاصدار" Exit Sub End If For i = 1 To rs.RecordCount stLinkCriteria = "[id] =" & rs![id] DoCmd.OpenReport "permit 10 records", acViewNormal, , stLinkCriteria rs.Edit rs!printed="تم اصداره" rs.Update rs.MoveNext Me.Dirty = True Next هذا الكود شغال معي 100%.....يعني لو كان عندي 20 تصريح او اشعار وبهن حقل قيد الاصدار بالضغط على هذا الكود ستنطبع جميع السجلات. لان الاشهار المستخدم او التقرير هو تقرير واحد ويحمل اسم permit 10 records بس المشكلة الحين عندي اشعارين اخرين باسم (permit see the attachment), (permit see the attachment) كيف اللي انا استخدم الكود الموضح اعلاه في طباعة هذه الاشعارات ايضا. الطريقة التي كنت استخدمها سابقا هو طباعةاو معاينة كل سجل باستخدام هذا الكود Dim stLinkCriteria As String If P > 9 Then stLinkCriteria = "[id] =" & Me![id] DoCmd.OpenReport "permit other records ", acPreview, , stLinkCriteria DoCmd.OpenReport "permit see the attachment", acPreview, , stLinkCriteria Else stLinkCriteria = "[id] =" & Me![id] DoCmd.OpenReport "permit 10 records", acPreview, , stLinkCriteria End If Dim stLinkCriteria As String If P > 9 Then stLinkCriteria = "[id] =" & Me![id] DoCmd.OpenReport "permit other records ", acPreview, , stLinkCriteria DoCmd.OpenReport "permit see the attachment", acPreview, , stLinkCriteria Else stLinkCriteria = "[id] =" & Me![id] DoCmd.OpenReport "permit 10 records", acPreview, , stLinkCriteria End If حيث p هو عدد السجلات الفرعية لكل سجل اذا لو كان عندي مثلا 15 تصريح...خمس منهن للاشعار permit 10 records والباقي ل permit other records و permit see the attachment كيف لي ان اطبع هن جميعن بضغطة زر واحد.....بشرط اثناء الطباعة كل اشعار ياخذ نفس التصميم المخصصة له مثل معاينة الاشعار الحالي ....واليك مرفق حاول ان تعاين تصريح رقم 565 وتصريح رقم 566.... فترى كيف شكل الاشعار ان يريده يظهر اثناء طباعتهن جميعن. اعذرني على التوضويح المطول...بس والله تعبت من كثر ما طرحت هذا الموضوع في منتديات اخرى...وانتي الوحيد اللي تواصلت معي لك الف شكر وتقدير شكل الاشعارات.rar
alcasir قام بنشر يناير 6, 2011 الكاتب قام بنشر يناير 6, 2011 ما زلت في الانتظار اخي العزيز وبارك الله فيك
alcasir قام بنشر يناير 8, 2011 الكاتب قام بنشر يناير 8, 2011 والله لسه انتظر.......واملي بالله كبير ان احد يرد علي!!!!
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.