طريقة طباعة سجلات بتاريخ اليوم والتي لها حقل باسم قيد الاصدار

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

ما زلت في انتظار المساعد

لكم الشكر والتقدير

من خصائص رأس المجموعة (كليك يمين - properties )

format

غير الخاصية force new page

الى

before section

و لكن المشكلة ان حقل id

الذى يتم على اساسه التجميع يساوى صفر فى كل القيم قيد الاصدار

كذلك ستحتاج الى الغاء رأس و ذيل التقرير و استبدالهما برأس و ذيل الصفحة

لذلك فقد طبقت ذلك على تقرير جديد و يمكنك التطبيق على تقريرك

pending_reports.rar

اخي العزيز مستر نو 2000

شاكر لك جدا على المرور

ولكني لا يمكنني الغاء رأس و ذيل التقرير.....

لان التقرير راح اينطبع على اوراق رسمية فيها شعار على راس الصفحة.

هل من سبيل الى طريقة اخرى

مقدر تواصلك القيم معي

اخي العزيز مستر نو 2000

شاكر لك جدا على المرور

ولكني لا يمكنني الغاء رأس و ذيل التقرير.....

لان التقرير راح اينطبع على اوراق رسمية فيها شعار على في الاعلى.

هل من سبيل الى طريقة اخرى

مقدر تواصلك القيم معي

اخى الكريم

انا لم اقل ان تلغيه

فقط قلت استبدله برأس و ذيل الصفحة لكى يظهروا مع كل سجل

عموما اذا اردت طريقة اخرى

يمكنك ان تنفذامر الطباعة لكل سجل على حدا

اخي العزيز / لك اجمل سلام

ماذا عن راس وتذييل المجموعة id ارى انه قد تم تجاهله في التقرير المعدل من عندك

لان في هذا المقطع يوجد تقريبا 6 مستطيلات وعملت ارتفاعهن وعرضهن الى صفر وعملت خصائص المقطع قابل للتمدد.......وعملت كود عند حدث عند التنسيق انه عندما يكون عدد السجلات الفرعية المدخلة عدد معين يعطين ارتفاع المستطيلات الى ارتفاع معين ايضا. المستطيلات يخذن اسماء A,B,C,D,E,F

الا يوجد كود اخي العزيز يفي بمطلي بدون تغيير في تصميم التقرير

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

في بعض الاوقات لا يمكن طباعة السجل الحالي اول باول لطبيعة العمل

هذا مقدر تواصلك معي وبارك الله فيك.

اخيك / ALcasir

اخى العزيز

اقتباس

ماذا عن راس وتذييل المجموعة id ارى انه قد تم تجاهله في التقرير المعدل من عندك

لان هذا الحقل - صفر فى جميع السجلات لذلك تجاهلته و طبقت على حقل اخر به قيم

اقتباس

الا يوجد كود اخي العزيز يفي بمطلي بدون تغيير في تصميم التقرير

بالتأكيد يوجد اخى و هو بسيط جدا

اعمل استعلام للسجلات قيد الاصدار

و نفذ كود الطباعة بعدد السجلات

اى اطبع كل سجل فى تقرير منفرد

اليك المرفق

pending_reports.rar

اخي لقد قمت باضافة استعلام يعرض السجلات التي لها قيد اصدار

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

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

لك اجمل تحية مني

pending_reports_2.rar

وضعت لك مرفق و لكنه اصبح فى المشاركة رقم 3

الله يعطيك الف صحة وعافية

نعم هو المطلوب

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

في عني سؤال اخر

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

هل فقط اضع date() في المعيار تحت خانة حقل التاريخ بالاستعلام؟

او هناك خطوة اخرى يجب القيام بها

مقدر تواصلك القيم معي

اخيك / ALcasir

مساء الخير

كيف استفيد من الكود الذي وضعته لطباعة السجلات قيد الاصدار في استخدام if , then

اسم التقرير الذي موجود بالكود هو realse 10 records

واستعلامه يسمى Query1

لحد الحين تمام

اذا رغبت في انشاء تقرير اخر يسمى release other records

واستعلام جديد يسمى QUERY2

ووضعت حقل متغير في النموذج يحسب عدد السجلات الفرعية لكل سجل واعطيته اسم COUNT

ففي زر كود الطباعة سيكون كالاتي

Dim stLinkCriteria As String

if count >10 then

stLinkCriteria = "[وارد رقم] =" & Me![وارد رقم]

DoCmd.OpenReport "realse 10 records", acViewNormal, , stLinkCriteria

else

stLinkCriteria = "[وارد رقم] =" & Me![وارد رقم]

DoCmd.OpenReport "realse other records", acViewNormal, , stLinkCriteria

end if

end sub

يعنى الكود هذا اذا كان عدد السجلات الفرعية المدخلة اقل من 10 سجلات سيعطيني طباعة التقرير الحالي realse 10 records

واذا كان غير ذلك سيعطيني realse other records

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

ليعطينة نتيجة لطباعة جميع السجلات المقيدة في التقريرين

و هل سيتم طباعة التقرير الجديد مرة واحدة ام بعدد السجلات كالسابق

ارغب بطباعة جميع عدد السجلات التي تحمل قيد الاصدار في التقريرين

هذا هو التعديل

و لكن غير اسم مربع النص انا وضعت اسم txtcount

Dim stLinkCriteria As String
Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("query1", dbOpenDynaset)
rs.MoveLast
rs.MoveFirst

