Voila j'ai un problème avec des DBCombo
L'utilisateur doit gérer un planning d imputation à travers différente DBCombo.
Chaque DBCombo est relier à un Data avec les numéro et nom de personnel.
Il sélectionne une semaine et j'affiche dans les DBCombo le personnel déja sélectionner auparavant.
Exemple pour les DbComBoEntretien
Lors de la première saisie pas de problème mais lors de la seconde, certaine DbCombo dont le nom était déja afficher renvoie comme valeur de BoundText la valeur Text (donc le nomComplet au lieu du numéro).
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 If .Fields("NumType") = 1 Then 'Si le type est entretien DBCEntretien(NumEntretien) = .Fields("NomComplet") NumEntretien = NumEntretien + 1 End If
Ce que je ne comprends pas c'est que je crée tout les DBCombo de la meme maniere , j'utilise les mêmes méthodes pour les instancier et noter leur valeur en base de données et pourtant seulement certaines d'entre elle déconne.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 For i = 0 To 2 'Si un personnel d'entretien à été selectionné If DBCEntretien(i).BoundText <> "Sélectionnez personnel" Then .AddNew 'Table en mode ajout .Fields("NumSemaine") = DBCSemaine.BoundText .Fields("NumPersonnel") = DBCEntretien(i).BoundText'Le bug est la .Fields("NumType") = 1 End If Next i
Autre singularité si je met un point d'arrêt à DBCEntretien(NumEntretien) = .Fields("NomComplet") la c'est le BoundText du DataSemaine qui déconne.
Peut - être l'erreur vient elle du fait que j'utilise des requetes dans access pour mes contrôles data ??
Ou le nombre de mes DBCombo (18) ?
Ou alors encore un grand merci à Microsoft pour la solidité de ses logiciels ??
Partager