maaf, saya mau mencoba menjawab. mudah2an bisa membantu mas ahmad.
coba edit sedikit vba yg anda copy sbb:
sebelumnya:
Private Sub Detail1_Print(Cancel As Integer, PrintCount As Integer)
Dim result As String
result = MD_Barcode39(Barcode, Me)
End Sub
Sesudahnya: (rubah Detail1_Print menjadi Detail_Print)
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim result As String
result = MD_Barcode39(Barcode, Me)
End Sub
wass.
Taufik Hidayat
--- In belajar-access@yahoogroups.com, Ahmad Satiri <satiri27@...> wrote:
>
> Terima Kasih Mas Har, sudah ketemu VBAnya.
> Tapi kenapa ketika saya "copy" ke File saya, tidak berfungsi ya...tolong dikoreksi dong salah nya dimana dan informasikan ke saya agar menjadi pelajaran lagi untuk saya.
> Berikut ini saya lampirkan "File" saya.
>
> Terima Kasih banyak atas segalanya (termasuknya untuk mengkoreksi File saya)
>
> Salam,
>
> Ahmad Satiri
>
>
>
> ________________________________
> Dari: hari yanto har_i20002000@...
> Kepada: "belajar-access@yahoogroups.com" belajar-access@yahoogroups.com
> Dikirim: Selasa, 1 November 2011 12:11
> Judul: Re: Bls: Bls: ulang: [belajar-access] masih ttg barcode di Access
>
>
> Â
> VBA tidak di sembunyikan. Tapi berada di module dengan nama mod_BarCode_Generator.
>
> Prosesnya kurang lebih begini:
>
>
> Buka file barcode.mdb. Pilih report contoh. Klik Design. Klik toolbar Code. Akan nampak seperti ini:
>
> Private Sub Detail1_Print(Cancel As Integer, PrintCount As Integer)
> Dim result As String
>
> Â Â Â result = MD_Barcode39(Barcode, Me)
>
> End Sub
>
> Ini bisa diartikan: memerintahkan textbox Barcode pada report agar merubah sourcenya -- yang semula reg -- diubah menjadi Barcode39.
>
> Untuk coba-coba,
>
> 1. buatlah textbox baru disamping textbox barcode.
>
> 2. Katakanlah textbox baru itu bernama text20.
> 3. Isi controlsource text20 itu dengan ="22675a"
> 4. Ubah scirptnya seperti ini:
>
> Private Sub Detail1_Print(Cancel As Integer, PrintCount As Integer)
> Dim result, res1 As String
>
> Â Â Â result = MD_Barcode39(Barcode, Me)
> Â Â Â res1 = MD_Barcode39(Text20, Me)
> End Sub
>
> 5. Lihat hasilnya.
>
> Semoga bisa membantu dan memberi manfaat.
>
> Hariyanto (Surabaya)
> http://110.139.57.19/
>
>
>
> ________________________________
> From: Ahmad Satiri satiri27@...
> To: "belajar-access@yahoogroups.com" belajar-access@yahoogroups.com
> Sent: Tuesday, November 1, 2011 9:45 AM
> Subject: Bls: Bls: ulang: [belajar-access] masih ttg barcode di Access
>
>
> Â
> Salam sejahtera untuk kita semua.
> Di pagi yang cerah ini saya senang sekali mendapat Feed Back dari mas Haryanto dan mas Galih (sorry saya baru buka E mailnya).
> Dan setelah saya cek, keduanya dapat memecahkan Home Fun saya tinggal saya mendesignnya sesuai dengan kebutuhan saya.
> Tapi, saya masih membutuhkan pencerahan nich, untuk merubahan menjadi Barcode prosesnya bagaimana ya..? VBAnya diHide ya...?
> Cara UnHidenya gimana ya....?
> Terima Kasih sekali lagi Feed Back dari Master semua, ingin rasanya saya juga bisa memberikan "sesuatu" kepada rekan-rekan yang membutuhkan.
>
> Salam,
>
> Ahmad Satiri
>
>
>
> ________________________________
> Dari: hari yanto har_i20002000@...
> Kepada: "belajar-access@yahoogroups.com" belajar-access@yahoogroups.com
> Dikirim: Sabtu, 29 Oktober 2011 4:56
> Judul: Re: Bls: ulang: [belajar-access] masih ttg barcode di Access [1 Attachment]
>
>
> Â
> Ahmad... terimakasih. Cukup lama saya tidak berpartisipasi pada forum ini. Ada kesibukan lain yang cukup menyita. Baiklah...
> Â
> Terlampir adalah file membuat printing barcode melalui VBA. Semoga bermanfaat.
> Â
> Hariyanto
> http://110.139.57.19/
>
> From: Ahmad Satiri satiri27@...
> To: "belajar-access@yahoogroups.com" belajar-access@yahoogroups.com
> Sent: Friday, October 28, 2011 10:34 AM
> Subject: Bls: ulang: [belajar-access] masih ttg barcode di Access
>
>
> Â
> Selamat Pagi,
> Saya telah mencoba mencari Attachment dari mas Haryanto tentang VBA Barcode tertanggal 19 September 2008 tetapi tidak ketemu karena pada kumpulan Attachment dimulai dari tahun 2009. Yang 2008 tidak ada Kenapa ya? Trus untuk mendapatkannya bagaimana ya..?
> Terima Kasih atas bantunya.
>
> Salam,
>
> Ahmad Satiri
>
> Dari: Ahmad satiri27@...
> Kepada: belajar-access@yahoogroups.com
> Dikirim: Kamis, 27 Oktober 2011 16:53
> Judul: Re: ulang: [belajar-access] masih ttg barcode di Access
>
>
> Â
> Salam Sejahtera untu kita semua
> Mas Har / Mas Diki atau rekan - rekan semua, boleh dong saya dikirimkan VBA untuk membuat Barcode (tanpa Font).
> Saya yakin ini bisa menyelesaikan pertanyaan2 saya sebelumnya (Table)
>
> Terima Kasih atas bantuanya.
>
> Salam,
>
> Ahmad Satiri
> --- In belajar-access@yahoogroups.com, diki wahyudin pangestu_cx@ wrote:
> >
> > VBA barcode tersebut sudah saya pake dan bagus karena kita bisa mengatur perbandingan antara tinggi dan lebarnya. Namun mohon sharing dari para pakar, saya ada kebutuhan untuk memunculkan barcode secara vertikal. Kami berencana membuat ID Card plus barcode. ID Card tersebut dibuat dalam bentuk portrait (berdiri). Dengan begitu, kalo barcode dimunculkan secara horizontal, lebar untuk barcode terbatas sehingga
> pemindaiannya relatih lebih lama / lebih sulit. Oleh karenanya, barcode akan ditampilkan secara vertikal. Apakah hal ini bisa dilakukan ?
> >
> > Sekali lahi mohon bantuannya.
> >
> > Terima Kasih
> >
> > Diki w
> >
> >
> >
> >
> > ________________________________
> > Dari: hari yanto har_i20002000@
> > Kepada: belajar-access@yahoogroups.com
> > Terkirim: Jumat, 19 September, 2008 16:00:28
> > Topik: Re: [belajar-access] masih ttg barcode di Access
> >
> >
> > mungkin contoh terlampir bisa membantu. Barcode tidak menggunakan font. Tapi VB.
> >
> > Tx
> >
> > --- On Fri, 19/9/08, Harry siswanto <harry.siswanto@ gmail.com> wrote:
> >
> > From: Harry siswanto <harry.siswanto@ gmail.com>
> >
> Subject: [belajar-access] masih ttg barcode di Access
> > To: "belajar-access" <belajar-access@ yahoogroups. com>
> > Date: Friday, 19 September, 2008, 3:44 PM
> >
> >
> > dear all
> >
> > saya punya font barcode dengan nama Code39Slim
> > di MsExcel.. bisa kelihatan di Format Font nya
> >
> > kenapa di MsAccess nggak kelihatan ??
> > bagaimana caranya supaya bisa di pake di MsAccess ??
> >
> > terima kasih sebelumnya.. .
> >
> > harry
> >
> > ________________________________
> > Get your new Email address!
> > Grab the Email name you've always wanted before someone else does!
> >
> >
> > __________________________________________________________
> > Dapatkan alamat Email baru Anda!
> > Dapatkan nama yang selalu Anda inginkan sebelum diambil orang lain!
> > http://mail.promotions.yahoo.com/newdomains/id/
> >
>
Tidak ada komentar:
Posting Komentar