Member Avatar for jithumathew

Dim Ctrl As Control
Dim check As Integer
Select Case check

Case check = 1
Ctrl = txtName
If Ctrl.Text = "" Then
validatingControls(Ctrl)
MsgBox("enter text")
ErrorProvider1.SetError(Ctrl, "enter text")
End If

Case check = 2
Ctrl = txtAge
If Ctrl.Text = " " Then
validatingControls(Ctrl)
ErrorProvider1.SetError(Ctrl, "enter text")
MsgBox("enter text")
End If
Case Else
MsgBox("data has been entered")
Me.Close()
End Select

  • 2 Contributors
  • 1 Reply
  • 154 Views
  • 1 Day Discussion Span
  • Latest Post Latest Post by codeorder
Member Avatar for codeorder

I can spot one error.
Placing..

Dim check As Integer

in the same event as the rest of the code posted, you will always get a

MsgBox("data has been entered")

By Dimming something as an integer, it automatically sets it's self to 0, unless Dimmed as =2, 5, etc...

The rest of the code, i got 6 errors just by copy and pasting, so i would say, nope, your code is not correct.

Edited by codeorder because: n/a
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.