Discussion :

[Kyndred40]

Bonjour,

Je viens vers vous car je ne trouve pas la solution à mes problèmes je vous mets dès maintenant une capture pour que vous compreniez mieux

Comme vous pouvez le voir j'ai des boutons de chaque côté de la date car j'aimerai que quand je clique sur précédant le champ N° de Semaine diminue de 1 et que les champs Date aille à la semaine dernière hors sa je ne sais pas faire.
D'autant plus que j'aimerais que ces mêmes champs agissent comme des filtres sur le formulaire (Par rapport à la date surtout) la semaine c'est juste indicatif pour la personne.
Dans N° de semaine il y a ça : =PartDate("ww";Date();2;2) et dans les champs date àa : =Date()-JourSem(Date();2) et =Date()+7-JourSem(Date();2) leurs noms respectifs sont DateDeb et DateFin.

Après bien sûre j'ai déjà la possibilité de trier manuellement en tapant la date seulement il serait bien plus facile pour l'utilisateur de juste à devoir cliquer sur les boutons semaine suivante ou précédente
J'espère avoir bien expliqué mon problème merci d'avance aux personnes qui s'y pencheront

[Zekraoui_Jakani]

Il vau mieux rendre les champs DateDeb et DateFin indépendants, en y mettant la date du jour par défaut, à l'ouverture du formulaire.
Si on clique sur "précédent", vous pouvez lancer l'événement VBA (ou macro) qui calcule la semaine passée et la suivante.
Ensuite, vous appliquez le filtre au formulaire.

[Kyndred40]

Bonjour,

Je les ai rendu indépendant et j'ai mis le code que j'avais dedans en valeur par défaut ce qui fonctionne hors pour ce qui est des calculs pour passer à une semaine précédente ou suivante je ne sais pas j'ai cru trouver des requête:

J'aurais penser à celle-ci hors je ne sais pas quoi en faire ni ou les mettre pour qu'elle fonctionnent.

