Aide sur menu liste deroulante par le créateur de menu

Résolu
cs_akzo Messages postés 133 Date d'inscription dimanche 23 juin 2002 Statut Membre Dernière intervention 3 janvier 2015 - 9 juil. 2008 à 10:34
cs_akzo Messages postés 133 Date d'inscription dimanche 23 juin 2002 Statut Membre Dernière intervention 3 janvier 2015 - 9 juil. 2008 à 11:59
Bonjour a tous je viens ici car j'ai un petit probleme j'ai crée un menu avec le créateur de menu pour determiner les divers Equipe en cours (ID_Equipe)

Si mon ID_Equipe egale 3 par exemple j'ai mon menu qui deroule un bandeau de 3 equipes
en mode deboguage cela fonctionne mais lorsque j'execute le programme j'ai parfois un bandeau de 6 parfois 9 choix alors que mon ID_Equipe et toujours de 3 ( pour tester j'ai remplacer ID_Equipe par 3)

Voila ce que j'ai fait pour le moment  merci pour votre aide a tous 

Private MenuIndex As Integer

private sub form_activate()
For X = 1 To ID_Equipe Step 1 Varchefbase "" & "ID_Opérateur" & " " & X & ""
DataOp.Recordset.FindFirst Varchefbase
chef = DataOp.Recordset.Fields("Indicatif")
NomBases = Trim$("Base de donnée " & chef & "")
If NomBase = "" Then Exit Sub
MenuIndex = MenuIndex + 1
Load MnuListe(MenuIndex)
MnuListe(MenuIndex).Caption = NomBase
MnuListe(MenuIndex).Visible = True
Next X
end sub

Private Sub Form_Load()
MenuIndex = 0
End Sub

Dans mon créateur de menu j'ai fait ainsi

&base des operateurs
....
....&Quitter

le resultat que je doit avoir c'est lorsque je clique sur base des operateurs
le menu deroule
choix 1
choix 2
choix3
quitter

a l'heure actuelle j'ai   
choix 1                             
choix 2
choix3
choix 1
choix 2
choix 3
quitter

3 réponses

cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 78
9 juil. 2008 à 11:31
Salut
Pas trop le temps d'approfondir ton problème mais regarde ça :
   chef = DataOp.Recordset.Fields("Indicatif")
   NomBases = Trim$("Base de donnée " & chef & "")
   If  NomBase = "" Then Exit Sub

-1- "NomBases" est orthographié un coup avec un S final, un coup sans
S'agit-il de la même chose ?
Pour éviter ce genre de bug, oblige toi à déclarer chaque variable avec "Option Explicit" en tête de chaque page de code
(Voir menu Outils, Options, onglet Editeur et case à cocher "Déclaration obligatoire des variables")

-2- "NomBases" = Un texte fixe suivi d'une variable
Le test suivant ne sert strictement à rien puisque NomBases sera au moins égal au texte fixe !
Il vaudrait mieux tester le contenu de "chef" à la ligne précédente

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
3
cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 78
9 juil. 2008 à 11:34
et
   Varchefbase = "ID_Opérateur = " & X
suffit
3
cs_akzo Messages postés 133 Date d'inscription dimanche 23 juin 2002 Statut Membre Dernière intervention 3 janvier 2015 3
9 juil. 2008 à 11:59
J'ai eut le temps de continuer a fouiller un peu et j'ai remarquer que j'ouvrais plusieur form en meme temps et le faite d'ouvrir la form ou j'ai mon menu en dernier resoud le probleme (les autres form sont des form de preparation pour recuperer des donner avant l'accee a l'interface utilisateur )

merci a vous tous pour les reponses
0