cs_akzo
Messages postés133Date d'inscriptiondimanche 23 juin 2002StatutMembreDernière intervention 3 janvier 2015
-
9 juil. 2008 à 10:34
cs_akzo
Messages postés133Date d'inscriptiondimanche 23 juin 2002StatutMembreDerniè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
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 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)
cs_akzo
Messages postés133Date d'inscriptiondimanche 23 juin 2002StatutMembreDernière intervention 3 janvier 20153 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 )