Microsoft access tutorial: Membatasi Jumlah Inputan Pada Text Box

Microsoft access tutorial kali ini kita akan membahas, bagaimana membatasi jumlah karakter inputan baik pada Text Box maupun Combo Box. Untuk lebih fokus saat ini kita terfokus microsoft access tutorial untuk membatasi karakter inputan pada text box.

Latar belakang pembuatan microsoft access tutorial tentang: membatasi jumlah karakter input pada tex box ini adalah pengalaman pribadi pengembang sebagai seorang pengembang program dengan menggunakan microsoft access, dimana suatu ketika sempat kaget karena melihat inputan pada kode barang, yang seharusnya jumlah karakternya sama, tapi sangat banyak yang tidak beraturan. Ada yang jumlah karakternya 8 digit, ada yang cuma 5 digit dlsb.

Nah dari pengalaman tersebut maka saya mencoba pada microsoft access tutorial kali ini tentang bagaimana membatasi jumlah karakter input pada tex box.

Persiapan:
- Bagi belum mempunyai aplikasi microsoft accessnya silahkan download microsoft access nya, baik yang microsoft access 2010, atau yang terbaru bisa download microsoft access 2013, atau sekarang yang paling baru microsoft access 2016. yang biasanya (1 bundel dengan microsoft officenya).

- Jika aplikasi microsoft accessnya sudah siap, kita bisa memulai microsoft access tutorial ini, dengan mengikuti materi microsoft access yang akan kami paparkan.

Mari kita belajar microsoft access bersama, kamipun menyadari bahwa pada microsoft access tutorial kami ini, masih sangat banyak kekurangan, mari kita bahas cara menggunakan microsoft access dan tentunya masih sesuai dengan tema kita, yaitu masih berkaitaan dengan VBA.

Jika teman-teman yang masih belum begitu paham tentang microsoft access, ada baiknya silahkan pelajari terlebih dahulu tentang sejarah microsoft access, dan setiap perkembangan dan versi terbarunya.

Microsoft access tutorial: Membatasi Jumlah Inputan Pada Text Box

Harus diingat bahwa terdapat ada dua sub:
1. Sub LimitKeyPress

Sub LimitKeyPress(ctl As Control, iMaxLen As Integer, KeyAscii As Integer)
    ' Fungsi:  Membatasi inputan pada setiap unbound text box/combo.
    ' Penggunaan:   KeyPress Kontrol di  event procedure pada text box/combo:
    If Len(ctl.Text) - ctl.SelLength >= iMaxLen Then
        If KeyAscii <> vbKeyBack Then
            KeyAscii = 0
            Beep
        End If
    End If
End Sub

2. Sub LimitKeyPress

Sub LimitChange(ctl As Control, iMaxLen As Integer)
On Error GoTo Err_LimitChange
    ' Penggunaan:    Pada event procedure Changer:

    If Len(ctl.Text) > iMaxLen Then
        MsgBox "Dipotong menjadi " & iMaxLen & " Karakter.", vbExclamation, "Text terlalu panjang"
        ctl.Text = Left(ctl.Text, iMaxLen)
        ctl.SelStart = iMaxLen
    End If

Exit_LimitChange:
    Exit Sub

Err_LimitChange:
    Resume Exit_LimitChange
End Sub

Cara penerapan 2 sub procedure tersebut pada sebuah form

Silahkan sesuaikan dengan nama text box pada form anda:

- Memanggil fungsi dari sub 2 :

Private Sub KODE_BARANG_Change()
    Call LimitChange(Me.KODE_BARANG, 8)
End Sub

Ket: angka 8 diatas artinya batas maksimal jumlah karakter yaitu 8 digit.

- Memanggil fungsi dari sub 1:

Private Sub KODE_BARANG_KeyPress(KeyAscii As Integer)
     Call LimitKeyPress(Me.KODE_BARANG, 8, KeyAscii)
End Sub

Ket: angka 8 diatas artinya batas maksimal jumlah karakter yaitu 8 digit.


Baiklah!. Jika sudah selesai sesuai dengan Microsoft access tutorial kali ini: Membatasi Jumlah Inputan Pada Text Box. Silahkan coba program access anda bisa dicoba untuk dijalankan.

Mungkin teman Microsoft access tutorial bertanya!. kok kode program kepanjangan ya? hanya untuk membatasi inputan pada text box saja, ada enggak sih cara yang lebih simpel?!..

Jawabannya Alhamdulillah ada!.. nah Microsoft access tutorial silahkan simak dibawah ini:

Microsoft access tutorial: Cara Kedua Membatasi Jumlah Inputan Pada Text Box

- Silahkan buka design Access form nya, dan perhatikan gambar dibawah ini:

- Kosongkan semua kode yang ada pada [Event Procedure]

- Silahkan Ikuti rumus-rumus dibawah ini, dan masukan pada Control Data

1. Input Mask: >L00\-L0000
2. Validation Rule: Len([KODE_BARANG])>=8 And Len([KODE_BARANG])<=8
3. Validation Text: Kode Barang Harus Berjumlah 8 Karakter

Hasilnya akan tampak seperti pada gambar dibawah ini:

- Isian pada Input Mask akan memaksa user memasukan Kode Barang sesuai dengan format yang sudah kita tetapkan
- Isian pada Validation Rule memaksa Kode Barang yang di input harus berjumlah 8 tidak bisa kurang dan juga tidak boleh lebih
- Isian pada Validation Text akan memunculkan warning atau pemberitahuan bahwa inputan yang dimasukan tidak sesuai dengan aturan yang sudah kita tetapkan

Demikianlah teman Microsoft access tutorial, jika sudah selesai, sesuai step-step tutor diatas. Silahkan untuk mencoba kembali dan lihatlah hasilnya!.

Kami rasa Microsoft access tutorial: Membatasi Jumlah Inputan Pada Text Box cukup sekian dan terimakasih.


Semoga Bermanfaat


Salam

Tweet

Subscribe to receive free email updates: