Menampilkan Jumlah Karakter

Mungkin anda memiliki sebuah Field dalam tabel yang memiliki tipe data memo, dimana field dengan tipe data Memo dapat menampung karakter hingga 65.535, lalu ada saat dimana anda ingin agar user mengetahui berapa karakter yang telah digunakan dalam field tersebut, atau mungkin juga anda ingin user diberitahu tentang berapa jumlah karakter yang telah digunakan, hal ini tentu (misalnya) agar user tidak melebihi batas jumlah karakter dari textbox tersebut. Oleh karena itu penulis coba sharing tentang cara menampilkan jumlah karakter yang digunakan dalam sebuah textbox didalam form.

Disini penulis gunakan sebuah label untuk menunjukkan atau menampilkan jumlah karakter yang telah digunakan pada textbox yang diinginkan, anda bisa menggunakan textbox, akan tetapi penulis sih lebih memilih label, biar ga ada pengaturan-pengaturan lainnya seperti jika menggunakan textbox, maka kalau kita tidak mau textbox tersebut tidak dapat diakses oleh user, maka kita harus mengatur properti enabled dan locked dari textbox tersebut terlebih dahulu dan jika diperlukan maka kita juga harus mengatur properti tab stopnya, lumayan ribet kan ? makanya penulis lebih memilih label untuk keperluan ini biar ga ribet gitu heheheh. Tapi kalau anda tetap "ngotot" mau pake textbox, ya ga apa-apa, sah-sah aja, halal dan ga ada yang ngelarang kok :)

Caranya sangat simpel dan sederhana, berikut adalah caranya :

Misalkan kita anggap textbox yang ingin diketahui jumlah penggunaan karakternya bernama txtKata

1. Dalam Form anda, buat sebuah label yang bernama lblJmlKarakter

(Anda juga bisa menggunakan Textbox, dan namanya juga terserah anda -> sukasuka aja)

2. Lalu pilih [Event Procedure] pada event OnChange dari textbox txtKata, dan masukkan code berikut ini :

          Me.txtKata.SetFocus

          If IsNull(Me.txtKata.Text) Then

          Me.lblJmlKarakter.Caption = "0 Karakter yang digunakan"

          Else

          Me.lblJmlKarakter.Caption = Len(Me.txtKata.Text) & " Karakter yang digunakan"

          End If

Sehingga code anda akan menjadi seperti ini :

          Private Sub txtKata_Change()

          Me.txtKata.SetFocus

          If IsNull(Me.txtKata.Text) Then

          Me.lblJmlKarakter.Caption = "0 Karakter yang digunakan"

          Else

          Me.lblJmlKarakter.Caption = Len(Me.txtKata.Text) & " Karakter yang digunakan"

          End If

          End Sub

3. Tambahkan juga code diatas pada event OnCurrent dari form anda, hal ini untuk menampilkan jumlah karakter dari textbox tersebut pada record yang lainnya, Pada saat anda atau user berpindah dari satu record ke record yang lainnya.

          Private Sub Form_Current()

          Me.txtKata.SetFocus

          If IsNull(Me.txtKata.Text) Then

          Me.lblJmlKarakter.Caption = "0 Karakter yang digunakan"

          Else

          Me.lblJmlKarakter.Caption = Len(Me.txtKata.Text) & " Karakter yang digunakan"

          End If

          End Sub

4. Selesai, klik save dan test code.

5. Langkah Opsional :

Jika dibutuhkan, anda bisa menambahkan code tersebut kedalam event AfterUpdate dari Textbox txtKata.

Dan jika yang anda gunakan adalah textbox, maka tidak perlu menambahkan .Caption

Untuk contoh filenya bisa didownload dari 4shared.

Adapted from : databasedev

Semoga Bermanfaat...

Read more »

Mencegah Error 2501

Dalam tulisan sebelumnya, penulis sudah membahas tentang cara untuk mencegah pencetakan atau preview report jika reportnya tidak memiliki data (istilah bahasa inggrisnya Trap Error).

kali ini, penulis akan bahas cara penanganan error yang terjadi ketika macro tersebut berjalan, yang biasanya berupa tambahan MsgBox setelah MsgBox Macro dijalankan, lalu Access juga akan menampilkan Message "The OpenReport action was canceled." seperti dibawah ini :

