Terima kasih banyak mas atas penjelasannya mudah-mudahan ilmunya bertambah terus, akan saya coba, sekali lagi jangan bosan membimbing yang awam ... wassalam ...
S> Contoh event Button jika menggunakan wizard PrintKwitansi on click: S> Private Sub PrintKwitansi_Click() S> On Error GoTo Err_PrintKwitansi_Click S> Dim stDocName As String S> stDocName = "Kwitansi" <--- ganti dengan nama report yg di inginkan "[Report Invoice]" S> DoCmd.OpenReport stDocName, acPreview, , "ID='" Me.ID S> "'" <--- ganti dengan "[Kode Invoice]='" Me.[Kode Invoice] "'" S> S> Exit_PrintKwitansi_Click: S> Exit Sub S> Err_PrintKwitansi_Click: S> MsgBox Err.Description S> Resume Exit_PrintKwitansi_Click S> S> End Sub S> S> Regards, S> Sumiyanto Best regards, nadhif_fakhri mailto:[email protected] ------------------------------------ SPAM IS PROHIBITEDYahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/belajar-access/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/belajar-access/join (Yahoo! ID required) <*> To change settings via email: [email protected] [email protected] <*> To unsubscribe from this group, send an email to: [email protected] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
