Userform events

[Stridhan]

Hi

Got a simple userform with textbox1, textbox2 and a commandbutton.

Using the Exit event on both textboxes to do a check if they are empty or contain invalid data, if empty or invalid data the textbox gets the focus.

However, when both textboxes are empty I want to have the option to press the Commandbutton but im trapped within the Exit-event

Is there a workaround?

 

[ranman256]

dump the exit events, instead validate at button click:

usage:
if IsValidForm() then SaveData

Private Function IsValidForm() As Boolean
Dim vMsg
Select Case True
   Case IsNull(dtpWeekOf)
      vMsg = "Date field missing"
   Case IsNull(cboUser)
      vMsg = "User name is missing"
   Case IsNull(txtEmail)
      vMsg = "Email field is missing"
End Select
If vMsg <> "" Then MsgBox vMsg, vbCritical, "Required Field"
IsValidForm = vMsg = ""
End Function

 

[Stridhan]

Thanks for your reply
Im not clicking any buttons, atm keystrokes, the commandbutton is rarely used.

Im sure I can modify and use your example.

Thanks

 

[ranman256]

the button declares the user is finished and wants to save data.