Function GetMessageText( sExpr)
	GetMessageText = ""
		Select Case sExpr
			Case "MSG_REQUESTED_GENFIELD"
				GetMessageText = "Champ requis ou saisie incorrecte !"
			Case "MSG_WARNING"
				GetMessageText = "Avertissement"
		End Select
End Function