Discussion :

[ClaudeLELOUP]

Bonjour,


Au lieu de

Code :

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

=Compte(*)

qui provoque sans doute un tri de la source dans les entrailles d'Access (?), ce tri prenant alors le pas sur l'ordre initial des enregistrements.

Essaie ceci

Code :

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

=CpteDom("*";"rLaSource")

Une ruse pour que Access aille chercher la valeur à un autre endroit que dans la source de l'état proprement dite.
Sans garantie pour la rigueur de mon explication, mais ça a l'air de marcher.

[rag83]

Ta ruse fonctionne Claude, je te remercie, je continue mes tests

[rag83]

Bon et bien voila tout fonctionne comme je veux, finalement le système est bien et je vais fonctionner comme ça.

Une petite question toutefois, à quoi sert le Me.Requery dans le code sur Form_Close car ça fonctionne aussi sans ?

Merci à tout ceux qui m'ont aidé et en particulier à Claude

[ClaudeLELOUP]

Une petite question toutefois, à quoi sert le Me.Requery dans le code sur Form_Close car ça fonctionne aussi sans ?

C'est une erreur : sans doute un copier-coller un peu trop large !

Malheureusement vu trop tard : le délai est passé pour corriger le biais dans le billet

À la prochaine.

[rag83]

Ok c'est pas grave, en tous cas c'est corrigé chez moi

Une question supplémentaire en rapport avec ce code.

Pour le moment, je l'utilise sur plusieurs formulaires différents, chacun basé sur sa propre requête et avec son propre code.

Je voudrais intégrer tous ces formulaires dans un seul et unique, et modifier chaque fois les données affichées grâce à différents boutons.

Sur chacun de ces boutons, j'ai donc appliqué le code suivant :

Code :

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

1
2
3
4
5
Dim q As QueryDef
Set q = CurrentDb.QueryDefs("R_MaRequete")
q.SQL = "LaRequeteCorrespondantACeQueJeVeuxAfficher"
Me.RecordSource = Me.RecordSource
Set q = Nothing

Mais maintenant comment vérifier quelle requête est active au moment où on veut trier pour lui appliquer le code de tri ?

[ClaudeLELOUP]

Je ne comprends pas la question.

Peux-tu montrer un dessin ?

[rag83]

Rien n'est encore fait, c'est un projet. Je vais essayer d'être un peu plus clair.

J'ai un formulaire principal qui affiche, pour des clients, des séjours auxquels ils ont participé ou vont participer.

Chaque séjour comporte évidemment plusieurs champs (comme sur le dessin de la page précédente).

Je voudrais par exemple avoir, sur un bouton, accès aux séjours en cours; sur un autre, à ceux qui sont terminés; sur un autre encore, ceux en cours de traitement, etc, mais tout ceci dans le même formulaire.

J'ai donc basé mon formulaire sur une requête avec les données brutes des séjours, puis j'ai affecté à chacun des autres boutons (avec le code ci-dessus) une modification de la requête de départ pour afficher les informations que je veux.

Mais je voudrais aussi rendre possible le tri avec ton code de la page précédente. La question est donc comment faire prendre en compte la bonne requête au bon moment dans le code de btTrier ?

[ClaudeLELOUP]

Quelque chose comme ceci ?

[rag83]

Heu non

Sur ton screenshot de la page précédente, le formulaire au départ, il y a 7 colonnes.

Ce formulaire sera affiché comme cela à son ouverture.

Au-dessus de ces colonnes, il y aura plusieurs boutons, chacun d'eux modifiant à la volée la requête de ce formulaire pour afficher d'autres informations, avec le code

Code :

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

1
2
3
4
5
Dim q As QueryDef
Set q = CurrentDb.QueryDefs("R_MaRequete")
q.SQL = "LaRequeteCorrespondantACeQueJeVeuxAfficher"
Me.RecordSource = Me.RecordSource
Set q = Nothing

Par exemple sur un bouton on aura uniquement les séjours compris entre telle et telle date, sur un autre uniquement ceux d'une durée supérieure à 7 jours, sur un autre encore ceux d'une ville précise.

Chaque pression d'un bouton modifie donc bien la requête source à la volée pour afficher les informations voulues.

Un autre bouton rétablira la requête de départ et donc le formulaire dans son mode d'affichage original, tout comme sa fermeture d'ailleurs, ce que fait ton code sur Form_Close de la page précédente.

Etant donné que chaque pression d'un bouton modifie la requête, comment vais-je pouvoir utiliser ton système de tri ?

