Affichage selectif dans un sous-formulaire

**denisw95** · 23/09/2018, 14h42

Bonjour,

J'ai crée un formulaire dans lequel se trouve un sous-formulaire
Dans le formulaire, j'ai des paramètres de saisie pour sélectionner les records contenu dans un table
L'affichage du résultat de la commande SELECT sur la table se fait sur le sous-formulaire

Lorsque tous les paramètres sont saisis, l'affichage dans le sous-formulaire se fait correctement (via le SQL intégré dans la propriété Source du sous-formulaire.

Maintenant, je voudrais pouvoir intégrer un paramètre 'Tous' afin d'étendre l'affichage (ce que j'ai réussi à faire

). Par contre, pour que l'affichage dans mon sous-formulaire corresponde à la sélection "élargie", je dois modifier la source dans la propriété du formulaire. Comment faire ?

Merci d'avance pour votre aide

**bertiny** · 23/09/2018, 15h24

Bonjour
En étendant l'affichage, veux-tu conserver l'affichage d'avant? Si oui alors tu seras peut-être obligé d'utiliser deux sous-formulaires où un s'affichera avec l'affichage étendue et l'autre l'affichage normal peut-être à l'aide de deux boutons.
J'espère que j'ai bien compris ton problème

**denisw95** · 23/09/2018, 15h42

Merci pour ce retour rapide

Je ne veux voir que le dernier affichage correspondant aux paramètres saisis dans le formulaire.

Si je mets ma clause SELECT dans la source du sous-formulaire, cela fonctionne bien mais ça m'oblige à me restreindre à des valeurs présentent dans la table (exemple : Renault/Megane/2.0) et sélectionnées via des ListBox. Par contre si je veux avoir le résultat comme par exemple : Renault/Megane/tous les modèles (sachant que j'ai intégré "Tous les modèles" dans ma ListBox), je dois changer ma clause SELECT dans la source du sous-formulaire. ET c'est là qu'est mon problème.

Comme indiqué dans la FAQ, je fais :

Code :

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

Forms!["FVoiture"]!["sFVoiture"].Form.RecordSource = strSql

mais j'ai une erreur me disant qu'Access ne trouve pas le formulaire FVoiture alors que je l'ai ouvert juste avant

**bertiny** · 23/09/2018, 16h19

Et si tu essaies

Code :

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

Forms![FVoiture]![sFVoiture].Form.RecordSource = strSql

**denisw95** · 23/09/2018, 16h36

même punition

**tee_grandbois** · 23/09/2018, 21h25

bonsoir,

Envoyé par denisw95

Merci pour ce retour rapide

Je ne veux voir que le dernier affichage correspondant aux paramètres saisis dans le formulaire.

Si je mets ma clause SELECT dans la source du sous-formulaire, cela fonctionne bien mais ça m'oblige à me restreindre à des valeurs présentent dans la table (exemple : Renault/Megane/2.0) et sélectionnées via des ListBox. Par contre si je veux avoir le résultat comme par exemple : Renault/Megane/tous les modèles (sachant que j'ai intégré "Tous les modèles" dans ma ListBox), je dois changer ma clause SELECT dans la source du sous-formulaire. ET c'est là qu'est mon problème.

Comme indiqué dans la FAQ, je fais :

Code :

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

Forms!["FVoiture"]!["sFVoiture"].Form.RecordSource = strSql

mais j'ai une erreur me disant qu'Access ne trouve pas le formulaire FVoiture alors que je l'ai ouvert juste avant

il est préférable de montrer le code complet car il est possible que l'erreur puisse venir d'une autre instruction

**denisw95** · 24/09/2018, 10h37

Bonjour,

Voici le code. la macro est exécuté après MAJ du champ "Action" qui est positionné dans le formulaire "FAbaque".
L'objectif est d'afficher dans le sous-formulaire "sFAbaque" le résultat des paramètre saisis dans FAbaque (soit "Activite","Domaine","Action")

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
Private Sub Screen_Action_AfterUpdate()
 
Dim strSql           As String
Dim dbBdeD           As Database
Dim Screen          As Object
 
    Set dbBdeD = CurrentDb
 
    strSql = "SELECT Code_Software FROM tbAction WHERE Id_Domaine = " & Me.Screen_domaine & _
                          " and id_action = " & Me.Screen_Action & ";"
 
    Set rstCurseur = dbBdeD.OpenRecordset(strSql, dbOpenSnapshot)
 
    If rstCurseur.RecordCount = 0 Then
            Me.Param_Action = "Tous"
        Else
            With rstCurseur
                Me.Param_Action = Trim(.Fields(0).Value)
            End With
    End If
    If Me.Param_activite = "Tous" Then
            strSql = "SELECT Index, Type, Domaine, Action, " & _
                        "Taille, Libellé, Unité, Service," & _
                        "Prorata, Valeur, Champ11, entité," & _
                        "[Service GTS], [Date Application] " & _
                 "FROM [Base de Calcul] "
            GoTo suite
    End If
    If Me.Param_domaine = "Tous" Then
        strSql = "SELECT Index, Type, Domaine, Action, " & _
                    "Taille, Libellé, Unité, Service," & _
                    "Prorata, Valeur, Champ11, entité," & _
                    "[Service GTS], [Date Application] " & _
             "FROM [Base de Calcul] " & _
             "WHERE Type= '" & Me.[Param_activite] & "'"
        GoTo suite
    End If
    If Me.Param_Action = "Tous" Then
        strSql = "SELECT Index, Type, Domaine, Action, " & _
                        "Taille, Libellé, Unité, Service," & _
                        "Prorata, Valeur, Champ11, entité," & _
                        "[Service GTS], [Date Application] " & _
                 "FROM [Base de Calcul] " & _
                 "WHERE Type= '" & Me.[Param_activite] & "' AND Domaine = '" & Me.[Param_domaine] & "'"
        GoTo suite
    End If
 
    strSql = "SELECT Index, Type, Domaine, Action, " & _
                "Taille, Libellé, Unité, Service," & _
                "Prorata, Valeur, Champ11, entité," & _
                "[Service GTS], [Date Application] " & _
         "FROM [Base de Calcul] " & _
         "WHERE Type= '" & Me.[Param_activite] & "' AND Domaine = '" & Me.[Param_domaine] & "' AND " & _
               "Action= '" & Me.[Param_Action] & "'"
 
suite:
 
    Forms!["FAbaque"]!["sFAbaque"].Form.RecordSource = strSql
 
    Me.Refresh
 
End Sub

**denisw95** · 24/09/2018, 12h20

J'ai fait évoluer ma syntaxe

Code :

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

1
2
 
Forms!["FAbaque"]!["sFAbaque"].Form.RecordSource = strSql

en

Code :

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

1
2
 
Forms![FAbaque]![sFAbaque].Form.RecordSource = strSql

Mon formulaire est maintenant correctement identifié.

De plus j'avais une incohérence dans la définition de mon formulaire entre le nom et la source

**bertiny** · 24/09/2018, 19h01

Bonjour
Sans toutefois vouloir te vexer, j'aimerais savoir "l'évolution" que tu as faites en quoi est-elle différente de ce que je t'ai proposé?

Affichage selectif dans un sous-formulaire [AC-2016]

IHM

Discussions similaires

Partager

Partager