Arsip

Arsip untuk November 19, 2010

Hitung rupiah dalam pecahan nominal

November 19, 2010 2 komentar
Dear para Master dan rekan,
Perkenalkan saya baru di dunia pemrograman access, mohon bantuannya untuk memecahkan problem hitung rupiah dalam pecahan nominal.

Honor Sri Purwanti sebesar Rp 1.225.600 (terlampir file .xls dengan function rounddown)
terdiri dari pecahan nominal:
100.000=12
50.000=0
20.000=1
10.000=0
5.000=1
2.000=0
1.000=0
500=1
200=0
100=1

50=0

Atas attensi para Master dan rekan saya ucapkan banyak terima kasih.

Solusinya:

New Form

Buat :  New Form,  Textbox Nilai name txtNilai, Textbox 100.000 s/d 50  name text2 sd text21 dengan kondisi (Control source unbound). [lagi...]

Categories: Tutorial Ms Access

Form Tab Propinsi, Kabupaten, Kecamatan

kawan2 pendekar access….
ada gak contoh form terdiri dari 3 Tab.
Tapi tiap tab 2 merefer ke tab 1, tab 3 merefer ke tab 2.
Kasus:
Saya punya 3 table : Tbl_propinsi, tbl_kabupaten, tbl_kecamatan
Nah saya ingin membuat 3 Tab.
Pada Tab 1 saya pilih Propinsi Jawa Timur, maka di Tab 2 tampil Kabupaten yg ada di Prop Jawa Timur
Pada tab 2 saya pilih Kabupaten Banyuwangi, maka di Tab 3 tampil semua kecamatan di Kab Banyuwangi, dst….
Thx kalau ada yg bisa ngasih saya contoh.

Solusi ini mungkin bisa membantu:

1.      Buat  3 table, tblKabupaten, tblKecamatan, tblPropinsi dengan ID =Autonumber (PK) dan relationship seperti  tampak pada gambar dibawah.

2.      Query1: SELECT tblPropinsi.Propinsi, tblKabupaten.Kabupaten, tblKecamatan.Kecamatan
FROM tblPropinsi INNER JOIN (tblKabupaten INNER JOIN tblKecamatan ON tblKabupaten.ID = tblKecamatan.IDKab) ON tblPropinsi.ID = tblKabupaten.IDPropinsi;

QueryTab2: SELECT tblKabupaten.ID, tblKabupaten.Kabupaten, tblKabupaten.IDPropinsi
FROM tblKabupaten
WHERE (((tblKabupaten.IDPropinsi)=[Forms]![Frm_Tab]![combo7]));

QueryTab3: SELECT tblKecamatan.ID, tblKecamatan.Kecamatan, tblKecamatan.IDKab
FROM tblKecamatan
WHERE (((tblKecamatan.IDKab)=[forms]![Frm_Tab![combo12]));

 

 

 
[lagi...]

Categories: Tutorial Ms Access
Ikuti

Get every new post delivered to your Inbox.