GESTION DYNAMIQUE DES ITEMS - BIEN PLUS INTERESSANT QUE LES TABLEAUX DYNAMIQUES

Commentaire de asimengo le 16/10/2008 14:25:25

Je prends le cas de tables de references dans une applis, en général pour ce cas on a besoin que Ajouter/Modifier/Supprimer/Visualiser, de ce fait on peut aisement penser le faire avec des forms dynamiques.

Les informations des champs de tables sont etockes dans une table ainsi que le comportement de chaque (caption, required, rowsource, AutoIncrement, LimitToList, InputMask, ....). Soit au départ on charge tous les champs avec instruction du genre moClsItems("<Nom propriete>", "<Nom Table>/<Nom Champ>") = ..., soit on le fais a la demande de lutilisateur.

Mais pour ne pas recharger une table 2 fois, il suffit de stocker moClsItems.AddItem "<Nom Table>","DEJA LU", True, meBoolean et apres il suffira de il suffira de tester if moClsItems(<Nom Table>, "DEJA LU") Then Call InitTable (<Nom Table>).

Comme je disais il y'a des possibiliés infinie d'utilisation.

De même supposons que pour un logiciel de cotation (voir facturation, mais pas tout a fait) par exemple, on a des rubriques qui dependent des fonctions voir une petite illustration dans ma source http://www.vbfrance.com/codes/DLL-EXECUTER-FONCTIONS-PROCEDURES-EXTERNES-TON-APPLI-MEME_47010.aspx on peut utiliser cette DLL pour faire valider les valeurs par l'utilisateur.
De ce fait pour chaque rubrique de cotation ou de facturation (les 2 sont possibles) d'associer dans leur table un champs formule de calcul qui sera quelque du genre "[%_Poids]*[%_Taux]" ou encore plus complexe une vrai fonction en language de script. Il suffit d'analyser le texte pour rechercher les paramètres, dans mon cas tous les mots entre "[%_" et "]" rien de plus simple qu'une petite fonction Public Function SplitSNA(ByVal psText As String, ByVal psLeftSeparator As String, ByVal psRightSeparator As String) As Variant, tous les parametres sont passes controles dans moClsItems pour voir si elles sont déjà initialisées sinon utiliser ValidateItems pour que l'utilsateur les renseigne.
Apres il suffit d'utiliser une boucle elementaire pour remplacer les variables dans le texte par les valeurs. Reste plus qu'à utiliser la fonction Public Function EvalExpression(ByVal psExpression As String, Optional ByVal psLanguage = "VBScript", Optional ByVal peType As EnumDataTypeSimplified = meTexte) As Variant
se trouvant dans cette source pour faire le calcul.

La fonction SplitSNA est aussi simple que ceci:
Public Function SplitSNA(ByVal psText As String, ByVal psLeftSeparator As String, ByVal psRightSeparator As String) As Variant
Dim lPosDebut As Long, lPosFin As Long, sArray As String

    lPosDebut = InStr(psText, psLeftSeparator)
    Do While lPosDebut > 0
        psText = Mid(psText, lPosDebut + Len(psLeftSeparator))
        lPosFin = InStr(psText, psRightSeparator)
        If lPosFin <> 0 Then
            sArray = sArray & psLeftSeparator & psRightSeparator & Left(psText, lPosFin - 1)
            lPosDebut = InStr(lPosFin + 1, psText, psLeftSeparator)
        Else
            Exit Do
        End If
    Loop
    SplitSNA = Split(Mid(sArray, Len(psLeftSeparator & psRightSeparator) + 1), psLeftSeparator & psRightSeparator)
End Function

Voila assez expliqué pour être bien clair sur les possibilités d'aide de celle DLL et les grands de son utilisation chez moi.

A+
ASIMENGO