Discussion :

[Goupo]

Bonjour à tous,

Je souhaite modifier le RecordSource de mon formulaire. J'ai tenté ce qui suit.

Mon code VBA, au clic sur un bouton :

Private Sub boutonFiltrer_Click()
Me.ZoneRecherche.Form.RecordSource = RequeteRecherche
End Sub

Ma requête nommée RequeteRecherche que j'ai générée en mode création :

SELECT Echange.etablissement, Echange.type, Echange.acteur, Echange.reference, Echange.theme, Echange.objet, Echange.criticite, Echange.dateOrigine, Echange.statut, Echange.reponseAttendue
FROM Echange
WHERE banque = "BP_ALL";

Mon formulaire contient les champs, dans l'ordre :
etablissement,
type,
acteur,
reférence,
thème,
objet,
criticite,
dateOrigine,
statut,
reponseAttendue

Mais quand je clique sur mon bouton, une seule ligne s'affiche dans mon formulaire et toutes les valeurs sont : #Nom.

Je n'ai pas plus d'indication, pour comprendre mon problème... Est-ce que ce sont les noms de champ qui ne correspondent pas?! Le nom de la table? Le nom de la requete? Celui du formulaire?!

Quelqu'un a une piste à me donner?

Merci d'avance pour vos réponses.

PS : Vu sur la documentation M$Office :

Le paramètre de la propriété RecordSource peut être un nom de table, de requête ou une instruction SQL.

[marot_r]

Essaye en ajoutant Me.ZoneRecherche.Form.recalc après Me.ZoneRecherche.Form.RecordSource = RequeteRecherche.

Sinon vérifie aussi le nom des champs associés aux contrôles y-a-t'il [NomCahmp] ou [NomTable].[NomChamp].

Enfin plutôt que recalculer ta requête, tu peux peut-être simplement appliquer un filtre avec les propriété filter et filterOn.

A+

[Goupo]

Merci Marot,

J'ai essayé Me.ZoneRecherche.Form.recalc, mais j'obtiens le même résultat.

J'ai bien vérifié le nom de contrôles du formulaire, ils ont bien le même nom que leur champ. La propriété "source contrôle" est aussi la bonne... Si quelqu'un a une idée pour cette solution, c'est toujours bon à savoir.

Sinon, j'ai réussi en utilisant les propriétés Filter et FilterOn. Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
 
'Me.ZoneRecherche.Form.RecordSource = RequeteRecherche
'Me.ZoneRecherche.Form.Recalc
 
Dim s As String
s = "BP_ALL"
 
Me.ZoneRecherche.Form.Filter = "[banque] = """ & s & """"
Me.ZoneRecherche.Form.FilterOn = True