Re: [belajar-access] Re: Print Kertas Roll

Dengan mau memberikan kailnya saja saya sangat berterimakasih mas.

berikut yg saya tidak faham dengan yg ada "bla...bla...bla", harus diisi apa?

"dbOpenSnapshot" apa harus begitu ato diganti?

Bisa dijelaskan yg no 2? ini looping tapi saya tidak memahaminya.

1. Set rst = dbs.OpenRecordset("bla..bla..bla", dbOpenSnapshot)

2. Do While Not rst.EOF

regards

CW

Pada 8 Oktober 2010 10.07, aksankurdin <aksan.kurdin@gmail.com> menulis:

 

bukannya gak mau, tapi saya mau kasih kailnya aja, bukan ikan.

ayo sama2 kita bongkar kodenya. coba bagian mana yang mengerti dan bagian mana yang tidak mengerti. kalau bisanya dari proses, bekasnya dalam, tapi kalau bisanya karena instan, cepat lupanya.

aksan kurdin

--- In belajar-access@yahoogroups.com, Cecep W <cepwahyu@...> wrote:
>
> Nah itu dia masalahnya Mas...saya faham sebagian dan sebagian lagi tidak
> begitu faham...maklum saja tidak ada basic programmer, saya belajar VBA dari
> para master di milis ini dan alhamdulillah semakin hari semakin bertambah
> ilmunya.
> karena di Coding ini ada Bla..bla...bla-nya dan dst..dst saya tidak
> begitu faham harus diisi apa. kalo Mas Aksan Berkenan sudilah
> kiranyanya memandu
> langsung menerapkan coding ini di sampel Database yg saya lampirkan. Syukur2
> bisa menjelaskan maksud dari setiap baris perintah itu. terus terang saya
> masih meraba-raba cara penerapan Looping.
>
> Regards
> CW
>

> Pada 8 Oktober 2010 09.34, Aksan Kurdin <aksan.kurdin@...> menulis:

>
> >
> >
> > Menerapkannya mudah saja, fungsi seperti ini tinggal di taruh di event
> > click suatu command prompt, tentu saja dengan modifikasi sesuai kebutuhan.
> > Tapi sebelumnya, biar tidak kopi paste saja, kang cecep paham kan dengan
> > maksud setiap baris perintah di kode tersebut ?
> >
> >
> > aksan kurdin
> >
> >
> >
> > On 10/8/2010 8:17 AM, Cecep W wrote:
> >
> >
> > Dear Pakar Access semua
> > saat ini saya sedang belajar membuat program kasir,
> > ada satu masalah yg belum saya fahami yaitu masalah print langsung ke
> > kertas roll, sebenarnya saya sudah nemu codingnya di milis ini namun saya
> > masih bingung menerapkanya.
> > Coding-nya sbb:
> > Function PrintLangsung()
> > Dim dbs As Database
> > Dim rst As Recordset
> > Dim NoTrans As String
> >
> > 'buka dulu tabel-tabel yg berhubungan dengan form Kasir
> > Set dbs = CurrentDb()
> > Set rst = dbs.OpenRecordset("bla..bla..bla", dbOpenSnapshot)
> >
> > With rst
> > NoTrans = rst!NoTransaksi
> >
> > 'kemudian lain-lainnya sama, yaitu buka dulu LPT1nya
> > Open "LPT1" For Output As #1
> > Print #1, " XXX SWALAYAN "
> > Print #1, NoTrans & " " & Date & Time
> > 'ini untuk detail transaksinya
> > .MoveFirst
> > Do While Not rst.EOF
> > Print #1, rst!NamaBarang
> > Print #1, rst!Quantity & "x " &
> > Format(rst!HargaJual,"#,###") & " " & Format(rst!
> > Total, "#,###")
> > .MoveNext
> > Loop
> > 'dst dst dst
> >
> > sudilah kiranya mengajarkan bagaimana penerapannya.
> > berikut saya lampirkan contoh file-nya.
> >
> > Saya memakai printer Epson LQ-2180
> >
> > Regards
> > CW
> >
> >
> >
> >
> >
>

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___