Validating that data was entered into a text Box

Question

I have a Signin form (frmSignIn) with two Text Boxes asking for a UserName (txtName) and Password (txtPassword). The form also has two command buttons Enter (cmdEnter) and Add User (cmdAddUser).

I would like to validate that data has been entered into the text boxes before processing the form.

I have tried the following VBA Code in the BeforeUpdate event for the text Box.

Option Compare Database
Option Explicit

Private Sub txtName_BeforeUpdate(Cancel As Integer)
If txtName = "" Or IsNull(txtValue) Then
MsgBox "You are a Dummy"
Cancel = True
End If
End Sub

This only works if I enter a value in the txtName Box and then backspace to erase the value.

What am I doing wrong?

ken_sheridan · Answer

Make the operational code in the buttons' Click event procedures conditional on neither text box control being Null or containing a zero-length string, e.g.&nbsp;Private Sub cmdEnter_Click()&nbsp;&nbsp;&nbsp;&nbsp; Const MESSAGE_TEXT&nbsp; = "Both a valid user name and password must be entered."&nbsp;&nbsp;&nbsp;&nbsp; If Nz(Me.txtName,"") = "" Or Nz(Me.txtPassword,"") = "" Then&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;MsgBox MESSAGE_TEXT, vbExclamation, "Invalid Operation"&nbsp;&nbsp;&nbsp; Else&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;' operational code goes here&nbsp;&nbsp;&nbsp; End If&nbsp;End Sub&nbsp;Private Sub cmdAddUser_Click()&nbsp;&nbsp;&nbsp;&nbsp; Const MESSAGE_TEXT&nbsp; = "Both a valid user name and password must be entered."&nbsp;&nbsp;&nbsp;&nbsp; If Nz(Me.txtName,"") = "" Or Nz(Me.txtPassword,"") = "" Then&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;MsgBox MESSAGE_TEXT, vbExclamation, "Invalid Operation"&nbsp;&nbsp;&nbsp; Else&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;' operational code goes here&nbsp;&nbsp;&nbsp; End If&nbsp;End Sub

arnel_gp · Answer

MichaelB200, you need also to validate the other textbox. add code to the Click event of cmdEnter:&nbsp;Private Sub cmdEnter_Click()&nbsp; &nbsp; &nbsp;If IsNull(txtName) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox "Please provide your username."&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.txtName.SetFocus&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit Sub&nbsp; &nbsp; &nbsp;End If&nbsp; &nbsp; &nbsp;If&nbsp; IsNull(txtValue) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox "Please provide your password."&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.txtValue.SetFocus&nbsp; &nbsp; &nbsp;End IfEnd Sub&nbsp;

Forum Discussion

Validating that data was entered into a text Box

Share

Resources