Discussion :

[gigap_1971]

Bonjour à tous,

je suis en train de développer une base de donnée utilisateur pour ma société. Mais je ne suis pas développeur et j'ai du mal dés que je dois sortir des commandes habituelles.

Ma question porte sur comment trier les enregistrement d'un formulaire en saisissant 2 dates dans des contrôles de l'entête. Ces 2 saisies doivent trier tous les enregistrements qui ont eu lieu entre ces 2 dates ("Entre le :" "et le :"), l'information étant contenue dans le champ [MG_SIGNATURE] de la table [T_MG_INEXIA-IMMO]
Pour plus de compréhension voici une capture d'écran de mon formulaire.
.

Dans l'idéal je voudrais ensuite pouvoir effectuer un second tri sur la sélection contenue entre les 2 dates renseignées. Par exemple quel collaborateur à effectué ces signatures. J'ai déjà mis en place ce filtre qui fonction mais qui bien sur effectue la sélection sur l'ensemble des enregistrement. La macro associée à ce contrôle est ci-dessous.


Merci par avance pour votre aide précieuse. J'ai une 10aine de formulaires à qui je voudrait pouvoir appliquer ces filtres donc les conseils que vous pourrez me donner seront dupliqués du moment que je comprendrais comment il faut faire. Et vous aurez également fait votre BA car cela va aussi beaucoup me faciliter la vie ainsi que celle de tous mes collaborateurs.

Bonne journée à tous.

Cordialement

[hyperion13]

Bonsoir,
Une piste, mais en VBA, à insérer dans le module VBA du form

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
Sub FilterForm()
Dim strWhere As String
 
If Not IsNull(Me.txtdatedeb) And Not IsNull(Me.txtdatefin) Then
    strWhere = "AND [MG_SIGNATURE] BETWEEN " & Format(Me.txtdatedeb, "\#mm\/dd\/yyyy\#") & " AND " & Format(Me.txtdatefin, "\#mm\/dd\/yyyy\#") &""
End If
If Not IsNull(Me.cbocommercial) Then
    'strWhere = strWhere & " AND [MG_COMMERCIAL] = '" & Me.cbocommercial & "'" 'si alphanum
    strWhere = strWhere & " AND [MG_COMMERCIAL] = " & Me.cbocommercial & "" ' si num
End If
If strWhere = "" Then
    Me!FilterOn = False
Else
    strWhere = Mid(strWhere, 5)
    Me!Filter = strWhere
    Me!FilterOn = True
End If
End Sub

Et sur un évènement, ici un btn de commande

Code :

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

1
2
3
Private Sub btnfiltre_Click()
FilterForm
End Sub

[gigap_1971]

Bonjour HYPERION13,


merci pour votre réponse et désolé de répondre si tardivement à votre message.

