Bir veritabanında ürünler için paket bilgisi var. Ürün için paket etiketi basılırken paket adedi kadar etiket basmasını istiyorum.
Bu konuda daha evvel deneyimi olan arkadaşlar varsa ve yol gösterirse sevinirim. Teşekkürler.
Rapor'un Detay kısmının Print Event'ında Me.NextRecord özelliğini kullanarak yapılabilir.
Ufak bir örnek gönderirseniz daha rahat yardımcı oluruz.
(Ayrıca forum kuralları gereği örnek göndermelisiniz)
Rapora yazılması gereken örnek kodlar:
Kod:
Option Compare Database 'Use database order for string comparisons
Dim k, b As Integer
Private Sub Report_Open(Cancel As Integer)
k = 1
b = Forms![Kartela_Karti]![Miktar]
End Sub
Private Sub Detail1_Print(Cancel As Integer, PrintCount As Integer)
If b <> k Then
Me.NextRecord = False
k = k + 1
Exit Sub
End If
If b = k Then
Me.NextRecord = True
k = 1
Exit Sub
End If
End Sub
Sn. arkabuyi, 7/6'da Sorusunu sormuş ve bir daha da siteye uğramamış.
Kendisini tebrik ediyor ve konuyu "Cevaplanmışlar" bölümüne taşıyorum.
Sn Seruz hocam haklısınız, bu ve benzeri bazı arkadaşlar ihtiyacı olduğunda siteye girip yeni konu açan ama bazen cevabını bile beklemeden kaybolanlardan. Söyleyecek bir şey yok.