Discussion :

[new_wave]

Bonjoiur,

J'ai crée un combobox mais aimerais saisir dedans des données et tester la validité de ces données.

On me dit que pour cela je dois selectionner la propriété 'list' dans celle du combobox.
Mais je vois que cela ne suffit pas. pour me permettre de saisir dans le combobox
Dans quelle mesure dois ej utiliser la propriété additem.
J'ai lu que un combobox dépendant d'un controle data ne gère pas cette méthode.

Une fois que la saisie est possible j'aimerais tester las valeurs saisies dans ce combobox.
Pourriez vous m'aindiquer avec quelle méthode.

Merci beaucoup de votre aide.

Nathalie

Pouuriez vous m'aider sur ce point

[sovo]

essais d'etre un peut plus precis , qu'entends tu par Verifier ?

la propriete additem peut marche mais il y a moins difficile.

[new_wave]

Bonjour,

J'aimerais que la valeur saisie dans cette combobox réponde à ces conditions :

elle doit avoir ses trois premiers caractères qui sont ceux des nombres du plan comptable qui sont dans cete combobox.
Ex : dans cette combo on trouve les numéros suivants 60200, 60300
Un utilisateur pourra saisir 60210 mais ne pourra pas saisir 61300 car le compte 613 n'existe pas parmi. les nombres de ce plan comptable existnat dans cette combo.

J'espère que cela est plus clair à présent.
Merci beaucoup de votre aide.
Cordialement.
Nathalie

[leteltel]

ton combobox doit etre en style : dropwdown combo et ensuite gérer dans l'evenement keypress chaque frappe de caractère

[new_wave]

Rebonjour,

j'ai changé le style de la combobox en dropdown combo mais je ne parviens toujours pas à saisir à l'intérieur.
Pourquoi cette difficulté?

sinon, pour pouvoir tester les caractères saisis j'ai écrit cette procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Combo1_KeyPress()
 
If Mid$(Combo1.Text, 1, 3) = Mid$(Dynplan.Fields("PLANSRU"), 1, 3) Then Combo1.AddItem (Combo1.Text)
Else
MsgBox "le nombre saisi ne peut correspond pas à un compte comptable du plan sru", vbExclamation
 
 
End Sub

Et à la compilation je reçois ce message : "la déclaration de la procédure ne correspond pas à la description de l'évènement ou d ela procédure de même nom


Si tu pouvais m'aider sur ce point, je t'en serais très reconnaissante.

Bien cordialement.
Nathalie

[new_wave]

Le test ne porte pas sur chaque caractère mais sur une suite de caractères.
Je me demande si la procédure keypress correspond bien.

Voici le code inséré dans la procédure 'entree'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 
If Mid$(Combo1.Text, 1, 3) = Mid$(Dynplan.Fields("PLANSRU"), 1, 3) Then Combo1.AddItem (Combo1.Text)Else
MsgBox "le nombre saisi ne peut correspond pas à un compte comptable du plan sru", vbExclamation
 
  End If

n'est il pas plus exact de tester la valeur de la chaine de caractères au niveau de cette procédure .
Cette procédure teste la valeur saisie dans un autre textbox et affiche une valeur de combobox correspondant.

Merci beaucoup de ton aide.
Cordialement.

Nathalie

[jmfmarques]

Donne donc tes instructions de contrôle de saisie dans l'événement Keypress en contrôlant la veleur de Keyascii par rapport au début de la saisie...