Membaca Seluruh Textbox dan Combobox yang kosong dalam satu form

Sesuai dengan judul, maksudnya adalah pada saat kita akan menyimpan data, dan ada salah satu textbox kosong, Maka akan terdeteksi kekosongan tersebut, dan kita bisa memberi pesan peringatan misalnya "Mohon isi semua data". Nah begitulah ceritanya. Semoga paham. Jika teman-teman kurang paham, tinggalkanlah pesan atau komen artikel ini ya.

coba teman-teman desain form sesuka teman-teman saja, buatlah textbox dan combobox yang banyak

sebagai contoh dan buatlah satu Commandbutton.

misalnya :

Buatlah sebuah MODULE dan isi script berikut ini:

Public Function SemuaTerisi(ByVal Frm As Form) As Boolean

    Dim c As Control

    Dim b As Boolean

   

    b = True

   

    For Each c In Frm.Controls

        If (TypeOf c Is TextBox) Or (TypeOf c Is ComboBox) Then 'utk TextBox dan ComboBox

           b = Not (Trim(c.Text) = "")

        End If

       

        If b = False Then

            c.SetFocus

            Exit For

        End If

    Next

   

    SemuaTerisi = b

End Function

Double klik pada tombol CEK

isi script berikut :

If SemuaTerisi(Me) Then

     msgbox "Data Telah terisi semua

else

    msgbox "Data Tidak Boleh Kosong

endif

Jalan program teman-teman yang telah dibuat, dan kosongkan salah satu textboxt atau combobox, nah terus coba isi semuanya.

Tinggalkan Komentarnya ya ...........