السلام علكيم....
ارغب في طباعة السجلات التي لها حقل قيد اصدار ولكن بشروط
على سبيل المثال اذا كانت عدد السجلات الفرعية اقل من 10 فيعطيني تقرير اسمه permit 10 records
واذا كان عدد السجلات الفرعية اكبر من 9 سجلات فيعطيني تقريران الاول اسمه permit other records والثاني permit see the attachment
ويوجد حقل اسمه p في النموذج الفرعي يمثل عدد السجلات الفرعية.
فعملت كود كان قد تفضل به استاذي abo_yousof في موضوع سابق مشابه حاولت ابحث عنه بس لما اجده
الكود هو كالاتي
Dim stLinkCriteria As String
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("XXX", dbOpenDynaset)
rs.MoveLast
rs.MoveFirst
If rs.RecordCount = 0 Then
MsgBox "لا توجد سجلات قيد الاصدار"
Exit Sub
End If
For i = 1 To rs.RecordCount
If Me.P > 9 Then
stLinkCriteria = "[iD] =" & Me![id]
DoCmd.OpenReport "PERMIT other records", acViewNormal, , stLinkCriteria
DoCmd.OpenReport "PERMIT SEE THE ATTACHMENT", acViewNormal, , stLinkCriteria
rs.Edit
rs!printed = "تم اصداره"
rs.Update
End If
If Me.P < 10 Then
stLinkCriteria = "[iD] =" & Me![id]
DoCmd.OpenReport "permit 10 records", acViewNormal, , stLinkCriteria
rs.Edit
rs!printed = "تم اصداره"
rs.Update
End If
rs.MoveNext
Next
هذا الكود المفترض يطبع لي جميع السجلات التي لها حقل قيد اصدار مرة واحدة سواء تلك التي عدد سجلاتها الفرعية اقل او اكثر من 9 سجلات وبمجرد الضغط عليه تتحول قيمة الحقل من قيد اصدار الى تم اصداره.
وعند التطبيق صار لي لخبطة في الطباعة
ارجو التكرم مشكور بمعاينة المرفق