Merhabalar;
Ekteki örnekte bulunan rapor1 de çıktı alırken kayıtların tablo1 deki "cikti_sayisi" nda belirtilen sayı kadar çoğaltılmasını sağlayabilir miyiz?
Örnek olarak tablo1 stok 4444 için çıktı sayısı 3 olduğu için bu kayıttan 3 nüsha çıktı almak istiyorum. Yani raporda 4444 stok numaralı kayıttan 3 tane olamasını istiyorum.
Böyle bir şey mümkün müdür?

İsteginizi sanırım karşılar ben bir form oluşturdum bu formda aynı veriden kaç adet raporda göstermesini istiyorsanız o nu yazın yeter

Merhabalar;
Sayın sehervaktim ilginiz için teşekkür ederim. Fakat gönderdiğiniz dosyada her stok için ayrı ayrı çıktı almak gerekiyor sanırım. Bu şekilde benim ihtiyacımı karşılamıyor. Yaklaşık 300-400 farklı stok numara için çıktı alıyorum bu da baya zaman kaybı benim için. Benim amacım tek raporda bütün stokların(Her stoktan tabloda belirttiğim sayıda) çıktısını almak. Acaba tekrar bakabilir misiniz?

örneğinizde bir çalışma yaptım bilgisayarıma bağlı yazıcı olmadığı için deneyemedim, kontrol edip cevabınızı bekliyorum... dosyanızı ekliyorum.

Sayin serdar2020;

Almak istediğim rapor tablosundan yola cikarak cikti sayisi kadar rapor ayrinti bolumunde stok yazdirilacak ise
1. Rapor da stok numarasini gruplayin ve stok baslik bolumunden yeni sayfaya zorla secenegini bolumden sonra olarak ayarlayin.

2. Asagidaki kodu rapor acilma olayina tasiyin.
Private Sub Report_Open(Cancel As Integer)
'***DoCmd.PrintOut acPages, Page, Pages, acMedium, Me.cikti_sayisi, False
On Error GoTo Erc
Dim Kayit As TableDef, SorSQL As Recordset, Sw As Long
Set Kayit = Application.CurrentDb.CreateTableDef("Gecici")
With Kayit
.Fields.Append .CreateField("Stok", dbText, 15)
CurrentDb.TableDefs.Append Kayit
End With
Set SorSQL = Application.CurrentDb.OpenRecordset("Select * From Tablo1 order By Stok")
Do
For Sw = 1 To SorSQL![cikti_sayisi]
Application.CurrentDb.Execute "INSERT INTO Gecici ( Stok ) SELECT '" & SorSQL!stok & "'"
Next Sw
SorSQL.MoveNext
Loop Until SorSQL.EOF
SorSQL.Close: Set SorSQL = Nothing
Set Kayit = Nothing
Me.RecordSource = "SELECT Tablo1.* FROM Gecici INNER JOIN Tablo1 ON Gecici.Stok = Tablo1.stok"
Exit Sub
Erc:
Application.CurrentDb.Execute "Delete Gecici.* From Gecici"
Resume Next
End Sub


Kolay gelsin.....

Merhabalar;
Biraz geç dönüş yaptım lütfen kusura bakmayın. Öncelikle ilginiz için çok teşekkür ederim. Sayın dsezgin83260'in belirttiği yöntemle sorunum çözüldü. Diğer üyelerimiz faydalanmak isterse uygulamanın son hali ektedir.