مساعدة في طباعة اشعارات تصاريح زراعية لو تكرمتو

للرفع...

لو تكرمتو....أريد مساعدة

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

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 : هو استعلام لجميع السجلات التي لها حقل قيد اصدار

إلا أجد أحد يفيدني في هذا الموضوع

أين مشرفي المنتدى الأعزاء

أرجو المشاركة

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

ان الله مع الصابرين

الغائب عذره معاه......

ما زلت على امل احد من الاخوة يتكرم على بالمرور.....................

اكثر من 80 مشاهدة ولا رد...

اين الاساتذه الكرام

والله لسه انتظر.......واملي بالله كبير ان احد يرد علي!!!!

لماذ يتم تجاهل موضوعي...؟

حقا غريبه اكثر من 130 مشاهدة .......ولا حتى مرور واحد....