Discussion :

[samlepiratepaddy]

Slt,
Je dois appliquer un filtre a un sous form en fonction d'un champ du form principal !
attention le form n'a pas de source !!!
Donc pas de champs père/fils possible!!!
Voilà ce que j'essai d'écrire mais qui je n'arrive pas a finaliser..

Code :

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

1
2
3
Private Sub Form_Current()
docmd.ApplyFilter ("",(((Forms![F_Affectation]![DateAffectation]) Between [DateHeureCompletDébut] And [DateHeureCompletFin]));)
End Sub

A chaque fois, manque parenthèse, crochet,etc... enfin j'arrive pas..
Fais-je une erreur de conception par rapport au résultat souhaité, ou si je suis dans le vrai pour obtenir ce résultat ou se trouve l'erreur???
Merci de votre aide..

[pgz]

Bonjour,

A mon avis il vaudrait mieux mettre un bouton dans le formulaire avec le code suivant

Code :

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

1
2
3
4
5
Private Sub BtnAfficher_OnClick() 
If IsNull(Me.DateAffectation)  Then MsgBox "Il faut renseigner DateAffectation" : exit sub
Me.ContainerSF.Form.Filter = "DateHeureCompletDébut <= #" & Me.DateAffectation & "# AND DateHeureCompletFin >= #" & MeDateAffectation & "#"
Me.ContainerSF.FilterOn = True
End Sub

SI j'ai bien compris ton pb ...
pgz

[samlepiratepaddy]

Slt pgz,
J'ai essayé ta méthode, mais il ne "trouve" pas

Me.DateAffectation

dans

Me.ContainerSF.Form.Filter = "DateHeureCompletDébut <= #" & Me.DateAffectation & "# AND DateHeureCompletFin >= #" & MeDateAffectation & "#"

Sachant que ce champ est dans le form principal et les autres dans le s-F est-ce que cela vient de là???

[Sinclar]

Bizarre,
Ce qu'a écrit pgz à l'air nickel;
Petite question: as tu remplacé les Me.ContainerSF.Form par les noms de tes frm? Des fois que ce soit juste une faute d'étourderie...

[samlepiratepaddy]

Ben oui !???

Code :

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

1
2
3
4
5
6
Private Sub Commande78_Click()
If IsNull(Me.DateAffectation) Then MsgBox "Il faut renseigner DateAffectation": Exit Sub
Me.F_ToutesAbsence.Filter = "DateHeureCompletDébut <= #" & Me.DateAffectation & "# AND DateHeureCompletFin >= #" & MeDateAffectation & "#"
Me.F_ToutesAbsence.FilterOn = True
 
End Sub

Tel quel !
Pourquoi il trouve pas

Me.DateAffectation

????????

[Sinclar]

Il manque un point ici:

Code :

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

1
2
 
Me.DateAffectation

Code :

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

1
2
 
& "# AND DateHeureCompletFin >= #" & MeDateAffectation & "#"

[samlepiratepaddy]

: :
Ben désolé mais j'arrive pas a l'écrire correctement??
Apparement il me dit

Membre de méthode ou donnée introuvable

Et si je rajoute un point ben ça bugg...

Il manque un point ici:

Code:

Me.DateAffectation


Code:

& "# AND DateHeureCompletFin >= #" & MeDateAffectation & "#"

Puffffff j'en ai marre de ce formulaire ça fait une semaine que je suis dessus
Rharhhhh

[cafeine]

juste pour rappel, attention à mettre les dates en format US dès qu'on travaille sur des chaînes SQL.

[samlepiratepaddy]

Cafeine a dit

juste pour rappel, attention à mettre les dates en format US dès qu'on travaille sur des chaînes SQL

Oui il faudra que j'y pense car

Code :

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

Me.F_ToutesAbsence.Filter = "DateHeureCompletDébut <= #" & Me.DateAffectation & "# AND DateHeureCompletFin >= #" & MeDateAffectation & "#"

le F_ToutesAbsence est basé sur une requete !
Et ReVlan dans ta pomme SAM ça fait deux fois
Mais cela expliquerai ce msg d'erreur???

[User]

As tu essayé (sans oublier les dates us):

Code :

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

1
2
3
Me.F_ToutesAbsence.Form.Filter = "DateHeureCompletDébut <= #" & Format(Me!DateAffectation,"mm-dd-yy") & "# AND DateHeureCompletFin >= #" & Format(Me!DateAffectation,"mm-dd-yy") & "#"
 
Me.F_ToutesAbsence.Form.FilterOn = True

@+

[samlepiratepaddy]

Re,
Au moins le bouton fait quelque chose !
Ouf!
Mais en fait j'ai un enregistrement qui devrai apparaitre mais le Sf reste vide !
Le champ [dateAffectation] est format (Date, général),masque de saisi (00/00/00;0; ) et ce formulaire n'a pas de source donc pas de requete derrière .
Les champs [DateHeureCompletDébut] et [DateHeureCompletFin]Sont eux aussi des format (Date, général), mais sans masque de saisi !et ils proviennent d'une requete !
Puffff! et dire que c'est parce que je n'arrive pas a résoudre ce problème http://www.developpez.net/forums/viewtopic.php?t=395393!!
ça gave a force !!

[User]

Tu veux dire que tes dates (DateHeureCompletDébut) contiennent l'heure aussi genre #10/10/05 15:25:35# ?

Dans ce cas utilise: Format(Me!DateAffectation,"mm-dd-yy hh:nn:ss")

Le code:

Code :

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

1
2
3
Me.F_ToutesAbsence.Form.Filter = "DateHeureCompletDébut <= #" & Format(Me!DateAffectation,"mm-dd-yy hh:nn:ss") & "# AND DateHeureCompletFin >= #" & Format(Me!DateAffectation,"mm-dd-yy hh:nn:ss") & "#" 
 
Me.F_ToutesAbsence.Form.FilterOn = True

@+

[samlepiratepaddy]

Ben j'comprend bien, mais non!
je m'explique :
Les champs [DateHeureCompletDébut] et [DateHeureCompletFin] sont sous ce format afin de pouvoir par la suite liberer ou non des plages horaires précises !!!
Mais dans mon SF c'est juste en référence du jour ou il y a une absence que je souhaite afficher les données !
Si j'ajoute les hh,nn,ss le filtre réagira a l'heure précise !
En fait, je passe par un sous form car je n'arrive pas a le faire directement dans ma liste déroulante !
Pourtant ce doit etre pareil ou proche...
Mais ça rame dur !