Et pour le tri je vous avoue que je ne sais pas trop comment m'y prendre j'ai essayer avec une macro incorporé (que j'utilise pour effectuer le tri au cours de la frappe) sur différents événements mais je ne crois pas que cela fonctionne.

[Zekraoui_Jakani]

Voici un exemple:

Semaines.rar

[Kyndred40]

Bonjour,

Génial !! merci beaucoup !
Je vais maintenant réfléchir à comment trier et si jamais je n'y arrive pas je demanderai mais je vais chercher un peu avant

[Kyndred40]

Bonjour,

Je reviens vers vous car maintenant que j'ai ceci:


J'aimerai maintenant que le fait de changer de semaines agisse comme un filtre sur les enregistrement.
Il faudrait que le filtre sois effectuer sur Date Livraison demandée : DateLivDemander
Je sais pas comment faire pour prendre en compte un intervalle de Date dans un filtre comme sa doit être le cas ici je pense.

Bonne journée et merci d'avance

[hyperion13]

Salut
Une piste. Dans la source qui alimente votre form ajouter un champ qui calcule le N°semaine avec PartDate() et dans le critère Comme(......)

[Zekraoui_Jakani]

Changer de semaine revient à cliquer sur l'une des flèches avant/arrière.
Derrière ces flèches se trouve un code qu'il faudra mettre à jour pour tenir compte de la nouvelle semaine.

Il suffit d'y ajouter ces 2 lignes:

Code :

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

1
2
Me.Filter = "[DateLivDemander] <= [Date_Au] And [DateLivDemander] >= [Date_Du]"     'Voir les noms exacts à adapter ici !
Me.FilterOn = True

Pour annuler le filtre:

Code :

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

Me.FilterOn = False

[Kyndred40]

En effet merci votre code fonctionne merci !!
Seulement il m'ouvre "Entrer une valeur de paramètre" il ne lis pas la date qui est déjà dans le champs.

Code :

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

1
2
Me.Filter = "[DateLivDemander] <= [DateFin] And [DateLivDemander] >= [DateDeb]"    
    Me.FilterOn = True

Pour DateDeb la source de contrôle est =[Txt_Pivot]-JourSem([Txt_Pivot];2).
Pour DateFin la source de contrôle est =[Txt_Pivot]+7-JourSem([Txt_Pivot];2).

Je ne sais pas trop comment faire pour qu'il prenne direct en compte les date contenu dans ces champs là ?
Peut être rendre les champs indépendants et mettre cette source de contrôle à un autre endroit? en attendant votre réponse je vais chercher voir comment je pourrais faire

Merci !

[hyperion13]

Vérifiez que votre textbox "Au" se nomme bien "Datefin" !
Pour quelle raison utilisez-vous un N°Semaine ? J'ai l'impression qu'il ne sert à rien.

[Kyndred40]

D'accord pas de soucis je vais vérifier ça ! mais ça fait la même chose pour DateDeb
le N° de semaine est indicatif surtout pour la personne car on peut planifier des lots de commande sur une certaine semaine où l'on veux et en gros le filtre là c'est pour voir les Lots planifiés pour telle semaine ...

[Zekraoui_Jakani]

Dans l'expression :

Code :

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

Me.Filter = "[DateLivDemander] <= [DateFin] And [DateLivDemander] >= [DateDeb]"

Il faudra remplacer "[DateDeb]" et "[DateFin]" par leur vrais noms respectifs dans la table-source du formulaire.
S'ils ne sont pas dans une table-source (autant que je me souvienne, ils sont indépendants), alors la bonne formule sera :

Code :

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

Me.Filter = "[DateLivDemander] <= " & Me.[DateFin] & " And [DateLivDemander] >= " & Me.[DateDeb]

[Kyndred40]

Je viens d'essayer votre code car oui en effet ces champs là ne sont pas présent dans ma table, il n'y a pas de bug mais cela ne m'affiche aucun enregistrement peu importe la date même s'il elle correspond.
Pourtant il n'y a pas de sous formulaire ici dans ce formulaire
Le pire c'est que quand je rentre les date à la main quand j'ai "Rentrer une valeur de paramètre " bes le tri fonctionne c'est bizare
la preuve :
Mais quand je met le 2ème code que vous m'avez envoyer il ne bug pas contrairement à l'autre mais aucun enregistrement n'est visible pourtant les noms sont identique.

Je peux vous fournir une copie de ma base de donnée si vous le souhaitez pour mieux voir le problème ?

[hyperion13]

re,
probablement le format date qui pose problème

Code :

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

1
2
3
4
5
6
Dim strWhere As String
    With Me
    strWhere = "[DateLivDemander] BETWEEN " & Format(Me.DateDeb, "\#mm\/dd\/yyyy\#") & " AND " & Format(Me.DateFin, "\#mm\/dd\/yyyy\#")
    .Filter = strWhere
    .FilterOn = True
End With

[Zekraoui_Jakani]

Désolé, j'ai oublié les balises autour des dates; heureusement, 'Hyperion13' a corrigé le tir; en effet les dates doivent être délimitées par '#' en SQL (parfois dans les requêtes).
Par ailleurs, pour éviter le piège des dates sous format USA (par défaut chez MS-Office), la solution 'Hyperion13' me paraît complète.

[Kyndred40]

Bonjour,
Merci beaucoup cela fonctionne !!
J'ai aussi rajouté le code dans l'événement "Sur Chargement" pour que dès que le formulaire est lancé le tri sois effectué dessus.
Encore un énorme merci pour votre aide !

Cela fonctionne mais lorsque je sélectionne tout via le bouton vert (sur la capture d'écran) même ceux des autres semaine sont sélectionné :X

[Kyndred40]

Bonjour je reviens vers vous car j'aimerai mettre ce même code pour qu'il agisse sur un autre Formulaire qui contient un sous formulaire. Je vous met des capture pour mieux comprendre

J'aimerai qu'il agisse sur le sous Formulaire de gauche qui se nomme SF_PlanningLots.

[hyperion13]

Sérieusement ?
A tester et adapter

Code :

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

1
2
3
4
5
6
Dim strWhere As String
    With Me.SF_PlanningLots.Form
    strWhere = "[DatePlanningLot] BETWEEN " & Format(Me.DateDeb, "\#mm\/dd\/yyyy\#") & " AND " & Format(Me.DateFin, "\#mm\/dd\/yyyy\#")
    .Filter = strWhere
    .FilterOn = True
End With

[Kyndred40]

Merci ! je vais voir sa en effet j'avais juste oublié le .Form à la fin moi, ça ne fonctionne pas encore mais je vais m'y pencher.
Excusez-moi de posez une question si logique