Ouverture d'état sous condition impossible [Résolu]

[dav787]

Bonjour,

Dans une base de donnée, j’ai un formulaire dont la source est une requête.
Dans ce formulaire, j’ai crée un champ zone liste déroulante, nommé « interlocuteur »).
Mon état, est issu de la même requête.
J’ai crée un bouton me permettant d’ouvrir un état en ne faisant apparaître que la personne choisie dans ma liste déroulante.
Voici le code avec mes commentaires ou ça coince

Code :

1
2
3
4
5
6
7
8
Private Sub Commande128_Click()
    Dim stDocName As String, strwhere As String
 
    stDocName = "Analyse : historique des points bloquants"
    If IsNull(Me!Interlocuteur) Then
    strwhere = ""
    Else
    strwhere = "[Interlocuteur]=" & Me!Interlocuteur

En exécutant un pas à pas pour la ligne ci-dessus, le Me!interlocuteur est identifié par la personne sélectionnée, mais pas le champ [interlocuteur], donc l’état est ouvert, mais tous les enregistrements sont affichés.

Code :

1
2
End If
    DoCmd.OpenReport stDocName, acViewPreview, , strwhere

Le strwhere est bien identifié.

J’ai refait mon état, dans la propriété du champ interlocuteur, j’ai bien inscrit : interlocuteur mais ça ne marche pas.
Moi pas comprendre et je fais donc appel à vous.
Merci pour vos lumières

[marot_r]

Ton interlocuteur est-il un champ texte ou un némrique ?

Si c'est un champ texte essaye :

Code :

 strwhere = "[Interlocuteur]=""" & Me!Interlocuteur  & """"

sinon tu peux peut-être aussi simplement utiliser l'assistant de création de bouton et d'ouverture d'état qui me semble-t-il t'offre la possibilité de filtrer à l'ouverture. Access devrait trouver la bonne syntaxe lui-même.

A+

[dav787]

Bonsoir et merci pour cette info.
L'interlocuteur est un champ texte.
J'ai essayé la suggestion en vain.
J'ai essayé les boutons d'ouverture d'état, mais, pas de filtre n'est proposé, seulement sur la création d'un formulaire.
Je sèche dessus depuis quelques jours et ne voit pas comment résoudre ça.
Merci pour les infos que vous me donnerez.

[RobiPMS]

Et en utilisant des ' (quote simple) suivi de " au début, et l'inverse à la fin, est-ce que ça change quelque chose?

Code :

strwhere = "[Interlocuteur]='" & Me!Interlocuteur  & "'"

Cordialement.

[dav787]

Bonjour et merci, ça fonctionne