Discussion :

[Superpat9999]

Bonjour
J'ai mon code qui me permet d'ouvrir Access, tout fonctionne bien, maintenant je veux savoir s'il est possible de trier mon champs tel que:
OrderBy = "DateOperation asc"

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
 Sub Y3_OuvertureFormAccess()
          'Défini un objet access
          Dim objAccess As New Access.Application
          Dim CheminDB As String
          'Dim Repertoire As String
          'Dim Fichier As String
          Dim OuvrirFichier As Boolean
10        NomProcedure = "OuvrirAccess"
11        Fichier = "Nav_Courant_10-20.accdb"
12        Repertoire = "D:\Dropbox\Access\Travail\OK\"
13        CheminDB = Repertoire & Fichier
14        If FichierExiste(Repertoire & Fichier) = True Then
              'Debug.Print "Le dossier " & CheminDB & " existe..."
15        Else
              'Debug.Print "Le dossier " & CheminDB & " n'existe pas."
16            MsgBox "Le dossier " & CheminDB & " n'existe pas."
17            End
18        End If
19        objAccess.OpenCurrentDatabase CheminDB
          'Ouvre le Formulaire, acNormal pour le voir en mode affichage,
20        objAccess.DoCmd.OpenForm "_f_Navigation", acNormal
 
          'Pour rendre le tout visible à l'utilisateur
21        objAccess.Visible = True
22        Set objAccess = Nothing
      End Sub

Merci de votre aide

[hyperion13]

Salut
Le plus simple serait de le faire sur le form directement.
Onglet Données - Propriété Tri par : ORDER BY DateOperation ASC
Sinon et a tester

Code :

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

1
2
3
4
5
6
Dim strOrderBy As String
strOrderBy = "[DateOperation ] ASC"
 
objAccess.DoCmd.OpenForm "_f_Navigation", acNormal
Forms![_f_Navigation].OrderBy = strOrderBy
Forms![_f_Navigation].OrderByOn = True

[Superpat9999]

merci hyperion13 pour ta réponse,
Je me suis légèrement trompé dans ma demande, mais je pense que ça n'a pas d'importance. En effet "dateOperation" se trouve dans un contrôle d'onglets.
1-Auparavant, effectivement, je triais en arrivant dans le formulaire. Mais je voulais m'épargner un clic !
2-J'ai repris ta formule avec 2 lignes en plus (provisoires pour vérifier que je suis sur la bonne colonne :

Code :

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

1
2
3
4
        Forms("[_f_Navigation]").Controls("[Formulaire Operation]").Controls("[dateOperation]").Visible = False
        Forms("[_f_Navigation]").Controls("[Formulaire Operation]").Controls("[dateOperation]").Visible = True
        Forms("[_f_Navigation]").Controls("[Formulaire Operation]").Controls("[dateOperation]").OrderBy = strOrderBy
        Forms("[_f_Navigation]").Controls("[Formulaire Operation]").Controls("[dateOperation]").OrderByOn = True

La 1ère et la deuxième ligne s'exécutent parfaitement, puis lorsque j'arrive sur la 3ème ligne, j'obtiens le message :

Erreur d'exécution '438' : Propriété ou méthode non gérée par cet objet.

[hyperion13]

re,
Vous êtes, sauf erreur de ma part, dans un formulaire de navigation.
A l'ouverture de votre form de navigation, l'onglet Opérations est-il actif?

[Superpat9999]

re,
Vous êtes, sauf erreur de ma part, dans un formulaire de navigation.
A l'ouverture de votre form de navigation, l'onglet Opérations est-il actif?

Non, il s'agit d'un formulaire "_f_Navigation" où j'ai installé un contrôle d'onglets avec un formulaire dans chaque onglet.
Oui l'onglet est actif.

J'essaierais ceci:

Code :

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

Forms("[_f_Navigation]").Controls("[Formulaire Operation]").OrderBy = strOrderBy

Ou cela:

Code :

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

Forms("[Formulaire Operation]").OrderBy = strOrderBy

La première solution me donne Erreur 438 Propriété ou méthode non gérée par cet objet
La seconde solution me donne Erreur 2450 ... ne trouve pas le formulaire "formulaire Opération" auquel il est fait référence.
Les lignes 1 et 2 que j'avais rajouté, me masquaient bien la colonne DateOperation puis la rendaient visible.

[hyperion13]

re
pour ma part, lorsqu'on évoque formulaire de navigation, c'est le type de form en img1.
à priori vous avez un form principal dans lequel vous avez inséré un contrôle d'onglets img2

Code :

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

1
2
3
4
5
Dim strOrderBy As String
strOrderBy = "[dateOperation] DESC"
'Forms![_f_Navigation]![Formulaire Operation].SetFocus
Forms![_f_Navigation]![Formulaire Operation].Form.OrderBy = strOrderBy
Forms![_f_Navigation]![Formulaire Operation].Form.OrderByOn = True

[deedolith]

Code :

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

1
2
3
 
        Forms("[_f_Navigation]").Controls("[Formulaire Operation]").Controls("[dateOperation]").OrderBy = strOrderBy
        Forms("[_f_Navigation]").Controls("[Formulaire Operation]").Controls("[dateOperation]").OrderByOn = True

Normal, c'est le formulaire qu'il faut trier.
Pas le contrôle ...

[hyperion13]

@Superpat9999 va rester sur sa faim.
La juste syntaxe est laquelle ?

Normal, c'est le formulaire qu'il faut trier.
Pas le contrôle ...

[deedolith]

J'essaierais ceci:

Code :

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

Forms("[_f_Navigation]").Controls("[Formulaire Operation]").OrderBy = strOrderBy

Ou cela:

Code :

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

Forms("[Formulaire Operation]").OrderBy = strOrderBy