25
Mar
10

Bagaimana Mendeteksi TextBox Kosong Pada VB?

Saat berurusan dengan database, seringkali kita direpotkan dengan masalah update record yang tidak boleh kosong. Biasanya disebabkan banyaknya textbox yang harus dicek.

Di bawah ini adalah kode program untuk mengecek semua textbox dalam sebuah form, apakah kosong atau berisi. Jika program menemukan ada textbox yang kosong, maka pada textbox tersebut akan terjadi event GotFocus (berarti textbox mendapat fokus).

Sub CheckEmptyTB()
    Dim ctr As Control

    For Each ctr In Me.Controls
        If TypeOf ctr Is TextBox Then
            MsgBox "Empty TextBox!"
            ctr.SetFocus
            Exit Sub
        End If
    Next ctr
End Sub

Yang menarik dari source code di atas adalah digunakannya beberapa keywords yang jarang ditemui, misalnya TypeOf, In, For Each, dan Is. Dalam artikel ini saya akan membahas beberapa diantaranya.

Apa perbedaan mendasar For dan For Each? Hal yang membedakan adalah For Each digunakan untuk membuat loop di dalam suatu koleksi objek atau array. Selain itu ada sedikit perbedaan syntax, mari kita perhatikan berikut ini.


'Syntax For
For index = start To end [Step step]
    [statements]
    [Exit For]
    [statements]
Next [Index]

'Implementasi For
Dim intLoopIndex, Total
Total = 0

For intLoopIndex = 1 To 10
    Total = Total + 1
Next intLoopIndex

'Syntax For Each
For Each element In Group
    [statements]
    [Exit For] [statements]
Next [element]

'Implementasi For Each
Dim IDArray(1 To 3)
IDArray(1) = 1
IDArray(2) = 2
IDArray(3) = 3

For Each ArrayItem In IDArray
    MsgBox (Str(ArrayItem))
Next ArrayItem

For menggunakan index untuk membuat suatu iterasi, sedangkan For Each menggunakan index dari array yang telah didefinisikan sebelumnya. Dalam source code di atas element yang digunakan adalah Active Control yang berada dalam Form aktif.

Selanjutnya penggunaan keyword TypeOf, keyword ini digunakan untuk menentukan tipe dari Active Control yang kita gunakan pada saat runtime. Misalnya kita ingin mengganti caption sebuah Label pada saat kita meng-klik Form, maka keyword TypeOf dapat kita gunakan untuk memastikan bahwa yang kita ubah captionnya adalah sebuah Label. Pada kode di atas, TypeOf digunakan dengan Is untuk mengecek apakah Active Controlnya berupa textbox atau bukan.

Contoh lain penggunaan TypeOf:


Private Sub Form_Click()
    If TypeOf ActiveControl Is CommandButton Then
        ActiveControl.Caption = "Active Control"
    End If
End Sub

Image source: linuxgraphics.ru


0 Responses to “Bagaimana Mendeteksi TextBox Kosong Pada VB?”



  1. Leave a Comment

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s


Quotes of The Week

20 April 2010 - 26 April 2010

Imam Ahmad bin Hambal ditanya, "Kapan seorang hamba bisa istirahat?" Beliau menjawab, "Ketika kakinya menginjak syurga."

- Imam Ahmad bin Hambal

Blog Stats

  • 4,164 hits

Featured Image


Mount Fuji in Japan | kiraku.tv
Indahnya Gunung Fuji melatarbelakangi bunga sakura yang sedang bersemi. (Mar 23, 10)

Archives


%d bloggers like this: