طباعة 8 تقارير لكل رقم الي بالترتيب

[laithalshair]

يوجد لدي 8 تقارير يجب طباعتها بالترتيب لكل رقم الي

ارجو المساعده

[Shivan Rekany]

5 ساعات مضت, laithalshair said:

يوجد لدي 8 تقارير يجب طباعتها بالترتيب لكل رقم الي

ارجو المساعده

اھلا بک فی منتداک

اذا تقدر ان ترفع نسخة مصغرة من قاعدة بياناتك سيسهل على رفقائك في المنتدى لكي يساعدك 
حسب فهمي لسؤالك
اكتب كود الطباعة ثمانية مرات كل مرة باسم تقرير خاص تبعك لكن لا تنسى ان تعطيه شرط ريكورد لكي لا تطبع كل صفحات 

هذا كود طباعة

DoCmd.OpenReport "Rep1", acViewNormal, , "[id]=" & Me.ID
DoCmd.OpenReport "Rep2", acViewNormal, , "[id]=" & Me.ID
DoCmd.OpenReport "Rep3", acViewNormal, , "[id]=" & Me.ID
DoCmd.OpenReport "Rep4", acViewNormal, , "[id]=" & Me.ID
DoCmd.OpenReport "Rep5", acViewNormal, , "[id]=" & Me.ID
DoCmd.OpenReport "Rep6", acViewNormal, , "[id]=" & Me.ID
DoCmd.OpenReport "Rep7", acViewNormal, , "[id]=" & Me.ID
DoCmd.OpenReport "Rep8", acViewNormal, , "[id]=" & Me.ID

 

[laithalshair]

شكرا للرد اخي Shivan Rekany

حاولت احمل الملف بس حجمو كبير 

عندي 8 تقارير بدي اطبعها على الترتيب لكل رقم الي

يعني الرقم الالي 1 يطبع التقارير من 1 الى 8

والرقم الالي 2 يطبع التقارير من رقم 1 الى 8

[Shivan Rekany]

اعمل نسخة مصغرة من القاعدة وارفقه

[laithalshair]

 مو راضي يرفع اذا بدك ببعتلك ياه ايميل

 

[Shivan Rekany]

في ١٥‏/١٠‏/٢٠٢٠ at 16:36, laithalshair said:

حاولت احمل الملف بس حجمو كبير 

عندي 8 تقارير بدي اطبعها على الترتيب لكل رقم الي

يعني الرقم الالي 1 يطبع التقارير من 1 الى 8

والرقم الالي 2 يطبع التقارير من رقم 1 الى 8

اتفضل اليك هذا الكود

Private Sub ÃãÑ32_Click()
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim i As Integer
    Set Db = CurrentDb
    Set Rs = Db.OpenRecordset("Table1")
    If Rs.RecordCount = 0 Then Exit Sub
    Rs.MoveLast: Rs.MoveFirst
    For i = 1 To Rs.RecordCount
        DoCmd.OpenReport "Rep1", acViewNormal, , "[id]=" & Rs![ID]
        DoCmd.OpenReport "Rep2", acViewNormal, , "[id]=" & Rs![ID]
        DoCmd.OpenReport "Rep3", acViewNormal, , "[id]=" & Rs![ID]
        DoCmd.OpenReport "Rep4", acViewNormal, , "[id]=" & Rs![ID]
        DoCmd.OpenReport "Rep5", acViewNormal, , "[id]=" & Rs![ID]
        DoCmd.OpenReport "Rep6", acViewNormal, , "[id]=" & Rs![ID]
        DoCmd.OpenReport "Rep7", acViewNormal, , "[id]=" & Rs![ID]
        DoCmd.OpenReport "Rep8", acViewNormal, , "[id]=" & Rs![ID]
        Rs.MoveNext
    Next i
    Db.Close
    Set Db = Nothing
    Set Rs = Nothing
End Sub

واليك قاعدة تجريبية

 

8REP.rar

[laithalshair]

شكرا لجهودك الرائعه اخي

[أبو عبدالله الحلوانى]

24 دقائق مضت, laithalshair said:

شكرا لجهودك الرائعه اخي

لا تنسي ان تضغط علي أفضل اجابة علي اجابة أخيك فهذا سيحفذ أخوتك علي المذيد من العطاء 

تمنياتي بالتوفيق

تم تعديل أكتوبر 20, 2020 بواسطه أبو عبدالله الحلوانى