Visual Basic Online Course Make Sure All TextBoxes Empty

Visual Basic Online Course

Learn how to
Make sure all Text boxes are clear first

Step by step guide

Say ......... you have 10 TextBox Controls and 10 ComboBox Controls on a VB6 form and you are taking their contents into a database tables, I guess you have to make sure that all the TextBox Controls and the ComboBox Controls are not empty ... So, you can do something like this ....

'Visual Basic Online Course
'Visual Basic 6
'Make Sure all Text Boxes are Empty / Clear first

Private Sub CMDSAVE_CLICK()
'The button that transfer contents to tables
'if textbox1.text And Textbox2.text and ..... etc then
MsgBox "Leave No Blanks"
exit sub
end if
'Some Codes ............
'Some Codes ............
rs.update 'Or however you connect
 End Sub  

Github Gist

Or, you may use something Like this :-

I will try here to tell the VB project that TxtBx variable represents all the TextBox Controls on a form (Form1) and Cbos variable represents all the ComboBox Controls on the same form .... so the scenario would be:

Hey, Form1 .... Be aware that (TxtBx) represents all my Textbox Controls on You, and (Cbos) represents all my ComboBoex Controls on you, so whenever you find one Empty Just Give me a MsgBox MessageBox and (Exit) the sub . OK?

But If not! Then, continue updating my MS Access database tables .... are we clear, Form1 ??

How could we just Code These Lines of Scenario .......
Here we go :

'Visual Basic Online Course

'Visual Basic 6
'Make sure all textboxes are empty before save

Public Class Form1
Public TxtBx, Cbos As Control
Private Sub BtnSave_Click
For Each TxtBx In Me.Controls
If TypeOf TxtBx Is TextBox And String.IsNullOrEmpty(TxtBx.Text) Then
MsgBox("Leave No Blanks in TextBoxes")
Exit Sub
End If
Next

For Each Cbos In Me.Controls
If TypeOf Cbos Is ComboBox And String.IsNullOrEmpty(Cbos.Text) Then
MsgBox("Leave No Blanks in ComboBoxes")
Exit Sub
End If
Next

For Each Dtp In Me.Controls
If TypeOf Dtp Is MaskedTextBox And String.IsNullOrEmpty(Dtp.Text) Then
MsgBox("Leave No Blanks in Mobile Number")
Exit Sub
End If
Next

rs.addnew
Rs(".............") = TetxBox1.Text
'codes,codes,codes
rs.update
msgbox "Thanks for understanding, Form1"
End Sub
  

Github Gist

Good Luck

_______

---Have Fun---

♥ Visual Basic 6.0 Lessons, Tricks, Tutorials and help links 

🔥 Explore More Tutorials 🔥

📅 MS VB6 Date Calculations 👥 MS VB6 Copy field from MS Access Database to another ⏲️ VB6 Analog Clock Project 💥 Part1, learn Microsoft Excel with Visual Basic 6 📱 VB6 Phonebook 📞 VB6 Phonebook Design 💾 Download VB6 & Access Source Code 🚀 Free Visual Basic 6 Download 📊 VB6 Crystal Reports Fix ⚙️ Fix VB6 Slow Controls on Win7 🌐 VB6 FTP Project Source Code 🔍 Crystal Report & Access DB Integration

🚀 Stay updated with the latest **VB6 and MS Access** tutorials!