Berikut adalah cara agar Pesan diatas tidak ditampilkan.
Sebelumnya jika anda membuat Command Button menggunakan Wizard, lalu memilih Print Report, maka Code dari Command button anda akan seperti dibawah ini :
Private Sub cmdPrintReport_Click()
On Error GoTo Err_cmdPrintReport_Click

    Dim stDocName As String

    stDocName = "rptBulanan"
    DoCmd.OpenReport stDocName, acNormal

Exit_cmdPrintReport_Click:
    Exit Sub

Err_cmdPrintReport_Click:
    MsgBox Err.Description
    Resume Exit_cmdPrintReport_Click
   
End Sub

Untuk menghentikan Access menampilkan pesan "The OpenReport action was canceled.", salah satu caranya adalah anda harus mengetahui nomor dari Error Code tersebut, yang dalam hal ini adalah 2501, lalu menambahkan sedikit code pada bagian Error Handler dari code aslinya, agar ketika error yang terjadi adalah error dengan nomor 2501, maka akan dilakukan hal yang kita inginkan. Misalnya kita ingin agar pesan "The OpenReport action was canceled." tidak tampil, maka kita bisa gunakan, Resume Next, atau Exit Sub, atau yang lainnya. contoh modifikasi codenya adalah sebagai berikut :

- Menggunakan Resume Next :
......

Err_cmdPrintReport_Click:

    If Err.Number = 2501 Then

    Resume Next

    Else
    MsgBox Err.Description
    Resume Exit_cmdPrintReport_Click
    End If
End Sub

- Menggunakan Exit Sub :

......

Err_cmdPrintReport_Click:

    If Err.Number = 2501 Then

    Exit Sub

    Else
    MsgBox Err.Description
    Resume Exit_cmdPrintReport_Click
    End If
End Sub

Sehingga codenya akan menjadi seperti ini :

- Menggunakan Resume Next :

Private Sub cmdPrintReport_Click()
On Error GoTo Err_cmdPrintReport_Click

    Dim stDocName As String

    stDocName = "rptBulanan"
    DoCmd.OpenReport stDocName, acNormal

Exit_cmdPrintReport_Click:
    Exit Sub

Err_cmdPrintReport_Click:

    If Err.Number = 2501 Then

    Resume Next

    Else
    MsgBox Err.Description
    Resume Exit_cmdPrintReport_Click
    End If
End Sub

- Menggunakan Exit Sub :

Private Sub cmdPrintReport_Click()
On Error GoTo Err_cmdPrintReport_Click

    Dim stDocName As String

    stDocName = "rptBulanan"
    DoCmd.OpenReport stDocName, acNormal

Exit_cmdPrintReport_Click:
    Exit Sub

Err_cmdPrintReport_Click:

    If Err.Number = 2501 Then

    Exit Sub

    Else
    MsgBox Err.Description
    Resume Exit_cmdPrintReport_Click
    End If
End Sub

Anda juga bisa menggunakan fungsi Select Case dari Err Number untuk menangani masalah error diatas atau error lainnya.

Semoga Bermanfaat...

Read more »

Macro Untuk Report Tanpa Data

Jika anda pernah mengalami ketika anda mencetak sebuah laporan atau report dalam suatu aplikasi, namun ketika dicetak, tidak ada datanya, hanya mencetak nama perusahaan dan yang lainnya, tetapi tidak ada data yang tercetak, jika anda mengira telah terjadi error pada aplikasinya, mungkin anda harus mengecek terlebih dahulu apakah memang benar anda telah memasukkan kriteria yang benar dan data dalam database aplikasi tersebut memang ada atau tidak. Jika memang sebenarnya itu adalah kesalahan anda, tentunya anda tidak boleh marah-marah dong, dan jika memang ternyata anda telah benar memasukkan kriterianya dan datanya anda sangat yakin dan dapat dipertanggung jawabkan keyakinan anda tersebut, maka bisa jadi pembuat aplikasi yang anda gunakan tidak memasukkan fitur untuk mencegah tercetaknya report jika report tersebut tidak memiliki data. Untuk itu (jika anda juga seorang pembuat aplikasi dan anda belum mengetahui trik untuk hal tersebut) anda bisa pelajari hal tersebut dibawah ini, agar anda satu langkah lebih baik dari pembuat aplikasi yang anda gunakan :)
Kali ini penulis akan sedikit membahas tentang cara mencegah report yang tidak memiliki data untuk ditampilkan atau dicetak.

