السلام عليكم ورحمة الله وبركاته .. وبعد ،،
الكود أدناه كنت أستخدم فكرته مع تقارير الاكسس ، وما أريده هو أن يتم تكرار طباعة تقرير اتوماتيكياً حسب الشرط الموجود في جملة التكرار .. فهل هذا ممكن ؟
Dim rpt As Object Dim I As Integer Set rpt = New rptManifestMain '---------------------------- For I = 1 To 20 Sql = "Select * From TblName Where ID = " & I rptManifestMain.dcRptData.ConnectionString = CN rptManifestMain.dcRptData.Source = Sql rptManifestMain.PrintReport False Next
السلام عليكم
مع تعديل بسيط على ما كتبت وعلى افتراض ان CN يحتوي على معلومات اتصال صحيحة اما اذا قصدت به ك Connection فيجب استخدام rpt.dcRptData.Connection =CN
Dim rpt As rptManifestMain Dim I As Integer Set rpt = New rptManifestMain '---------------------------- rpt.dcRptData.ConnectionString = CN For I = 1 To 20 Sql = "Select * From TblName Where ID = " & I rpt.dcRptData.Source = Sql rpt.PrintReport False DoEvents Next
شكراً لك أخي الكريم وبارك الله فيك ..
ما أريده هو أن تتم طباعة التقرير حسب الشرط الموجود في جملة SQL بحيث يقوم بطباعة التقرير الأول مثلاً للموظف ذو الرقم 2 ، ومن ثم يقوم بطباعة نفس التقرير ولكن للموظف ذو الرقم 3 .. وهكذا حتى ينتهي من عملية الدوران Next ، والكود الذي قمت مشكوراً بإدراجه يقوم بنفس مهمة الكود الذي قمت بإدراجه في المشاركة السابقة ..
أرجو أن أكون قد أوضحت المشكلة ،،
بارك الله فيك وسدد خطاك ،،
السلام عليكم
اعتذر عن هذا الخطأ فقد في أخطأت في وضع الكود الصحيح وهو كما يلي
Dim rpt As rptManifestMain Dim I As Integer For I = 1 To 20 Set rpt = New rptManifestMain '---------------------------- rpt.dcRptData.ConnectionString = CN Sql = "Select * From TblName Where ID = " & I rpt.dcRptData.Source = Sql rpt.PrintReport False DoEvents Next
واذا كان التقرير به عدة صفحات او يحتا ج الى وقت للتنفيذ يفضل وضع rpt.run قبل امر الطباعة
يعطيك العافية أخي الكريم TareqVB ، نجحت طريقتك ولكن لي إستفسار بسييييييط جداً ، ما فائدة الكود : rpt.run ، حيث عندما اضعه قبل أمر الطباعة تظهر رسالة خطأ
بارك الله فيك ،،
اخي الكريم
rpt.run هي لتنفيذ وتجهيز التقرير في الخفاء ومادام طبع التقرير بشكل صحيح فلا لزوم لها
بارك الله فيك
جزاك الله كل خير
