Kod:
DoCmd.OpenReport "Rapor1", acViewPreview DoCmd.PrintOut acPrintAll, , , , 3burada 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 SubKod:
DoCmd.OpenReport "R_kargo", acViewPreview DoCmd.PrintOut acPrintAll, , , , me.kopyasayısıbox valueYani aktif form üzerinde rakam yazdığım kutudaki sayıyı alsın.
Teşekkürler iyi geceler