Dalam menu Help MS. Access sudah ada penjelasan tentang cara untuk mencegah pencetakan report, jika report tersebut tidak memiliki data. Salah satu caranya adalah dengan menggunakan Macro, penulis pun masih menggunakan cara ini, khususnya ketika penyakit "malas coding" lagi kambuh :)

Untuk anda yang mungkin lagi lupa dengan cara membuat Macro-nya, berikut penulis ingatkan lagi :
1. Dalam Jendela Database Window, klik Macro, lalu klik New, maka akan tampil jendela pembuatan Macro :

2. Dalam kolom Action pilih MsgBox (untuk kolom Comment boleh diisi, boleh tidak). Setelah anda pilih MsgBox, maka dibagian bawah ada kolom Arguments, yang berisi :
- Message : Teks pesan/keterangan dalam MsgBox (kata-katanya bebas, suka-suka anda)
- Beep : Untuk mengeluarkan suara saat Macro dijalankan
- Type : Jenis pesan yang mau ditampilkan
- Title : penulis lebih mengartikannya dengan judul dari pesan yang ditampilkan :)
berikut adalah versi penulis :

 

3. Baris berikutnya dalam kolom action, anda pilih CancelEvent (untuk kolom Comment boleh diisi, boleh tidak). Dan berikut adalah versi penulis :

4. Klik Save, lalu beri nama Macro-nya, disini penulis selalu memberikan nama mcrNoData, berikut adalah contoh Macro yang penulis buat ketika dijalankan :

 

Penerapan Macro ini (mcrNoData) dalam report adalah dengan mengatur Event On No Data dalam Event Property dari report lalu memilih Macro yang telah kita buat sebelumnya.


Semoga Bermanfaat...

Read more »

Penulisan Kriteria Fungsi

Mungkin ada yang masih sedikit kebingungan atau mengalami error ketika membuat sebuah fungsi yang menggunakan kriteria, untuk itu disini penulis coba sedikit menjelaskan tentang penulisan kriteria dalam fungsi.

Misalnya kita akan membuat sebuah fungsi DlookUp untuk textbox yang bernama txtHasil dengan kriteria-kriteria. Struktur fungsi DlookUp-nya adalah sebagai berikut :

DLookUp("Nama Field dalam tabel", "Nama tabelnya", "[Kriteria]")

jadi struktur codenya akan seperti ini:

txtHasil = DLookUp("Nama Field dalam tabel", "Nama tabelnya", "[Kriteria]")

Kita asumsikan field yang akan dituju bernama Nama_User, dan tabelnya bernama tblUser, serta kata pencariannya adalah User, maka codenya seperti ini:

txtHasil = DLookUp("Nama_User", "tblUser", "[Nama_User]='User'")

jika kata pencariannya berupa string dalam textbox yang bernama txtNama, maka codenya seperti ini :

txtHasil = DLookUp("Nama_User", "tblUser", "[Nama_User]='" & txtNama & "'")

jika kata pencariannya berdasarkan string dalam textbox txtLevel tetapi field yang jadi kriterianya field lain dalam tabel yang sama. misalnya field Level_User dalam tblUser, maka codenya seperti ini:

txtHasil = DLookUp("Nama_User", "tblUser", "[Level_User]='" & txtLevel & "'")

