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 ...........
0 Response to "Membaca Seluruh Textbox dan Combobox yang kosong dalam satu form"
Posting Komentar