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

تفضل

mok.rar

قبل التحميل

الف شكر

لو وقتك يسمح وكملى الجميل وشرح ولو بسيط للكود

Private Sub Command8_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[CusName]=" & "'" & Me![CusName] & "'"
DoCmd.OpenReport "Report1", acViewPreview, , stLinkCriteria

'---------------------------------
End Sub

مستر استرا كتب:

قبل التحميل

الف شكر

لو وقتك يسمح وكملى الجميل وشرح ولو بسيط للكود

Private Sub Command8_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[CusName]=" & "'" & Me![CusName] & "'"
DoCmd.OpenReport "Report1", acViewPreview, , stLinkCriteria

'---------------------------------
End Sub

عزيزي

هذا الكود يقوم باخذ متغير من النموذج، هو حقل CusNAme ويرسله كقيمة للتقرير لنفس الحقل

وهذا بتم في جملة فتح التقرير، وتحديدا في جزء الفلتر "التصفية" منها، اي فتح تقرير محدد، بناء على شرط من حقل محدد..

تحياتي