yang perlu anda ingat dalam menuliskan kriteria adalah penggunaan operator penghubungnya harus sesuai dengan tipe data dari field kriterianya.
jika tipe datanya string, maka operator penghubungnya adalah tanda petik tunggal (')
jika tipe datanya tanggal, maka operator penghubungnya adalah tanda pagar (#)
jika tipe datanya numeric, maka tidak menggunakan operator penghubung
contohnya :
untuk tipe data string :

txtHasil = DLookUp("Nama_User", "tblUser", "[Level_User]='" & txtLevel & "'")

untuk tipe data tanggal :

txtHasil = DLookUp("Nama_User", "tblUser", "[Tanggal_Masuk]=#" & txtTanggal & "#")

untuk tipe data numeric :

txtHasil = DLookUp("Nama_User", "tblUser", "[Nomor_User]=" & txtNomor)

Jika kriteria yang anda inginkan ada 2, maka penulisan codenya seperti ini :

txtHasil = DLookUp("Nama_User", "tblUser", "[Level_User]='" & txtLevel & "' And [Tanggal_Masuk]=#" & txtTanggal & "#")

Format diatas juga berlaku untuk fungsi yang lainnya sseperti DCount, Dmax dan lainnya

Semoga Bermanfaat...

Read more »

Jumlah Pencetakan Report

Cetak Report Dengan Kriteria Jumlah Pencetakan Didalam Form

Kali ini kita akan bahas cara mencetak sebuah laporan/report dengan jumlah banyak pencetakannya tergantung dari sebuah Textbox dalam form.
Cara berikut ini sangat sederhana, hanya dengan menggunakan fungsi For ... Next.
Berikut adalah caranya :
Misalkan anda telah membuat sebuah report menggunakan Wizard dengan nama report rptUser, dan sebuah command button untuk mencetak report tersebut dengan nama cmdPrintReport.
1. Buat sebuah textbox dengan nama txtJmlPrint dalam form, lalu atur Format Property-nya menjadi General Number, dengan Default Value = 1
2. Lalu dalam event OnClick dari command button yang akan digunakan untuk mencetak laporan/report (cmdPrintReport), tambahkan code berikut ini :

Dim stDocName As String, Dim intJmlPrint As Integer

intJmlPrint = txtJmlPrint

stDocName = "rptUser"

If intJmlPrint < 1 Or intJmlPrint > 255 Then
MsgBox "Jumlah pencetakan minimal 1 lembar dan maksimal 255 lembar"
Else
    For intJmlPrint = 1 To intJmlPrint
    DoCmd.OpenReport stDocName, acNormal
    Next intJmlPrint
End If

Sehingga seluruh code pada event OnClick cmdPrintReport akan menjadi seperti ini :

Private Sub cmdPrintReport_Click()
On Error GoTo Err_cmdPrintReport_Click
Dim stDocName As String, intJmlPrint As Integer
stDocName = "rptUser"
intJmlPrint = txtJmlPrint
If intJmlPrint < 1 Or intJmlPrint > 255 Then
MsgBox "Jumlah pencetakan minimal 1 lembar dan maksimal 255 lembar"
Else
    For intJmlPrint = 1 To intJmlPrint
    DoCmd.OpenReport stDocName, acNormal
    Next intJmlPrint
End If
Exit_cmdPrintReport_Click:
    Exit Sub

Err_cmdPrintReport_Click:
    MsgBox Err.Description
    Resume Exit_cmdPrintReport_Click
End Sub

3. Klik Save dan test.

Semoga Bermanfaat...

Read more »

Menulis String SQL

Kadang kala kita merasa bingung atau mungkin sedikit "malas" untuk menuliskan sebuah string yang akan kita gunakan untuk memfilter data berdasarkan banyak kriteria, dan mungkin juga kita akan sedikit kesulitan jika datanya berasal dari 2 tabel atau lebih.

dibawah ini adalah cara penulis untuk mendapatkan sebuah string criteria, ketika penulis merasa sedikit "malas" untuk mengetik :)

misalnya penulis ingin memfilter data karyawan dengan kriteria nama bagian tertentu, jabatan tertentu, periode tanggal masuk karyawan dan juga gaji pokok diatas 1 juta.

untuk memfilter data seperti diatas lalu menampilkannya dalam form, maka penulis harus mengetik seperti dibawah ini :

SELECT tblKaryawan.Nomor_Induk, tblKaryawan.Nama_Karyawan, tblKaryawan.Jenis_Kelamin, tblKaryawan.Nama_Bagian, tblKaryawan.Nama_Jabatan, tblKaryawan.Tanggal_Masuk, tblKaryawan.Status_Kerja, tblKaryawan.Status_Kawin, tblKaryawan.Jumlah_Gapok FROM tblKaryawan WHERE (((tblKaryawan.Nama_Bagian)=[Forms]![frmFilterData]![cboNamaBagian]) AND ((tblKaryawan.Nama_Jabatan)=[Forms]![frmFilterData]![cboNamaJabatan]) AND ((tblKaryawan.Tanggal_Masuk)>=[Forms]![frmFilterData]![txtTglAwal] And (tblKaryawan.Tanggal_Masuk)<=[Forms]![frmFilterData]![txtTglAkhir]) AND ((tblKaryawan.Jumlah_Gapok)>1000000));

untuk mendapatkan string seperti diatas, yang biasa penulis lakukan jika sedang "malas" adalah sebagai berikut :

1. Buat sebuah Form baru dengan cara klik dua kali pada Create form in Design view.

2. Masukkan sebuah ComboBox/ListBox, lalu pilih I want the combo box to look up the values in table or query

3. Pilih tabel yang akan digunakan (untuk sementara pilih 1 tabel dulu)

4. Atur Field2 yang dibutuhkan sampai selesai (Finish) dalam membuat ComboBox/ListBox

5. Setelah ComboBox/ListBox terbuat, klik kanan pada ComboBox/ListBox lalu pilih properties

6. Klik dibagian RowSource, lalu klik [...] disebelah kanannya

7. Maka anda akan dibawa ke menu Query design

8. Lalu penulis masukkan kriteria2 yang penulis butuhkan, jika anda butuh tabel lain, maka anda bisa menambahkannya sekarang dengan cara klik Toolbar Show Table, atau klik kanan diarea kosong Query design lalu pilih show table.

9. Setelah selesai memasukkan kriteria2 yang dibutuhkan, langsung klik tombol X merah dipojok kanan atas jendela query builder, lalu pilih Yes. yang harus diingat, anda jangan menyimpannya dengan mengklik toolbar save atau menu File>Save, karena jika hal ini anda lakukan, maka Access akan menyimpannya dalam bentuk query.

10. Setelah selesai, anda tinggal arahkan atau blok bagian RowSource lalu mengcopynya, untuk yang penulis lakukan, maka penulis akan mendapatkan string seperti diatas. Jadi tidak perlu repot-repot untuk menuliskannya secara manual satu persatu.

Namun anda jangan meniru "malasnya" penulis ya, malas itu tidak baik, dan harus dihindari, Semangat... :)

