Contoh event Button jika menggunakan wizard PrintKwitansi on click:
Private Sub PrintKwitansi_Click()
On Error GoTo Err_PrintKwitansi_Click
Dim stDocName As String
stDocName = "Kwitansi" <--- ganti dengan nama report yg di inginkan
"[Report
Invoice]"
DoCmd.OpenReport stDocName, acPreview, , "ID='" & Me.ID & "'" <--- ganti
dengan "[Kode Invoice]='"&Me.[Kode Invoice]&"'"
Exit_PrintKwitansi_Click:
Exit Sub
Err_PrintKwitansi_Click:
MsgBox Err.Description
Resume Exit_PrintKwitansi_Click
End Sub
Regards,
Sumiyanto
________________________________
From: nadhif_fakhri <[email protected]>
To: [email protected]
Sent: Wed, July 28, 2010 10:15:16 AM
Subject: [belajar-access] Report.....?
Assalamualaikum ...
Selamat pagi ...
Saya mempunyai masalah seperti ini ...
saya sedang entry form invoce,dan di form tersebut ada tombol untuk
membuka Report Invoice, masalah nya yaitu bagai mana caranya supaya
report yang saya buka itu datanya sama seperti form yang sedang saya
input...(Primery key nya Kode Invoice) ?
kalo di form saya biasa menggunakan OpenArg, tapi ketika saya coba di
report gak bisa,.....
mungkin ada yang bisa memberikan penjelasan terhadap masalah yang
sedang saya hadapi .
Terima kasih ...
Best regards,
nadhif_fakhri
mailto:[email protected]