J'avoue que je ne sais pas me servir des modules et que votre méthode de résolution de ma problématique est largement au dessus de mes compétences ACCESS aujourd'hui. J'ai bien sur essayé quand même d'appliquer vos conseils, mais sans succès malheureusement (j'ai essayé dans tous les sens mais à chaque fois cela plantait et ça ne fonctionnait pas).

N'y aurait il pas une méthode plus simple à mettre en œuvre comme par exemple la mise en place d'un bouton avec un code VBA qui permettrait de réaliser cette tâche ?

Je suis très peu à l'aise avec la "grammaire" d'une rédaction de code, même si je suis pas novice dans l'approche du codage informatique. Je m'excuse donc par avance de sembler être un "assisté" dans ce domaine et de paraitre extrêmement novice.

Par avance merci pour votre aide et vos conseils.

Jean-Gaël

[hyperion13]

...
N'y aurait il pas une méthode plus simple à mettre en œuvre comme par exemple la mise en place d'un bouton avec un code VBA qui permettrait de réaliser cette tâche ?
...

Bonjour,
L'exemple donné répond à votre demande pourtant.
- btnfiltre est un bouton de commande. A insérer dans votre form. Évènenemt sur click, cliquer sur [...] "Générateur de code".
- Sub FilterForm() est du codage VBA. A copier/coller dans le module du form. Les blocs if permettent de vérifier que des dates aient été ou non saisies, qu'un commercial ait été ou non sélectionné pour ensuite activer le filtre.
- txtdatedeb et txtdatefin sont des textboxes indépendantes pour saisir vos dates. A adapter selon votre form puisqu'elles existent.
- cbocommercial est une combobox indépendante pour sélectionner votre commercial ou collaborateur. A adapter selon votre form puisqu'elle existe.
- [MG_SIGNATURE] et [MG_COMMERCIAL] sont les textboxes dépendantes de votre form. Existent déjà dans votre form.

[gigap_1971]

Bonjour HYPERION13,


je n'arrive toujours pas à trier mes enregistrements par rapport à des dates pré-selectionnées.

Malgré toutes vos consignes cela ne fonctionne pas.

Je vous fais une copie d'écran des lignes de code écrites dans le module du formulaire. Pourriez-vous m'éclairer s'il vous plait ?

J'arrive à inscrire automatiquement les infos dans les textbox : txtdatedeb et txtdatefin


Le bouton à droite devrait pouvoir trier les enregistrements dans le champs [CONT_DATE-APPEL] afin de n'afficher que les contacts qui ont appelé dans la fourchette définie par txtdatedeb et txtdatefin.

J'ai donc encore besoin d'un petit coup de pouce.

Merci beaucoup^pour votre temps et votre patience.

Cordialement

[Dermochelys]

Bonjour Gigap,

Juste en passant, je lisais ton dernier message.

Il me semble que suite à ton clic sur le bouton la seule chose que tu fais c'est de construire la partie WHERE d'une chaîne SQL (et encore ton bout de chaine qui va dans le WHERE, je suppose que tu la concatène avec quelque chose avant ? car sinon le AND de début n'est pas à sa place).
Mais surtout, une fois que tu as ton WHERE, tu ne le rattaches à aucune commande SQL. Tu devrais avoir une string ressemblant à ceci en final "SELECT fieldlist FROM tableexpression WHERE criteria"
Et cette string tu l'utilises pour mettre à jour ton formulaire

A voir si ca peut t'aider...

[tee_grandbois]

bonjour,
plutôt que de faire des impressions d'écran du code VBA, il est plus pratique de le poster au format texte entre les balises de codes générées par cet icone: #, c'es plus simple pour y apporter des corrections.
Il manque 2 lignes que tu as enlevé du code que t'as donné hyperion13 et qui permettent d'appliquer le filtre sur le formulaire, celles qui sont juste après strWhere = Mid(strWhere, 5)

Code :

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

1
2
3
4
5
6
7
If strWhere = "" Then
    Me.FilterOn = False
Else
    strWhere = Mid(strWhere, 5)
    Me.Filter = strWhere
    Me.FilterOn = True
End If

[gigap_1971]

Ce conseil m' beaucoup aidé. Le filtre est appliqué par le bouton que j'ai crée. En revanche il ne ressort aucun résultat quand on clique sur le bouton.
C'est assez frustrant en fait car tout semble bon.

Voici ci-dessous la capture d'écran de ma barre de sélection.



Dans le contrôle [SelectSem] on sélectionne le numéro de la semaine (cela fait appel à une table T_SEMAINES ou chaque semaine du calendrier indique dans un champ la date du jour du début de la semaine et le jour de fin).


Avec une procédure événementielle après avoir sélectionné la semaine choisie, les contrôles [txtdatedeb] et [txtdatefin] sont mis à jour automatiquement.
L'idée c'est qu'en cliquant sur le bouton [BtlSelect], le Filtre isole les contacts qui ont appelé entre les bornes journalières indiquées dans [txtdatedeb] et [txtdatefin].

Voici le code VBA actuel qui pilote tout ce petit monde.

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
 Option Compare Database
 
Option Explicit
 
 
 
Sub FilterForm()
 
Dim strWhere As String
 
If Not IsNull(Me.txtdatedeb) And Not IsNull(Me.txtdatefin) Then
    strWhere = "AND [CONT_DATE-APPEL] BETWEEN " & Format(Me.txtdatedeb, "\#mm\/dd\/yyyy\#") & " AND " & Format(Me.txtdatefin, "\#mm\/dd\/yyyy\#") & ""
End If
 
If strWhere = "" Then
    Me.FilterOn = False
Else
    strWhere = Mid(strWhere, 5)
    Me.Filter = strWhere
    Me.FilterOn = True
 
End If
 
 
End Sub
 
 
Private Sub BtnSelect_Click()
 
FilterForm
 
End Sub
 
Private Sub SelectSem_AfterUpdate()
 
Me.[txtdatedeb] = Me.[SelectSem]
Me.[txtdatefin] = Me.[SelectSem]
 
End Sub

J'y suis presque !!! dites moi si vous voyez ce qui ne tourne pas rond dans ces lignes de code.

Merci par avance.

[tee_grandbois]

bonsoir,

Le filtre est appliqué par le bouton que j'ai crée. En revanche il ne ressort aucun résultat quand on clique sur le bouton.

pas très claire cette explication...

ajoute ce code: Debug.Print strWhere après l' instruction Me.Filter = strWhere et poste le résultat qui va s'éditer dans la fenêtre d'exécution depuis la fenêtre VBA, et si elle n'est pas affichée, appuie sur Ctrl+G

[gigap_1971]

bonsoir,
pas très claire cette explication...

ajoute ce code: Debug.Print strWhere après l' instruction Me.Filter = strWhere et poste le résultat qui va s'éditer dans la fenêtre d'exécution depuis la fenêtre VBA, et si elle n'est pas affichée, appuie sur Ctrl+G

Bonjour tee_grandbois,

merci pour ta réponse rapide.

Quand je dis "qu'il ne ressort rien comme résultat" c'est que le tri se fait mais qu'aucun enregistrement n'apparait (alors même que dans la table il y a des enregistrements qui devraient matcher avec la sélection faite).

J'ai bien rajouté la ligne de code que tu m'a indiqué. Du coup on comprend mieux pourquoi rien ne sort en cliquant sur le bouton de tri.

Code :

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

 [CONT_DATE-APPEL] BETWEEN #01/14/1900# AND #01/14/1900#

Dans [txtdatedeb] et [txtdatefin], les bonnes dates apparaissent bien. Mais lors de l'application du filtre ce ne sont pas celle-là qui sont prise en compte.
Pour ces 2 contrôles, leur contenu renvoi à une requête. A tout moment le filtre "tri" sur la première colonne, celle du numéro de la semaine.

Comment peut on forcer strWhere à prendre en compte le champ SEM_DEBUT pour [txtdatedeb] et SEM_FIN pour [txtdatefin], c'est à dire la 2eme colonne de la requête et non la 1ere ?

On y est presque et quand j'aurais réussis, je vais pouvoir appliquer cette méthode de tri à l'ensemble de mon appli : ça va nous changer la vie.

Merci par avance pour ton retour.

[tee_grandbois]

bonjour,

Comment peut on forcer strWhere à prendre en compte le champ SEM_DEBUT pour [txtdatedeb] et SEM_FIN pour [txtdatefin], c'est à dire la 2eme colonne de la requête et non la 1ere ?

Ok, compris. Essaie avec [txtdatedeb].column(1) et [txtdatefin].column(1)

[gigap_1971]

bonjour,
Ok, compris. Essaie avec [txtdatedeb].column(1) et [txtdatefin].column(1)

Merci beaucoup tee_grandbois !!! ça marche super! Aprés plus d'un an de galère (et quelques cheveux arrachés) j'arrive enfin à ce que je voulais.

Y a plus qu'à recopier le procédé sur une 20aine d'autres formulaires.

Merci pour ton aide et ta clairvoyance.

Bonne journée et bonne continuation ( et à bientôt sans doute... je ne manque pas de projet de développement de ma base).