Trik Mendeteksi Textbox Kosong Sebelum Melakukan Update Record pada Visual Basic 6.0

Apabila kita hendak melakukan update record yang mengharuskan textbox tersebut terisi atau tidak kosong sebelum menyimpan database, maka kita harus memberikan peringatan bahwa masih terdapat textbox kosong sebelum proses simpan dilakukan oleh program. Berikut contoh code yang harus ditambahkan :

Private sub checkemptytextbox()

      Dim ctr as control
      For each ctr in me.controls
            if typeof ctr is textbox then
                   if ctr.text = vbnullstring then
                           msgbox "Textbox Kosong !"
                           ctr.setfocus
                           exit sub
                   end if
             end if
      next ctr
end sub

"Selamat mencoba ...."