[AC-2003] Afficher zone de liste en fonction de la colonne d'une premiere zone de liste [Résolu]

[maclolo2]

bonjour,

Dans une première liste, je n'ai qu'une seule ligne et en fait, je voudrais faire correspondre ma deuxième liste en fonction de la valeur d'une colonne.
La valeur de la colonne est du texte.
Ma deuxième liste renvoi tous les enregistrements d'une table, et je voudrais qu'avec la valeur de la colonne de la liste 1, ca me fasse un tri dans la deuxieme liste.
voici mon code :

Code :

1
2
3
4
5
Dim sect As Long
    Dim sql As String
    sect = Form_Renvoi_réservation!Liste2.Column(7, 0)
    sql = "SELECT T_Trajet_retour.N°, T_Trajet_retour.Civilité, T_Trajet_retour.Nom, T_Trajet_retour.Prénom, T_Trajet_retour.Téléphone, T_Trajet_retour.Adulte, T_Trajet_retour.Enfant, T_Trajet_retour.Secteur, T_Trajet_retour.Transporteur, T_Trajet_retour.Date_trajet_retour, T_Trajet_retour.Départ, T_Trajet_retour.Heure_départ, T_Trajet_retour.Arrivée, T_Trajet_retour.Heure_arrivée, T_Trajet_retour.Observations FROM T_Trajet_retour WHERE (((T_Trajet_retour.Date_trajet_retour) Between Date()-31 And Date()+15) and ((T_Trajet_retour.Secteur) =" & sect & ")) ORDER BY T_Trajet_aller.Nom;"
    Form_Renvoi_réservation!Liste0.RowSource = sql

en fait, j'ai erreur d'execution 13, incompatibilité de type sur la ligne:

Code :

1
2
 
sect = Form_Renvoi_réservation!Liste2.Column(7, 0)

si quelqu'un pouvait m'aider

merci

[Dolphy35]

Bonjour,

Dans ce genre de cas il faut procéder par étape, se mettre en phase de débug.

1-Ma variable "sect" est de quelle type ?
2-Que me retourne Form_Renvoi_réservation!Liste2.Column(7, 0) ?
3-c'est la septième colonne que je veux ? si oui, c'est comme en DAO on commence par 0 la première colonne donc 6 ald 7.
4-Comment est déclaré mon champ T_Trajet_retour.Secteur ? si chaîne de caractères alors je dois, dans le SQL, encapsuler ma variable aves des Quotes ( ' ).

Autre point, nommer vos contrôles. Liste2 ne veux strictement rien dire. Si vous avez une liste dans le Form, Why not (et encore!) mais dès que vous atteignez une dizaine de contrôle c'est vite ingérable.

Dolphy

[maclolo2]

Bonjour,

ma variable secteur est du texte.
Form_renvoi_réservation.liste2.column(7,0) renvoi bien la valeur qu'il y a dans la colonne si je la fais apparaitre dans une zone de texte.
C'est bien la colonne 8 et la premiere ligne.
T_trajet_secteur renvoi du texte.

[Dolphy35]

Salut,

Dommage tu n'as pas été jusqu'à la conclusion

Le but était de t’amener à s'auto débugger.

Ton problème vient de la déclaration de ta variable Dim sect As LongEn gros tu charge du texte (String) dans du numérique (Long).
Met ceci :

Code :

Dim sect As String

et dans le SQL encapsule bien ta chaîne de caractères :

Code sql :

((T_Trajet_retour.Secteur) ='" & sect & "')

Dolphy

[maclolo2]

je vais essayer ca.
Je vous dirais ca aprés 12h, la je ne suis pas chez moi, c'est pour ça que je n'ai pas pu regarder.
mais je vais faire un test et je vous tiens au courant.

merci

[maclolo2]

ca marche
je te remercie grandement, faut vraiment que je surveille ma syntaxe.

merci

[Dolphy35]

re,

Envoyé par maclolo2

ca marche
je te remercie grandement, faut vraiment que je surveille ma syntaxe.

merci

C'est clair que cela évite bien des soucis. Il est fortement d'identer tes variables, ceci t'aidera. par exemple une variable de type string => strMaVariable, une de type long => lngMaVariable.
un peu de lecture http://argyronet.developpez.com/office/vba/convention/

Sinon lors de cas comme cela pose toi les questions de mon premier post, dans 90% des cas tu trouveras de suite l'erreur.

@+

[maclolo2]

Envoyé par Dolphy35

re,


C'est clair que cela évite bien des soucis. Il est fortement d'identer tes variables, ceci t'aidera. par exemple une variable de type string => strMaVariable, une de type long => lngMaVariable.
un peu de lecture http://argyronet.developpez.com/office/vba/convention/

Sinon lors de cas comme cela pose toi les questions de mon premier post, dans 90% des cas tu trouveras de suite l'erreur.

@+

merci beaucoup je vais regarder tout çà.

bonne journée