Validasi Karakter TextBox

CARA MEMVALIDASI PENGETIKAN KARAKTER DALAM TEXTBOX

Berdasarkan pengalaman penulis sebelum-sebelumnya dalam membuat aplikasi ms access 2003, selalu saja penulis temukan karakter-karakter yang tidak pada tempatnya, misalnya untuk field nama yang harusnya hanya berupa teks, namun ada banyak record atau data dalam tabel untuk field nama yang berisi karakter angka, ataupun karakter-karakter yang lain yang tidak seharusnya atau dengan kata lain penulis belum pernah mendengar ada seseorang yang namanya ada karakter-karakter khusus seperti karakter &, %, #, [, ] dan karakter-karakter khusus yang lainnya. Tentunya anda sebagai pembuat aplikasinya tidak menginginkan hal itu terjadi bukan ?, yang belum lagi kemungkinan terjadinya error, karena ada karakter khusus dalam field yang karakter tersebut termasuk kedalam karakter operator penghubung dalam penulisan SQL (Structure Query Language). Berikut ini adalah cara untuk mencegah penginputan karakter angka atau karakter huruf dalam suatu TextBox ketika user mengetik karakternya. Untuk hal ini kita hanya perlu menggunakan event On KeyPress, serta mengetahui karakter set dari Key Ascii untuk setiap karakter huruf/angka. berikut ini adalah contohnya :

Jika hanya huruf yang boleh diinput oleh user :

Private Sub Text1_KeyPress(KeyAscii As Integer)

'65 sampai 90 adalah huruf kecil, 97 sampai 122 adalah huruf besar

'8 adalah Backspace, 9 adalah Tab, 13 adalah Enter, 32 adalah Spasi

     Select Case KeyAscii

          Case 65 To 90, 97 To 122, 8, 9, 13, 32

          Case Else

          KeyAscii = 0

          MsgBox "Hanya Huruf Alphabet a-z, A-Z dan <Spasi> yang diperbolehkan", vbInformation
      End Select
End Sub
Dari code diatas, jika user mengetik atau menekan tombol selain yang termasuk kedalam Alphabet, Tab, Backspace, Enter, dan spasi, maka access akan menampilkan pesan MsgBox diatas.

Jika hanya angka yang diperbolehkan :
Private Sub Text1_KeyPress(KeyAscii As Integer)
'48 sampai 57 adalah angka 0 sampai 9, 44 adalah Koma, 45 adalah negatif, 46 adalah Titik
'8 adalah Backspace, 9 adalah Tab, 13 adalah Enter, 32 adalah Spasi
      Select Case KeyAscii
           Case 48 To 57, 8, 9, 13, 32, 44 To 46
           Case Else
           KeyAscii = 0
           MsgBox "Hanya Angka/Nomor dan (, . -) yang diperbolehkan", vbInformation
      End Select
End Sub

Dari code diatas, jika user mengetik atau menekan tombol selain yang termasuk kedalam Numeric, Tab, Backspace, Enter, dan spasi, maka access akan menampilkan pesan MsgBox diatas.

Semoga Bermanfaat...

Read more »

Membuat Jam Digital Dalam Form

MENAMPILKAN JAM DIGITAL DALAM FORM

Untuk mempercantik tampilan Form, sekaligus juga untuk mengetahui jam/waktu dalam Form yang sedang aktif, kita bisa menampilkan jam/waktu dalam bentuk digital yang selalu berganti-ganti detiknya sesuai dengan waktu dari sistem komputer kita.

Supaya tampilannya lebih digital dan lebih menyerupai jam digital, maka kita membutuhkan jenis Font Digital seperti dalam jam tangan, jika anda ingin Font digital, anda bisa mencarinya di Paman Google atau di situs-situs/website-website penyedia font gratisan, lalu menginstalnya dikomputer anda. Atau jika tidak, anda bisa menggunakan Font yang sudah ada dikomputer anda (tentunya tampilannya tidak seperti jam digital).

Berikut adalah contoh jam digital yang penulis buat :

Form Dengan Jam Digital

Cara membuat jam digital dalam Form sangat dan sangatlah mudah sekali, yaitu :

• Buat sebuah Label/Textbox dalam Form, penulis merekomendasikan membuat Label, karena Label tidak bisa diutak-atik nilainya, sedangkan jika menggunakan TextBox, agar TextBox tersebut tidak bisa diakses, maka kita harus mensetting Property Enabled menjadi No, dan Locked menjadi Yes. Dan biar lebih gampang, ganti nama Label/TextBox tersebut menjadi lblJam, atau txtJam (hal ini terserah anda, suka-suka anda saja, yang penting namanya unik dan tidak menyalahi aturan penamaan dari Access). Karena penulis membuat Label maka penulis namakan lblJam, lalu setting jenis Font sesuai keinginan anda.
• Lalu disebelah kiri atas Form ada kotak hitam kecil, anda klik kanan dikotak hitam kecil tersebut lalu pilih Properties.
• Pada Tab Event, cari field Timer Interval, dan isikan dengan 1000 (agar Jam/Waktunya terupdate setiap 1 detik).
• Lalu pada event On Timer pilih Event Procedure, dan klik […] disebelah kanannya, anda akan dibawa kedalam jendela Visual Basic Editor.
• Lalu masukkan code berikut ini :

         lblJam.Caption = Time()

         Sehingga code anda akan menjadi seperti ini :

         Private Sub Form_Timer()

         lblJam.Caption = Time()

         End Sub

• Lalu klik Save dan tutup Jendela Visual Basic Editor
• Tutup jendela properties dari Form, dan tutup jendela Design View Form.
• Lalu jalankan Form anda, dan lihat hasilnya.

Jika yang anda gunakan adalah TextBox maka anda tidak perlu menuliskan “.Caption”. misalnya :

         Private Sub Form_Timer()

         txtJam = Time()

         End Sub

Anda juga bisa menggunakan format tanggal penuh disertai dengan waktunya, misalnya anda ingin tampilan waktunya seperti 01 Januari 2012 01:30:55, maka anda tinggal ganti Time() dengan format yang anda inginkan. Namun saran penulis jika anda ingin menggunakan format  tersendiri, maka anda harus sertakan detiknya, hal ini agar tampilan jamnya menjadi lebih hidup dengan selalu berganti-ganti detiknya (karena yang kita gunakan adalah 1000, yang berarti bahwa Event On Timer akan dieksekusi setiap 1 detik). Agar anda lebih paham, Timer Interval itu jika dibandingkan : 1 Detik waktu adalah 1000 dalam Timer Interval, dan berlaku kelipatannya (kayak kuis aja ya). yang berarti jika kita mau 5 detik, maka kita harus memasukkan nilai 5000 pada Timer Interval. Namun untuk trik menampilkan jam digital ini, mau tidak mau anda harus memasukkan nilai 1000 pada Timer Interval, karena kita akan menampilkan jam yang selalu berganti-ganti detiknya, bukan yang lain. Aduh maaf kenapa jadi kesini-sini ya pembahasannya, balik lagi ke masalah format tersendiri, jika anda ingin tampilannya seperti 01 Januari 2012 01:30:55, maka anda harus ganti Time() menjadi seperti dibawah ini :

Private Sub Form_Timer()

lblJam.Caption = Format(Now, "dd mmmm yyyy hh:nn:ss")

End Sub

Semoga Bermanfaat…

Read more »