Contextual Guidance at the moment of need helps your employees adopt to new software or processes instantly. Boost knowledge retention and employee engagement step-by-step with one easy solution.
If UserIDTextBox.Text = "" Then ErrorProvider1.SetError(UserIDTextBox, "No UserID") Me.ActiveControl = UserIDTextBox Else If PasswordTextBox.Text = "" Then ErrorProvider2.SetError(PasswordTextBox, "No password") Me.ActiveControl = PasswordTextBox Else Dim login = Me.LoginIDTableAdapter1.UsernamePasswordString(UserIDTextBox.Text, PasswordTextBox.Text) If login Is Nothing Then MsgBox("Error login.", MsgBoxStyle.Critical + vbOKOnly, "Error login") Else MsgBox("Successfull login. " + UserIDTextBox.Text.ToUpper, MsgBoxStyle.Information + vbOKOnly, "Successfull login") Form1.Show() Me.Hide() End If End If End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.