Validation

[Beany]

Hi,

i have a form that requires validation. i am using the following code:

Private Sub Form_BeforeUpdate(Cancel As Integer)

If IsNull(Me.number) Then
MsgBox "number is required", vbOKOnly
Cancel = True
Me.number.SetFocus
End If

i have repeated the above code for other fields.........

The problem i have is, if i click 'x' and before it allows me to exit, it brings up the validations, one by one (so annoying).

Is there any way THAT it can show all the validations at once??? in one message????

THANKS

[Tanis]

You could use a function. Then call this function from your text boxes.

Public Function ValidateNumeric(strText As String) As Boolean
ValidateNumeric = CBool(strText = "" Or strText = "-" Or strText = "-." Or strText = "." Or IsNumeric(strText))
MsgBox "Not Numeric"
End Function

[Killer42]

Is there any way THAT it can show all the validations at once??? in one message????

What about a routine you can call (much like that proposed by Tanis) which does something like...

Private Function FieldsAreOK(ByVal ShowMsgBox As Boolean) As Boolean
  ClearMessage
  If <Validation1> Then
    AddToMessage "Field1 must be numeric"
  End If
  If <Validation2> Then
    AddToMessage "Field2 must be numeric"
  End If
  If <Validation3> Then
    AddToMessage "Field3 doesn’t look right for some reason"
  End If
  ... and so on...
  If Msg <> ""
    If ShowMsgBox then
      MessageBox "The following errors should be addressed:" & VbNewLine & Msg
    End If
  Else
    FieldsAreOK = True
  End If  
 

And you'd define a form variable Msg As String, and a couple of subs as follows

Private Sub ClearMessage
  Msg = ""
  ' (You could just do this in your code instead of calling the Sub)
End Sub
 
Private Sub AddToMessage (ByVal What As String)
  Msg = Msg & iif(Msg = "", "", VbNewLine) & What
End Sub
 

You could also get it to highlight the fields in some way (colour, border, font style, etc etc) but then you have the issue of changing them back.