For i = 1 To rs.RecordCount
If txtCount > 10 Then
stLinkCriteria = "[æÇÑÏ ÑÞã] =" & Me![æÇÑÏ ÑÞã]
DoCmd.OpenReport "realse 10 records", acViewNormal, , stLinkCriteria
'Me.printed = "Êã ÇÕÏÇÑå"
Else
stLinkCriteria = "[æÇÑÏ ÑÞã] =" & Me![æÇÑÏ ÑÞã]
DoCmd.OpenReport "realse other records", acViewNormal, , stLinkCriteria
'Me.printed = "Êã ÇÕÏÇÑå"
End If
rs.MoveNext
Next

تسلم ايدك يا غالي

ما قصرت وجزاك الله الف خير

كما انتهز هذي الفرصة لاهنئك بعيد الفطر المبارك ...وكل عام وانت واهلك الكرام بصحة وعافية

اخيك / ALcasir

اخي العزيز Mrnooono2000

في ملاحظة مهمة جدا

كيف لي عندما اطبع جميع السجلات التي لها حقل قيد اصدار ان يتغير اسم الحقل الى تم اصداره لجميع السجلات.

لتفادى طباعة سجل تم طباعته من قبل.

وعيدك مبارك عليك

لو دققت فى الكود لوجدت ما تريد

Dim stLinkCriteria As String
Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("query1", dbOpenDynaset)
rs.MoveLast
rs.MoveFirst

For i = 1 To rs.RecordCount
If txtCount > 10 Then
stLinkCriteria = "[æÇÑÏ ÑÞã] =" & Me![æÇÑÏ ÑÞã]
DoCmd.OpenReport "realse 10 records", acViewNormal, , stLinkCriteria
Me.printed = "Êã ÇÕÏÇÑå"
Else
stLinkCriteria = "[æÇÑÏ ÑÞã] =" & Me![æÇÑÏ ÑÞã]
DoCmd.OpenReport "realse other records", acViewNormal, , stLinkCriteria
Me.printed = "Êã ÇÕÏÇÑå"
End If
rs.MoveNext
Next

و كل عام و انت بخير

استاذي الفاضل / Mr. Nooo2000

شاكر لك على التواصل القيم معي

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

لان الكود

me.printed = "تم اصداره"

يغير فقط السجل الحالي وليس كل السجلات

لقد تم تجربة ذالك

ارجو التكرم مشكورا بتجربته

اجمل تحيه

اخيك / ALcasir

نعم اخى عندك حق

Dim stLinkCriteria As String
Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("query1", dbOpenDynaset)
rs.MoveLast
rs.MoveFirst

For i = 1 To rs.RecordCount
If txtCount > 10 Then
stLinkCriteria = "[æÇÑÏ ÑÞã] =" & Me![æÇÑÏ ÑÞã]
DoCmd.OpenReport "realse 10 records", acViewNormal, , stLinkCriteria
rs.edit
rs!printed = "Êã ÇÕÏÇÑå"
rs.update
Else
stLinkCriteria = "[æÇÑÏ ÑÞã] =" & Me![æÇÑÏ ÑÞã]
DoCmd.OpenReport "realse other records", acViewNormal, , stLinkCriteria
rs.edit
rs!printed = "Êã ÇÕÏÇÑå"
rs.update
End If
rs.MoveNext
Next

اخي الفاضل / نفس المشكلة

الحقول التي لها حقل قيد اصدار لا تتغير الى تم اصداره بعد الضغظ على الزر

والكود الذي استخدمه هو

Private Sub Command352_Click()

Dim stLinkCriteria As String

Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("query1", dbOpenDynaset)

rs.MoveLast

rs.MoveFirst

For i = 1 To rs.RecordCount

stLinkCriteria = "[æÇÑÏ ÑÞã ] =" & rs![æÇÑÏ ÑÞã]

DoCmd.OpenReport "realse 10 records", acViewNormal, , stLinkCriteria

rs.Edit

rs!printed = "Êã ÇÕÏÇÑå"

rs.MoveNext

Next

End Sub

استاذي الفاضل / لقد حلت المشكلة باضافة

rs.update على الكود وهو الان يعمل بنجاح لله الحمد

اخي شاكر لك على سعة صدرك وبارك الله فيك

مطلب اخير

عندما يكون جميع السجلات تم اصدارها تظهر مسج للمستخدم بانه لا توجد سجلات قيد الاصدار عند محاولته الضغظ على زر الطباعة

شاكر لك

تفضل اخى

Dim stLinkCriteria As String
Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("query1", dbOpenDynaset)
rs.MoveLast
rs.MoveFirst

if rs.RecordCount=0 then
msgbox "لا توجد سجلات قيد الاصدار"
exit sub
end if

For i = 1 To rs.RecordCount
If txtCount > 10 Then
stLinkCriteria = "[æÇÑÏ ÑÞã] =" & Me![æÇÑÏ ÑÞã]
DoCmd.OpenReport "realse 10 records", acViewNormal, , stLinkCriteria
rs.edit
rs!printed = "Êã ÇÕÏÇÑå"
rs.update
Else
stLinkCriteria = "[æÇÑÏ ÑÞã] =" & Me![æÇÑÏ ÑÞã]
DoCmd.OpenReport "realse other records", acViewNormal, , stLinkCriteria
rs.edit
rs!printed = "Êã ÇÕÏÇÑå"
rs.update
End If
rs.MoveNext
Next

بارك الله فيك وما قصرت