Pour contrôler que tous les champs d'un formulaire (contenant des textbox et combobox) sont renseignés, j'ai fait deux fonctions :
' *************************************
' * Controle validité contenu textbox *
' *************************************
Private Function CheckTextBox(stParam As String, tbCtrl As TextBox, bControlOK As Boolean) As Boolean
Dim bResult As Boolean
bResult = True
If bControlOK And IsNull(tbCtrl.Value) Then
MsgBox "Veuillez renseigner le champ """ & stParam & """"
bResult = False
End If
CheckCtrl = bResult
End Function
' *************************************
' * Controle validité contenu textbox *
' *************************************
Private Function CheckComboBox(stParam As String, cbCtrl As ComboBox, bControlOK As Boolean) As Boolean
Dim bResult As Boolean
bResult = True
If bControlOK And stValue = "" Then
MsgBox "Veuillez renseigner le champ """ & stParam & """"
bResult = False
End If
CheckCtrl = bResult
End Function
Ma question est la suivante : Existe-t-il un contrôle parent commun au textbox et au combobox qui me permettrait de ne faire qu'une seule fonction ?
Plus généralement, existe-t-il quelque part une arborescence des composants (visuels et non visuels) ?