Semoga Bermanfaat...

Read more »

Menghitung Dalam Form

Untuk menghitung dalam form access kita tidak bisa menggunakan formula Sum seperti dalam report (penulis juga kurang tahu apa sebabnya). jika kita paksakan menggunakan formula Sum maka hasilnya akan terjadi error value.

untuk menghitung dalam form access kita bisa gunakan tanda plus(+) dalam visual basic editor, misalnya :

TextBox1 = TextBox2 + TextBox3 + TextBox4

yang harus anda ingat adalah tipe data atau format dari TextBox yang akan dijumlahkan haruslah bertipe data atau formatnya yang berkaitan dengan angka/numeric, misalnya :

Tipe Data : Byte, Single, Double, Long, Integer, Long

Format : General Number, Currency, Euro, Fixed, Standard, Percent, Scientific

Misalnya, dalam visual basic editor, jika ada field yang akan dijumlahkan berasal dari sebuah tabel dan anda menggunakan fungsi DlookUp, maka anda harus mendeklarasikannya sebagai tipe data yang berkaitan dengan numeric misalnya Single, Double, Integer atau yang lainnya sesuai dengan kebutuhan anda, karena jika anda mendeklarasikannya selain dari tipe data numeric, maka yang akan anda dapatkan adalah penggabungan nilai dan bukannya penghitungan, hal ini karena tanda plus(+) dalam visual basic editor akan dianggap seperti tanda ampersand(&), apalagi jika tipe data atau formatnya berupa string. Misalnya jika format dari textbox belum anda rubah menjadi format yang berhubungan dengan angka, maka jika anda gunakan fungsi perhitungan, hasil yang akan anda dapatkan adalah penggabungan nilai atau value dari textbox-textbox yang anda masukkan.
Contohnya :
Ada 3 buah Textbox, masing-masing bernama Textbox1, Textbox2, Textbox3. Ketiga textbox tersebut belum anda rubah formatnya, yang berarti formatnya adalah default dari access. Lalu anda ingin agar nilai dari Textbox1 adalah penjumlahan dari Textbox2 dan Textbox3, lalu anda masukkan rumus berikut ini :

Me.Textbox1 = Me.Textbox2 + Me.Textbox3

