Membuat modul terbilang pada form

1.       Buat modulTerbilang copy paste dari module tersebut: ­­­­­­­­­

module terbilang

Public Function terbilang(ByVal MyNumber, ByVal vmatauang)
Dim MataUang As String, cMataUang As String
Dim Rupiah, sen, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Dim a As Long

cMataUang = vmatauang
If cMataUang = “IDR” Then
MataUang = ” rupiah”
ElseIf cMataUang = “USD” Then
MataUang = ” dolar”
ElseIf cMataUang = “JPY” Then
MataUang = ” yen”
ElseIf cMataUang = “SGD” Then
MataUang = ” dolar singapura”
ElseIf cMataUang = “GBP” Then
MataUang = ” poundsterling”
ElseIf cMataUang = “EUR” Then
MataUang = ” euro”
Else
MataUang = ” “
End If

Hitung rupiah dalam pecahan nominal

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).

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]));