[ClaudeLELOUP]

Par exemple sur un bouton on aura uniquement les séjours compris entre telle et telle date, sur un autre uniquement ceux d'une durée supérieure à 7 jours, sur un autre encore ceux d'une ville précise.

Ce que tu demandes ressemble à ce qu'on appelle souvent : « un formulaire avec recherche multicritère ».

Regarde ici : http://claudeleloup.developpez.com/t...-multicritere/, je crois qu'avec cette méthode, il « suffit » d'adapter ta requête actuelle pour y inclure la référence aux contrôles filtreXXX décrits dans le tutoriel.

Je te suggère de clôturer maintenant cette discussion-ci qui porte déjà le drapeau et dont le contenu s'écarte de plus en plus de la question initiale.

Au plaisir de te recroiser.

[rag83]

En effet ça y ressemble sauf que dans mon cas les requêtes sont prédéfinies à l'avance par les boutons.

Je vais essayer de m'en inspirer.

Sujet clos merci pour tout

[rag83]

Désolé de réouvrir ce sujet, tout fonctionne très bien mais je voudrais intégrer une gestion d'erreur sur le code de btTrier_Click() car j'ai 12 colonnes dans mon formulaire, la possibilité de trier sur chacune de ces colonnes et si par exemple l'utilisateur entre par erreur deux fois le même chiffre dans les cases, le tri se fait sur le premier trouvé mais on ne voit pas le conflit.

Comment en VBA vérifier que la valeur d'un triXXXX n'est pas la même que celle d'un autre triXXXX, ou encore que les triXXXX dont la valeur n'est pas égale à 0 sont bien incrémentés de 1 en 1, et si c'est le cas avoir un msgbox le disant ?

Merci

[ClaudeLELOUP]

BONJOUR,

Par exemple en complétant ]Private Sub btTrier_Click() comme ceci :

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
Private Sub btTrier_Click()
  Dim bOK As Boolean
  Dim i As Integer
  Dim j As Integer
  Dim ctl As Control
  Dim sClauseOrder As String
  Dim q As QueryDef
  'Compter les arguments de tri
  i = 0
  For Each ctl In Me.Controls
    If ctl.Name Like "tri*" Then
        If ctl <> 0 Then i = i + 1
    End If
  Next ctl
  If i = 0 Then 'pas d'argument => ordre naturel
      Set q = CurrentDb.QueryDefs("rLaSource")
      q.SQL = "SELECT * FROM LaTable;"
      'Actualiser le formulaire
      Me.RecordSource = Me.RecordSource
      Exit Sub
  End If
  'quand on arrive ici, on sait qu'il y a i tris à opérer
  'Tu veux donc vérifier qu'ils sont numérotés de 1 à i
  For j = 1 To i
    bOK = False
    For Each ctl In Me.Controls
      If ctl.Name Like "tri*" Then
          If ctl = j Then bOK = True
      End If
    Next ctl
    If bOK = False Then
        MsgBox "L'ordre de tri n'est pas correctement mentionné !", vbCritical
        Exit Sub
    End If
  Next j
  'Construire la clause Order
  sClauseOrder = " ORDER BY "
  For j = 1 To i
    For Each ctl In Me.Controls
      If ctl.Name Like "tri*" Then
          If ctl = j Then
              sClauseOrder = sClauseOrder & Right(ctl.Name, Len(ctl.Name) - 3)
              If Me("opt" & Right(ctl.Name, Len(ctl.Name) - 3)) = 0 Then
                  sClauseOrder = sClauseOrder & " DESC"
              End If
              sClauseOrder = sClauseOrder & ","
          End If
      End If
      Next ctl
  Next j
  'Supprimer la dernière virgule
  sClauseOrder = Left(sClauseOrder, Len(sClauseOrder) - 1)
  'Construire le sql de rLaSource
  Set q = CurrentDb.QueryDefs("rLaSource")
  q.SQL = "SELECT * FROM LaTable " & sClauseOrder & ";"
  'Actualiser le formulaire
  Me.RecordSource = Me.RecordSource
  'Libérer q
  Set q = Nothing
End Sub

[rag83]

Bonjour Claude, merci pour la rapidité de ta réponse. Je regarde ça d'ici peu et te donne un retour.
A plus tard.

Bon et bien voila, j'ai testé et bien c'est parfait que dire de plus

Juste une petite question pour ma compréhension personnelle, le exit sub à la ligne 20 est il vraiment nécessaire, car c'est pareil sans . Et pour celui de la ligne 33 ?