Discussion :

[leskev]

Bonjour, je pense que la réponse à ma question est très simple mais je n'arrive pas à résoudre ce petit problème

je voudrais ouvrir un formulaire qui afficherait les personnes travaillant dans un site sélectionné précédemment:
Nom Prénom Qualification ......

Voici ma requête:

Code :

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

1
2
3
4
    Filtre = "SELECT[TablePersonne].[IdPersonne] "
    Filtre = Filtre & "FROM TableLienSitePersonne,TablePersonne"
    Filtre = Filtre & "[TableLienSitePersonne].[IdSite] = " & [Form_FormulaireVisuSite]![IdSite].Value
    Filtre = Filtre & " AND [TablePersonne].[IdPersonne] = [TableLienSitePersonne].[IdPersonne]"

Le problème c'est que je ne sais pas où l'insérer.
Je l'ai mis dans DoCmd.OpenForm
Mais ca ne fonctionne pas

[Frank]

Bonjour,

dans les propriétés du formulaire, dans l'onglet Données, il faut affecter la requête à la ligne source de données.

[marot_r]

Ça c'est la méthode 'dure', tu peux faire cela beaucoup plus simplement en définissant un form lié à ta table et en appliquant un filtre à l'ouverture par

Code :

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

1
2
3
4
 
Filtre = Filtre & "[TableLienSitePersonne].[IdSite] = " & [Form_FormulaireVisuSite]![IdSite].Value
 
docmd.OpenForm "monForm",,,filtre

A+

[leskev]

Merci des réponses.

Avec la méthode DoCmd.OpenForm J'ai une erreur : erreur '3075'
Erreur de syntaxe dans l'expression.

Code :

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

1
2
3
4
5
6
    Dim Filtre As String
    Filtre = "SELECT [TablePersonne].[IdPersonne] "
    Filtre = Filtre & "FROM TableLienSitePersonne,TablePersonne"
    Filtre = Filtre & " WHERE [TableLienSitePersonne].[IdSite] = " & [Form_FormulaireVisuSite]![IdSite].Value
    Filtre = Filtre & " AND [TablePersonne].[IdPersonne] = [TableLienSitePersonne].[IdPersonne]"
    DoCmd.OpenForm "ListingPersonne", , , Filtre

Je n'ai pas trouvé l'erreur si quelqu'un avait la solution ce serai super
Merci

[Frank]

Code :

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

Filtre = Filtre & "FROM TableLienSitePersonne,TablePersonne"

Il manque un espace à la fin entre les guillemets et TablePersonne

[leskev]

Toujour la même erreur et et je n'ai pas encore trouvé la réponse

Ce qui est étonnant c'est que j'ai plusieurs autres requêtes qui ressemblent à celle-ci (copier coller) et elles fonctionnent

Je vais certainement essayer de prendre la première méthode et de mettre ca sur la source du formulaire finalement
Merci pour les infos

[Mahefasoa]

Salut à tous,

Excusez-moi de mon intervention, mais je veux éclairer certains points et corrigez-moi si je me trompe.

...
je voudrais ouvrir un formulaire qui afficherait les personnes ...
Voici la requête:

Code :

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

1
2
3
4
5
 
    Filtre = "SELECT[TablePersonne].[IdPersonne] "
    Filtre = Filtre & "FROM TableLienSitePersonne,TablePersonne"
    Filtre = Filtre & "[TableLienSitePersonne].[IdSite] = " & [Form_FormulaireVisuSite]![IdSite].Value
    Filtre = Filtre & " AND [TablePersonne].[IdPersonne] = [TableLienSitePersonne].[IdPersonne]"

Tu as donné le nom de "Filtre" à cette variable mais ceci n'est pas un filtre. Un filtre se limite d'après ce que j'ai cru comprendre, à la partie critère d'une intruction SQL sans le mot clé WHERE.
Je crois qu'il est important de bien choisir le nom que l'on attribue aux objets et variables.

Avec les lignes de code que tu proposes, tu as l'intention de modifier la source d'un formulaire. Cela est possible si d"ja le formulaire existe avec les contrôles adéquats (donc plus besoin de modifier la source de données de chaque contrôle). Et pour ça, il faut que tu ouvres le formulaire en mode desing, ensuite modifier sa source de données, ensuite fermer le formulaire en enregistrant et le rouvrir, cette fois en mode d'affichage normal. Tout un sport et je me joigne à marot_r qui a dit que "c'est la méthode 'dure'"!

La "bonne méthodeé serait la proposition de marot_r, avec une toute petite rectification (si marot_r le permet)

Code de marot_r :

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

1
2
3
4
5
 
'Filtre = Filtre & "[TableLienSitePersonne].[IdSite] = " & [Form_FormulaireVisuSite]![IdSite].Value
Filtre = "[TableLienSitePersonne].[IdSite] = " & [Form_FormulaireVisuSite]![IdSite].Value
 
docmd.openForm "nomForm",,,Filtre

Une autre possibilité est d'ouvrir le formulaire, puis de définir le filtre et enfin l'appliquer. C'est assez long, mais une autre facette à connaitre.

Code :

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

1
2
3
4
 
docmd.OpenForm "nomForm"
Form_nomForm.Filter = "[TableLienSitePersonne].[IdSite] = " & [Form_FormulaireVisuSite]![IdSite].Value 'définit le filtre
Form_nomForm.FilterOn = True 'active le filtre

Pour pouvoir utiliser Form_nomForm, il faut que la propriété Avec module soit activée sur Oui dans le formulaire désigné par nomForm.

Bon courage et @+

[marot_r]

Juste un point de précision, on peut changer le recordsource d'un form à la volée pas besoin d'être en mode design pour cela.

Ça reste selon moi une méthode 'dure' :-), je l'ai utilisé lorsque j'avais des problème de performance, le reste du temps je fais travailler Access pour moi.

A+

[leskev]

Merci beaucoup pour toutes ces précisions, ça y est c'est fonctionnel grâce à vous
J'avais des boites de dialogue qui s'affichaient avec la dernière méthode proposée qui me demandaient d'entrer les valeurs des filtres. J'ai mis un "formulaire de transition" pour pouvoir pouvoir afficher ce que je souhaitai. Maintenant, plus de boite de dialogue, c'est automatique ça fonctionne.

Encore merci et à bientôt