Kod:
DoCmd.OpenReport "Rapor1", acViewPreview DoCmd.PrintOut acPrintAll, , , , 3
burada sayıyı koda yazmak yerine
Kod:
Private Sub Komut45_Click()
On Error GoTo Err_Komut45_Click
Dim stDocName As String
stDocName = "R_kargo"
DoCmd.OpenReport stDocName, acPreview
Exit_Komut45_Click:
Exit Sub
Err_Komut45_Click:
MsgBox Err.Description
Resume Exit_Komut45_Click
End Sub
Kod:
DoCmd.OpenReport "R_kargo", acViewPreview DoCmd.PrintOut acPrintAll, , , , me.kopyasayısıbox value
Yani aktif form üzerinde rakam yazdığım kutudaki sayıyı alsın.
Teşekkürler iyi geceler