[RESOLVED] Applying a condition

[mmb.nbn]

I have add,update,delete buttons on my form.A message box should appear on the screen "should have values to Add/delete/update/" if user clicks on Add/delete/update buttons without having any values in the textfiled,i have around 20 text fields on my form.

[Hack]

Do all 20 have to have something in them in order for the Add/delete/update/ to work?

[mmb.nbn]

yes gentleman all 20 fields have values

[Hack]

Then try something like this. Modify to suit your individual needs.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ctrl As Control = Me.GetNextControl(Me, True)
        Do
            If TypeOf ctrl Is TextBox Then
                If ctrl.Text = String.Empty Then
                    MessageBox.Show("All entires must be complete before running the query.", "Can't Execute Query", _
                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                    Exit Do
                End If
            End If
            ctrl = Me.GetNextControl(ctrl, True)
        Loop Until ctrl Is Nothing
End Sub

[danasegarane]

use this function to check any of the values is empty. If empty print the message

private bool IsEmpty()
        {
              foreach (TextBox txt in this.Controls.OfType<TextBox>())
            {
                if (string.IsNullOrEmpty(txt.Text))
                {
                    return false;
                }
            }
              return true;
        }

[danasegarane]

Little slow

[mmb.nbn]

Thanks for Both answers.

[Hack]

If you want, you can add ctrl.Name to the messagebox and tell them which textbox needs to be addressed and then set focus to it.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ctrl As Control = Me.GetNextControl(Me, True)
        Do
            If TypeOf ctrl Is TextBox Then
                If ctrl.Text = String.Empty Then
                    MessageBox.Show(ctrl.Name & " is empty.  All entires must be complete before running the query.", "Can't Execute Query", _
                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                    ctrl.Focus()  'set focus to the empty textbox
                    Exit Do
                End If
            End If
            ctrl = Me.GetNextControl(ctrl, True)
        Loop Until ctrl Is Nothing
End Sub