sekedar ide, pembatalan report dibikin pada waktu tombol cetak ditekan,
jadi sebelum report dibuka.
misalnya (ini misalnya lo ya...)
Private Sub Command186_Click()
Dim cekdata
cekdata = DLookup("[NAMA]", "Query_Cetak_DUK_PILIH", "[NAMA] LIKE '*'")
If Len(Nz(cekdata, "")) < 2 Then
MsgBox "Record terpilih tidak ada"
Exit Sub
End If
On Error GoTo Err_Command186_Click
Dim stDocName As String
stDocName = "Cetak_DUK_PILIH"
DoCmd.OpenReport stDocName, acPreview
Exit_Command186_Click:
Exit Sub
Err_Command186_Click:
' MsgBox Err.Description
Resume Exit_Command186_Click
End Sub
2010/4/1 BoyPeace pamotan <[email protected]>
>
> [Attachment(s) <#127b6f08906972eb_TopText> from BoyPeace pamotan included
> below]
>
> Setelah saya buat di Access 2003, enggak ada masalah dengan
> Report-nya, tetapi setelah saya coba Acccess 2007, ternyata ada
> masalah di Report, yaitu waktu saya membuka form pilihan cetak,
> apabila pilihan/option cetak tidak dipilih, tentu saja akan
> menampilkan pesan data kosong, yaitu modul : on no data, cancel=true,
> setelah kita klik OK ternyata stelah membuka form pilihan cetak
> kembali terjadi masalah, jadi tidak bisa mengklik form apapun, modul
> apa yang perlu saya tambahkan agar msalah ini tidak terjadi???
>
> password modul : 123
>
> Password login
> Username : admin
> Password : adminpass
>
>
--
---------------------------------------------
grapyak-semanak-cluthak
http://djmumun.wordpress.com
http://facebook.com/djmumun
---------------------------------------------
