Discussion :

[popof60]

Re à tous,

comme l'indique le titre j'ai 2 zone de liste, l'une dépend de la première ... j'ai le code suivant

Code :

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

1
2
3
4
5
Dim SQLappel As String, criteria As String
criteria = "[Suivi Contacts].RéfContact = '" & Me.Liste489.Column(0) & "'"
SQLappel = "SELECT [Suivi Contacts].RéfAppel, [Suivi Contacts].DateAppel, [Suivi Contacts].Sujet FROM [Suivi Contacts] WHERE "&criteria
Me.Liste491.RowSource = SQLappel
Liste491.Requery

oui mais voilà ça ne fonctionne pas ... j'ai un doute sur la syntaxe après le Where ...

Merci

Cyril

[RGShoop]

Salut,

et en faisant

Code :

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

1
2
3
SQLappel = "SELECT [Suivi Contacts].RéfAppel, [Suivi Contacts].DateAppel, [Suivi Contacts].Sujet FROM [Suivi Contacts] WHERE [Suivi Contacts].RéfAppel =" & criteria & ";"
Me.Liste491.RowSource = SQLappel
Liste491.Requery

A + RGShoop

[RGShoop]

J'y ajouterai même des cotes en entourant le criteria avec le code caractère N° 34 soit :

Code :

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

 & Chr(34) & criteria & chr(34) &

[popof60]

je peux juste avoir une petite explication sur le "chr34", c'est quoi, ça sert à quoi ... ce code ne marche pas en revanche le premier bug moins, j'ai mes en-tête de colonne mais toujours pas d'affichage


EDIT
Bon cela fonctionne comme il faut avec le code suivant

Code :

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

SQLappel = "SELECT [Suivi Contacts].RéfAppel,[Suivi Contacts].Refcontact, [Suivi Contacts].DateAppel, [Suivi Contacts].Sujet FROM [Suivi Contacts] WHERE  [Suivi Contacts].RefContact =  " & Me.Liste489.Column(0) & ""

(chr34) ="" bon à savoir, je ne pensais pas que l'on pouvait l'utiliser comme cela