[Attachment(s) from aiyasattar@yahoo.co.id [belajar-access] included below]
mbak aindah
boleh usul dikit...kalo saya :
1. hapus criteria diquery : qry-pegawai
2. buat tombol perintah, misalnya "cetak"
3. difinisiin deh syntax vbe tuk tombol tersebut
Private Sub cetak_Click ()
On Error GoTo Err_cetak_Click
Dim stDocName As String
stDocName = "pendidikan_terakhir"
DoCmd.OpenReport stDocName, acPreview,, "[pendidikan_terakhir] = '" & Me! Combo0.Column (1) & "'"
Exit_cetak_Click:
Exit Sub
Err_cetak_Click:
MsgBox Err.Description
Lanjutkan Exit_cetak_Click
End Sub
SAYA sudah coba Dan BERHASIL
semoga seperti yang mbak harapkan
berikut lampiran utak-atiknya
__._,_.___
Attachment(s) from aiyasattar@yahoo.co.id [belajar-access] | View attachments on the web
1 of 1 File(s)
Posted by: aiyasattar@yahoo.co.id
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (2) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar