[belajar-access] Re: Action Query Confirmation in AccessRuntime

----- Original Message -----
From: "dayat" <dayat@postgresql-id.org>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, December 09, 2009 9:51 AM
Subject: [belajar-access] Re: Action Query Confirmation in AccessRuntime

> Sori udah ketemu jawabannya, ternyata ada disini
> http://support.microsoft.com/kb/229802 :D hehe
>
> Hidayat
>
> 2009/12/9 dayat <dayat@postgresql-id.org>
>
> > Rekan-rekan Access mania,
> >
> > Setiap melakukan update data melalui DoCmd.RunSQL selalu keluar pesan
> > konfirmasi. Jadinya saya coba hilangkan konfirmasi ini dengan unchecked
pada
> > Access Option, Confirm, Action Query. Nah saat aplikasi siap dan
dideploy ke
> > client menggunakan paket instalasi bersama AccessRuntime, pesan
konfirmasi
> > ini kembali muncul pada komputer client. Pertanyaannya bagaimana caranya
> > untuk menghilangkan pesan konfirmasi ini pada aplikasi AccessRuntime.
> >
> > Trimakasih atas bantuannya
> > Hidayat
> >
>

[belajar-access] Event waktu Print

----- Original Message -----
From: "Ivan Leonardo" <ivan@pttdp.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, December 09, 2009 9:43 AM
Subject: Re: [belajar-access] Event waktu Print

> exz@nt wrote:
> >
> >
> > kalo dibuat 2 button gmn ?
> > button Preview & Print
> > flag cm ditaruh di button Print sj..
> >
> >
> Thanks utk idenya, sy dapat jawaban dari forum luar mungkin bermanfaat
>
> On a report already open in print preview mode, you wish to log the
> print action only if the user has actually gone ahead with final OK in
> print dialog box. If at any stage, the user cancels the print dialog
> box, there should be no activation of print logging routine.
>
> Considering the fact that report header's print event fires afresh for
> each new print-out, your objective can be met by monitoring the print
> event for report header from the second occurrence onwards.
>
> Let F_Report be the name of calling form. Place an unbound text box
> named TxtPreview on this form. Code in click event of command button
> named CmdReport would be as follows:
>
> ' Code in form's module
> '===========
> =======================
> Private Sub CmdReport_Click()
> Me.TxtPreview = Null
> DoCmd.OpenReport "<<NameOfMyReport>>", _
> acViewPreview, , "MyCriteria"
> DoCmd.Maximize
> DoCmd.RunCommand acCmdZoom100
> End Sub
> '==================================
>
> The code in print event of report header section would be as follows:
>
> ' Code in report's module
> '==================================
> Private Sub ReportHeader_Print(Cancel As Integer, _
> PrintCount As Integer)
> With Forms("F_Report")
> If !TxtPreview = "Y" Then
> CurrentDb.Execute "<<SQL_ForActionQuery>>", _
> dbFailOnError
> Else
> !TxtPreview = "Y"
> End If
> End With
> End Sub
> '==================================

[belajar-access] mode cetak langsung ke line printer

----- Original Message -----
From: <budilaks@yahoo.com>
To: <belajar-access@yahoogroups.com>
Sent: Saturday, December 05, 2009 7:47 AM
Subject: Re: [belajar-access] mode cetak langsung ke line printer

hallo, mau jawab ah.
kalo print langsung ke printer, tanpa melalui driver di windows.
maka perhatikan/baca buku dari printer itu.
bagaimana mengirimkan perintah perintah Condensed, font size, dll.dengan
menggunakan character string yang sesuai di buku manual printer tsb.
bila langsung langsung aja, yaa sesuai setting di printer.
atau, printer nya di pencet mode condensed, misalkan.
saya belum sempat bermain dengan perintah tsb, jadi gak bisa kasih contoh
nya.
lakukan test dari command prompt windows anda, lalu mulai ketik perintah
perintah spt yang ada di module anda satu persatu.kemudian kombinasikan
perintah perintah font dll.
cheers,budilaks

[belajar-access] Re: Option Group (radio button) - menangkap bilainya?

----- Original Message -----
From: "aksankurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Tuesday, December 01, 2009 10:50 AM
Subject: [belajar-access] Re: Option Group (radio button) - menangkap
bilainya?

@mbak sri,
sebenarnya apa yang anda lakukan ?
jika pertanyaan anda mengenai option group, maka bentuk kontrolnya berupa
sebuah frame dengan beberapa option button di dalamnya.

+--Nama Group-----------+
| |
| ( ) Option 1 |
| |
| ( ) Option 2 |
| |
+-----------------------+

Misalkan nama framenya adalah fraJenisPerawatan, nilai option value setiap
option button adalah berturut-turut 1 dan 2 (default), maka seharusnya kode
anda seperti:

select case fraJenisPerawatan
case 1: rst![jenis_perawata n] = "PM"
case 2: rst![jenis_perawata n] = "PB"
case else: rst![jenis_perawata n] = ""
end select

Jadi bukan nge-trap kode di setiap option button, tetapi cukup dari
frame-nya saja.
pergunakan event frame_on_klik.

aksan kurdin

[belajar-access] Re: tanya update stok barang

----- Original Message -----
From: "aksankurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Tuesday, December 01, 2009 11:06 AM
Subject: [belajar-access] Re: tanya update stok barang

> penyelesaian sederhana bisa anda lakukan melalui catch event before update
dari form isian detail penjualan barang. anda bisa mengecek saldo dari tabel
master barang untuk menentukan boleh tidaknya lanjut isi penjualan.
>
>
> sub formanu_beforeupdate(cancel as integer)
> dim dummy as integer
> dummy = nz(dlookup("saldo","tabelbarang","kodebarang='" &
me.txtKodeBarang & "'"),0)
> if dummy < me.txtQuantity then
> msgbox "Barang tidak cukup"
> cancel = -1
> endif
> end sub
>
> sub formanu_afterupdate
> docmd.runsql "UPDATE tabelbarang SET saldo = saldo - " &
me.txtQuantity & " WHERE kodebarang = '" & me.txtKodeBarang & "'"
> end sub
>