Lalu anda test, dengan memasukkan angka 10 pada Textbox2, dan angka 5 pada Textbox3, yang tentunya dengan harapan pada saat rumus diatas dijalankan, anda akan mendapatkan angka 15 pada Textbox1, namun kenyataan yang akan anda dapatkan pada Textbox1 adalah 105. Hal ini karena format dari masing-masing textbox yang dijumlahkan masih default dari access (berupa string), sehingga access memang tidak salah dalam hal ini, karena string 10 jika digabungkan dengan string 5 hasilnya adalah 105, sama seperti jika kita ingin menggabungkan (misalnya) Textbox2 stringnya Nugie dengan Textbox3 stringnya Abadi, Jika anda gunakan rumus diatas, maka hasilnya pasti menjadi NugieAbadi, karena seperti yang penulis katakan diatas tadi, tanda + ekuivalen dengan tanda &, apalagi untuk format atau tipe data string.

Semoga Bermanfaat...

Read more »

Zoom Preview Report

Zoom preview report menggunakan acCmdZoom

Kali ini penulis akan membahas tentang bagaimana caranya meminimize atau memaximize jendela preview dari sebuah report, dimana mungkin anda butuhkan, karena defaultnya preview dari access adalah fit to window, sehingga ada kalanya kita membutuhkan untuk memperbesar tampilan previewnya, misalnya menjadi 100% atau lebih atau kurang.

Dibawah ini adalah salah satu cara untuk kita men-zoom preview sebuah report, yaitu dengan menggunakan acCmdZoom. perlu diingat jika metode ini akan tetap tereksekusi jika report kita tidak ada datanya, dan walaupun kita telah menempatkan macro atau code yang "melarang" tampilnya report jika tidak ada datanya. Jadi lebih baik anda pastikan terlebih dahulu, jika metode ini digunakan untuk report yang pasti selalu ada datanya. Namun jika menurut anda hal tersebut tidak menjadi masalah, maka silahkan anda ikuti trik berikut ini.

Nilai Zoom dari preview report yang bisa kita tentukan adalah : 10, 25, 50, 75, 100, 150, 200, 500 atau 1000 (dalam persen "%")

Gambar berikut adalah hasil Zoom Preview 100%

Caranya adalah sebagai berikut :

1. Anda buat sebuah Command Button dalam form untuk mem-Preview Report menggunakan Wizard dari Access

2. Setelah selesai anda masuk ke jendela visual basic editor

3. Code anda akan seperti dibawah ini :

     Private Sub cmdPreview_Click()
     On Error GoTo Err_cmdPreview_Click

         Dim stDocName As String

         stDocName = "rptUserGroup"
         DoCmd.OpenReport stDocName, acPreview
       
     Exit_cmdPreview_Click:
         Exit Sub

     Err_cmdPreview_Click:
         MsgBox Err.Description
         Resume Exit_cmdPreview_Click
     End Sub

 4. Lalu anda tambahkan code berikut ini

         DoCmd.Maximize
         DoCmd.RunCommand acCmdZoom100

dimana angka 100 dibelakang acCmdZoom menunjukkan 100%, anda bisa ganti dengan angka yang lain sesuai dengan kebutuhan anda, misalnya anda hanya ingin zoom previewnya 75%, maka anda ganti menjadi acCmdZoom75.

sehingga code anda akan menjadi seperti ini (untuk 100%) :

     Private Sub cmdPreview_Click()
     On Error GoTo Err_cmdPreview_Click

         Dim stDocName As String

         stDocName = "rptUserGroup"
         DoCmd.OpenReport stDocName, acPreview
         DoCmd.Maximize
         DoCmd.RunCommand acCmdZoom100
       
     Exit_cmdPreview_Click:
         Exit Sub

     Err_cmdPreview_Click:
         MsgBox Err.Description
         Resume Exit_cmdPreview_Click
     End Sub

Jika anda tidak mau membuat command button menggunakan wizard atau anda telah membuat command button tersebut, maka yang tinggal anda lakukan adalah menambahkan dua baris code diatas kedalam command button anda yang akan mempreview report anda, anda letakkan dibawah code yang seperti ini :

DoCmd.OpenReport "NamaReportnya", acPreview

Sehingga  code anda akan menjadi seperti ini :

DoCmd.OpenReport "NamaReportnya", acPreview

DoCmd.Maximize

DoCmd.RunCommand acCmdZoom100

Refference : databasedev

Semoga Bermanfaat...

Read more »