(06/08/2013, 13:02)F.Ç yazdı: Formda seçili kayıtları istenen sayıda yazdırma özelliği bozulmadan, bir adet yazdır butonu ile Paket sayısı 1 olarak girilmişse Rapor1'i, Paket sayısı 2 olarak girilmişse Rapor 1 ve 2'yi, Paket sayısını 3 olarak girilmişse de Rapor1, Rapor2, ve Rapor3 'ü yazdır butonuna tıkladığımda yazdırmasını istiyorum.

Bunun için mevcut yazdırdığın butonun click kodlarında küçün bir değişiklik yapılması yeterli.

Örneğin mevcut kod bölümü:

Do While Not rs.EOF

    For x = 1 To rs("ÇıktıSayısı")

        DoCmd.OpenReport "rapor1", acViewNormal, , "[ÜRÜNSIRANO]=" & rs(0)

    Next x

    rs.MoveNext

Loop

rs.Close

Set rs = Nothing

aşağıdaki gibi değştirip deneyin.

Do While Not rs.EOF

    For x = 1 To rs("ÇıktıSayısı")

        DoCmd.OpenReport "rapor1", acViewNormal, , "[ÜRÜNSIRANO]=" & rs(0)

        If Me.PaketSayisi = 2 Then

            DoCmd.OpenReport "rapor2", acViewNormal, , "[ÜRÜNSIRANO]=" & rs(0)

        ElseIf Me.PaketSayisi = 3 Then

            DoCmd.OpenReport "rapor2", acViewNormal, , "[ÜRÜNSIRANO]=" & rs(0)

            DoCmd.OpenReport "rapor3", acViewNormal, , "[ÜRÜNSIRANO]=" & rs(0)

        End If

    Next x

    rs.MoveNext

Loop

rs.Close

Set rs = Nothing