VALIDATION FORMULAIRE

Private Sub txtName_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub txtNumDays_KeyPress(KeyAscii As Integer)
    If Chr(KeyAscii) = vbBack Or Chr(KeyAscii) = "-" Or Chr(KeyAscii) = "(" Or Chr(KeyAscii) = ")" Then Exit Sub
    If Not IsNumeric(Chr(KeyAscii)) Then
        Beep
        KeyAscii = 0
        staAdditionalInfo.Panels("addInfo").Text = "Valeur numerique uniquement."
    End If

End Sub

Private Sub txtNumDays_LostFocus()
    If MaskEdBox1.ClipText <> "" And txtNumDays.Text <> "" Then
        txtCheckOut.Text = Format(DateAdd("d", Val(txtNumDays.Text), MaskEdBox1.Text), "dd-mm-yyyy")
    End If
End Sub

Private Sub txtNumPeople_KeyPress(KeyAscii As Integer)
    If Chr(KeyAscii) = vbBack Or Chr(KeyAscii) = "-" Or Chr(KeyAscii) = "(" Or Chr(KeyAscii) = ")" Then Exit Sub
    If Not IsNumeric(Chr(KeyAscii)) Then
        Beep
        KeyAscii = 0
        staAdditionalInfo.Panels("addInfo").Text = "Valeur numerique uniquement."
    End If

End Sub

Private Sub txtPhone_KeyPress(KeyAscii As Integer)
    If Chr(KeyAscii) = vbBack Or Chr(KeyAscii) = "-" Or Chr(KeyAscii) = "(" Or Chr(KeyAscii) = ")" Then Exit Sub
    If Not IsNumeric(Chr(KeyAscii)) Then
        Beep
        KeyAscii = 0
        staAdditionalInfo.Panels("addInfo").Text = "le numero de téléphone est numerique."
    End If
End Sub