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

Posted in: tips n trik