"Stephane Hodemond" <nospam_stephane.hodemond@free.fr> wrote:
Bonjour
Regarde la fonction EnumereMenu
Bon développement
"SIMO" <mohamadia@menara.ma> a écrit dans le message de news:
410f7ab9$1@news.pcsoft.fr...
Bonjour
Je voudrais bien remplir une table memoire par tous les options de menu
et
sous menu (libellé)
Est que qq peut m'aider
Merci
Merci de votre reponse
j'exploiter la fonction EnumèreMenu dans le code ci desssous mais l'erreur
suivant me bloque :
Erreur à la ligne 13 du traitement Clic sur BtnNiveau.
Vous avez appelé la fonction EnumèreMenu.
Le passage du paramètre 1 a provoqué une erreur.
Le champ Bases est inconnu.
i est entier = 1
NomMenu est une chaîne
NomMenu = EnumèreMenu (Main, i) // lecture du 1er menu de la fenêtre
TANTQUE NomMenu <>""
TableAjouteLigne(Table2,NomMenu)
j est entier = 1
NomSousMenu est une chaîne
ligne n°13: NomSousMenu = EnumèreMenu (NomMenu, j) //
lecture de la 1er option du menu
TANTQUE NomSousMenu <>""
TableAjouteLigne(Table2," " + NomSousMenu)
j++ // option suivante
NomSousMenu = EnumèreMenu(NomMenu, j)
FIN
i++ // menu suivant
NomMenu = EnumèreMenu(Main,i)
FIN