Excel-Id.com | Pembatasan entri data atau abjad pada isian TextBox terkadang sangat diharapkan oleh seorang programmer VBA, hal ini dimaksudkan untuk mengurangi kesalahan user dalam mengentri data pada kolom atau textbox isian pada aplikasi. Bukann hanya saja berbasis VBA namun biasanya seorang programmer PHP, JAVA, DELPHI, dan lainnya dalam hal menciptakan aplikasi entri data mereka menciptakan sebuah batasan entri karakter/digit yang sanggup dientri oleh user atau pengguna aplikasi tersebut.
Beberapa kasus biasanya user terkadang ingin mempercepat pekerjaan dengan mengentri data tanpa memperhatikan kebenaran entri data tersebut sehingga hal ini akan berpotensi terhadap kesalahan entri data. Sebuah database memang merupakan data dasar yang nantinya diharapkan untuk kepentingan yang bersngkutan.
Untuk membatasi abjad atau jumlah digit pada pola kali ini aku akan mencoba menciptakan sebuah Form sederhana untuk mengentri nama dan NISN (Nomor Induk Siswa Nasional). NISN ini terdiri dari 10 digit nomor yang harus dientrikan oleh user apabila melebihi maka akan muncul sebuah pesan bahwa entri data atau jumlah abjad yang harus diisikan atau dimasukan hanya 10 abjad saja alasannya yaitu NISN jumlahnya 10 digit yang terdiri dari beberapa pengelompokan kode.
Baca:
Cara Membuat Texbox pada UserForm
Cara Membuat Coding Pembatasan Karakter/Digit Angka pada Textbox
Seperti biasanya alasannya yaitu pola ini memakai UserForm sebagai objeknya maka Anda harus menyisipkan UserForm terlebih dahulu terserah mau ukuran berapa yang penting ada UserForm lalu tambahkan juga TextBox 2 buah dan label lalu Anda ganti caption untuk Label1 dan Label2 dengan "Nama" dan "NISN".
Oke, lebih jelasnya aku tampilkan berupa gambar userform dibawah ini
Perhatikan gambar diatas dikala Anda mengetikan NISN pada textbox NISN sebanyak 11 digit, maka muncul sebuah pesan isu bahwa "NISN tidak melebihi dari 10 digit angka" namun apabila Anda mengentri data hanya 10 digit saja maka dikala Anda keluar dari textbox NISN atau menekan enter kursor akan pribadi masuk ke textbox Nama Siswa. Nah, kira-kira itulah hasil simpulan dari bahan kali ini, namun bagaimana cara membuatnya?
Simak:
Cara Membuat Textbox Auto Complete
Coding berikut Anda sanggup copy paste untuk menghasilkan gambar menyerupai diatas, silakan Anda tambahkan dengan double klik pada textbox untuk masuk ke pengetikan instruksi dan berikut codingnya
Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Value) > 10 Then
MsgBox "NISN tidak melebihi dari 10 Digit angka", vbInformation, "Informasi"
Cancel = True
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End Sub Pada coding diatas Ada memakai objek Textbox1 dengan mekanisme Exit dan disana terdapat code If Len artinya jikalau Anda mengetikkan data pada textbox1 lebih dari 10 digit dan Anda sanggup merubah berapa digit maksimal untuk entri data pada Textbox tersebut jikalau lebih dari 10 digit maka munculkan pesan dengan MsgBox "NISN tidak melebihi dari 10 digit angka" Anda sanggup mengganti kalimat pada pesan tersebut.
Pelajari Cara Memasukan Data dari Textbox ke Listbox Sumber http://www.excel-id.com/