Discussion :

[Faw]

Salut,
Audrey, ce que je proposais concernait un formulaire tabulaire et pas une zone de liste. Ma question était si ton maitre de stage accepterait l'ajout d'un champ Booléen ds la table qui te sert de source pour arriver à ce résultat.

Belle manoeuvre Neilos, je continue d'apprendre. Mais il est vrai qu'avec les "opérateurs" And, Or et In on est limité par le nombre d'arguments (enfin si j'ai bien tout compris).

[audrey_desgres]

je ne sais pas ce que c'est q'un formulaire tabulaire, tu peux m'expliquer vite faite?

c'est un formulaire avec des tableaux? et comment tu fais ça?



merci

audrey

[Faw]

Tabulaire = sous forme de tableau. (comme une liste mais en plus maléable).
Tu peux savoir à quoi ça ressemble en qqes secondes:
crée un form basé sur une source avec l'assistant et ds les options proposées tu choisis Tabulaire (ce n'est qu'une mise en forme).

[Neilos]

Belle manoeuvre Neilos, je continue d'apprendre. Mais il est vrai qu'avec les "opérateurs" And, Or et In on est limité par le nombre d'arguments (enfin si j'ai bien tout compris).

Merci mais ce n'est pas les opérateurs qui limitent mais la taille maximale d'une chaîne de caractère il faut croire.

C'est vrai qu'un formulaire tabulaire serait beaucoup plus simple et plus joli.
Eh bien tu crée un formulaire avec l'assistant et il te le proposera !

[audrey_desgres]

je vien de faire un formulaire tabulaire et en effet, le graphisme est bien et c'est plutot clair.

mais je ne comprends pas comment je peux faire une recherche multi-critères à partir de là et je ne comprends toujours pas l'utilité de ton booléen?

peux-tu m'expliquer davantage ce que tu avais comme idée?

merci beaucoup

audrey

[Faw]

Ok Audrey,
Pour la recherche multicritères je ne pense pas qu'utiliser un formulaire au lieu d'une ListBox soit incompatible (Les critères en entête de form et les filtres seront appliqués au détail du form). Mais je m'avance peut-être (Cafeine si tu passes par là...). Cela va t'obliger à remanier un peu ton code.

Pour la présentation, il est clair que les ListBox n'offrent pas un choix mirobolant comparé aux formulaires.

pour expliquer l'idée du champ booléen:
Il s'agit en fait de parcourir la source avec un recordset en gardant ,à chaque fois, l'état du champ booléen(OUI ou NON) et le Domaine pour le comparer à celui de l'enregistrement suivant.
Si c'est le même Domaine Alors Le champ booléen na change pas
Sinon le champ booléen prendra l'état opposé de celui en mémoire.
Après il suffit de se servir de la mise en forme conditionnelle pour affecter une couleur à OUI et une autre à NON.

cela donne: Le champ booléen s'appelle Couleur et le champ domaine Domaine

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
Sub AlternColor()
On Error GoTo Form_AlternColor_Err
 
 
    Dim Db As DAO.Database
    Dim rs As DAO.Recordset
    Dim SQL As String
 
    Dim VarCouleur As Boolean
    Dim VarDomaine As String
 
 
        Set Db = CurrentDb
        SQL = "Select * from LaSourceDuForm  ORDER BY  LaSourceDuForm.[Domaine] "  'le tri sur domaine est requis ici
        Set rs = Db.OpenRecordset (SQL)
 
        rs.MoveFirst
        ‘ mise en mémoire  des valeurs enregistrement lu
        VarDomaine = rs.Fields!Domaine
        VarCouleur = rs.Fields!Couleur
 
        rs.MoveNext      ‘Lecture second enregistrement
 
                While Not rs.EOF
                rs.Edit
                    If (rs.Fields!Domaine = VarDomaine)  Then
                            rs.Fields!Couleur = VarCouleur
                            Else
                            If VarCouleur = False Then
                                rs.Fields!Couleur = True
                                Else
                                rs.Fields!Couleur = False
                            End If
                    ‘ mise en mémoire  des valeurs enregistrement lu si Domaine a changé
                    VarDomaine = rs.Fields!Domaine
                     VarCouleur = rs.Fields!Couleur
 
                    End If
                rs.Update
 
                    rs.MoveNext
                Wend
 
Form_AlternColor_Exit:
    Exit Sub
Form_AlternColor_Err:
    Resume Form_AlternColor_Exit
 
End Sub

Mintenant si à un moment ou un autre ton form est trié sur un autre champ ça ne marchera pas...

Après l'appel de la Sub il faudra un Me.Requery. exemple sur Chargement

Code :

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

1
2
3
4
Private Sub Form_Load()
Call  AlternColor
Me.Requery
End Sub

Voilà pour expliquer le fond de ma pensée. Est-ce adapté à tes besoins? Toi seule peut le dire...A chaque solution ses contraintes. Cela dit ce code peut toujours servir ds le cadre d'une autre présentation.

[audrey_desgres]

merci beaucoup faw!!


je vais essayer de tester ton programme aujourd'hui et je vais voir ce que ça donne...

audrey