Discussion :

[tzinzin]

J'ai plusieur listes modifiables (crées comme indiqué dans le FAQ) et qui fonctionnent (sous Access97) :
1°liste : Département valeurs :"64", "65"
2° liste : secteur valeurs : "Aspe", "Ossau", Cauteret"...
3° liste : Forêt : noms de forêts "FC Laruns", FC Vielle Aure"...
Problème : lorsque je choisi le département "64", je peux ensuite choisir le secteur "Aspe" ou "Ossau" par contre ensuite pour le choix de la forêt, dès fois ça marche et souvent j'ai l'erreur 3349 "Dépassement de capacité sur un champ numérique".
Je ne comprend pas la signification de ce message, ni pourquoi le problème se pose que pour le département "64" et encore moins pourquoi dès fois ça marche et d'autres fois ça ne marche pas.
Merci

[keita]

salut
y a t-il du code qui s'execute pendant vos actions sur les listes?
@+

[snoopy69]

Bonjour ...

Est-ce que tu pourrais nous dire comment tu as créer tes zones de liste et aussi si tu y a mis du code comme keita le dit ???

Et pourrais tu nous donner une partie du modèle de ta base avec le type des champs que tu as mis qui sont utilisés dans les zones de liste déroulante ???

Merci car comme ça le problème n'est pas très évident à voir ... ... ...

[tzinzin]

Oui il y a effectivement du code (remplissage de textbox) voir code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub InfDep_Change()
InfSec.Value = Null
Me.InfSec.Requery
End Sub
 
Private Sub InfFor_Change()
InfPar.Value = Null
Me.InfPar.Requery
InfForRet.Value = InfFor.Column(0)
InfForCod.Value = InfFor.Column(1)
InfForFon.Value = InfFor.Column(5)
InfForSur.Value = InfFor.Column(6)
InfForIph.Value = InfFor.Column(7)
InfForZon.Value = InfFor.Column(8)
InfForDeb.Value = InfFor.Column(9)
InfForFin.Value = InfFor.Column(10)
InfForDur.Value = InfFor.Column(11)
InfForEta.Value = InfFor.Column(12)
InfForNbs.Value = InfFor.Column(13)
InfForTys.Value = InfFor.Column(14)
InfForRem.Value = InfFor.Column(15)
End Sub
 
Private Sub InfPar_Change()
InfParCod.Value = InfPar.Column(1)
InfParNus.Value = InfPar.Column(3)
InfParSur.Value = InfPar.Column(4)
InfParZce.Value = InfPar.Column(6)
InfParRNN.Value = InfPar.Column(7)
InfParZpe.Value = InfPar.Column(8)
InfParI50.Value = InfPar.Column(9)
End Sub
 
Private Sub InfSec_Change()
InfFor.Value = Null
Me.InfFor.Requery
End

[tzinzin]

InfDep, InfSec, InfFor sont les noms de mes listes modifiables.
Tous les objets du genre InfXxxXxx (InfForRet...) sont les noms de mes textbox.

[keita]

tzinzin, edites ton 2è post et utilises les balises "code" pour ton code.
procedure:
1/juste au dessus de ton post, il le btn "edit"; tu clic la dessus
2/une fois ton message affiché, tu coupes ton code seulement; tu clic sur le label code au dessus de ton msg; tu colles ton code et tu reclic sur "code".
retour sur ton pb; donnes nous le type de tes champs comme le demande snoopy; c'est important et ton pb est là.
@+

[tzinzin]

Ok pour le code (Désolé)
Pour les champs, il s'agit de champs texte (taille 255) et numérique (reel double).
Précision supplémentaire : je travail à partir de feuilles Excel liées à Access.

[keita]

ok, va falloir aller au pas à pas dans ton code car quelque part un de tes champs reçois une valeur non conforme; une valeur plus grande que ne permet son type.
Marque un point d'arret à partir d'ici pour voir:

Code :

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

InfForRet.Value = InfFor.Column(0)

et puis une fois dans le code tu mettras le point d'arret ligne apres ligne
@+

[tzinzin]

Bon bah je sais pas pourquoi, mais maintenant que je veux qu'il plante ça marche! Je vous tiens au courant si le problème se pose à nouveau.
merci