[Access] Zone de liste dans un fomulaire

Perso, je ferais en plusieurs phases, pour que la détection de l'erreur soit plus facile, comme ça :

mavar = forms.liste433.Value

monsql  = "SELECT contrats FROM ma_table_avec_les_contrats WHERE [N° de contrat] = '" & mavar & "'" 

docmd.runsql monsql

c'est pas faux.

Autre question, comment récupérer le filtre actif d'un formulaire ?

dim valcritere as string
Valcritere = Me.filterON

je suis pas sur du code ...

Je ne sais pas, mais si tu utilises une zone de liste, tu peux en récupérer la valeur avec zone_de_liste.value... et en plus, tu dis adieu aux filtres...

salut,

et si N° contrat est numérique, alors pas de

"'"

...

ok, j'ai du alpha numérique dans mon n° de client donc le ' est utile en revanche, juste pour être sur, le code donné doit être rentré en VBA, je ne mets plus rien dans les propiété de la zone de liste.

je suppose aussi qu'il faut déclaré les avriable avec

Dim monsql as ...
dim mavar as ...

non ?

C'est normal, runsql veut une requête de type action (mise à jour, suppression...), j'avais mal lu le début de ton problème...

Si tu veux limiter ta zone de liste, alors il faut utiliser la propriété rowsource :

zone_de_liste.rowsource = monsql

--
A+ Blux

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

ok donc sa fonctionne .... en partie ... merci

voici le code complet:
Private Sub Liste433_AfterUpdate()
'affichage des enregistrement disponible
Dim Mavar As String
Dim Monsql As String
Mavar = Me!Liste433.Value
Monsql = "SELECT [N° de contrat] FROM contrats WHERE [N° de contrat] = '" & Mavar & "'"
Liste433.RowSource = Monsql

' Rechercher l'enregistrement correspondant au contrôle.
Dim listeform As Object
Set listeform = Me.Recordset.Clone
listeform.FindFirst "[N° de contrat] = '" & Me![Liste433] & "'"
If Not listeform.EOF Then Me.Bookmark = listeform.Bookmark
End Sub

Dans la théorie ma zone de liste doit afficher les n° de contrat des enregistrements dipos puis après (2ème code) je navigue sur mes enregistrements par le biais de la zone de liste

Là je clique sur un enregistrement et les autres dispo ne sa'affiche plus ... si après filtrage de mon formulaire j'ai 3 enregistrements, les 3 n° de contrat devront resté dans la zone de liste pour pouvoir "naviguer" dans mes enregistrement.

Monsql = "SELECT [N° de contrat] FROM contrats WHERE [N° de contrat] = '" & Mavar & "'"
Liste433.RowSource = Monsql

y'a comme un souci... Tu choisis une valeur dans une liste et ensuite tu modifies cette même liste !

Je pense que le rowsource doit s'appliquer à ta zone d'afichage et non à ta zone de choix...

oui je suis d'accord mais comment faire ???

En fait il faut que ma liste soit le résultat du champs [n° de client] du filtrage de mon formulaire.

Dans ton formulaire, tu as une zone de liste déroulante et une zone de liste ?

Ta zone de liste déroulante te sert à faire ton choix, et ta zone de liste te sert à afficher les informations après choix...

Dans mon formulaire je n'ais qu'une zone de liste, je fais mon choix par la commande filtrer par formulaire ...

c'est là que ça va coincer, il serait plus 'opportun' de créer une zone de liste déroulante avec en source un SELECT DISTINCT [N° contrat] FROM...
puis une zone de liste avec n colonnes dont tu remplirais le rowsource après avoir fait ton choix dans la liste déroulante...

tu fait tout sous access ou tu a aussi visual basic?
moi je fait tou sous access et dans les proprietés tu met juste select["le nom de ta requete"]et en dessous
nbre colonnes tu met 2
par contre il faut que ta requete selctionne les deux informations que tu veu

Donc voici mon code au complet

Private Sub Liste433_AfterUpdate()
Dim Mavar As String
Dim Monsql As String
Mavar = Form.Liste433.Value
Monsql = "SELECT [N° de contrat] FROM contrats WHERE [N° de contrat] = '" & Mavar & "'"
DoCmd.RunSQL Monsql

j'ai une erreur exécution 2342
"une action Executer sql necessite un argument concistant en une onstruction sql"