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

[Résolu]
Signaler
Messages postés
133
Date d'inscription
dimanche 23 juin 2002
Statut
Membre
Dernière intervention
3 janvier 2015
-
Messages postés
133
Date d'inscription
dimanche 23 juin 2002
Statut
Membre
Dernière intervention
3 janvier 2015
-
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

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
78
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)
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
78
et
   Varchefbase = "ID_Opérateur = " & X
suffit
Messages postés
133
Date d'inscription
dimanche 23 juin 2002
Statut
Membre
Dernière intervention
3 janvier 2015
3
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