Discussion :

[Kyndred40]

Bonjour,
Je vous expose mon problème comme vous pouvez le voir lorsque je trie les Commandes je n'ai que celle correspondant à mon tri puis je clique sur tout sélectionner cela me coche tout c'est bon sauf que si j'enlève le tri on voit bien que ce sont toutes les commandes qui sont sélectionnées.
Je ne sais pas si c'est possible de faire en sorte de ne sélectionner que le tri.


Et voici ci-dessous le code qui permet de tout sélectionner:

Merci d'avance de vos réponses.

[User]

Salut,

Oui c'est possible, il faut filtrer la requête Update en ajoutant une clause Where comme tu le fais pour le code SQL source du sous-formulaire.

Par exemple, si tu as une zone de texte [Code Variant] sur ton formulaire pour le filtre et un champ [Code Variante] dans ta table Commande, tu peux faire:

Code :

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

1
2
currentdb.execute "Update Commande Set selection = " & Me.Option61 & " Where [Code Variante] like '" & Me.[Code Variante] & "'"
Me.Refresh

En fait c'est plutôt un filtre qu'un tri

[Kyndred40]

Merci ! En effet votre solution me parait plus que bien seulement je n'arrive pas à la mettre en œuvre





Comme vous pouvez le voir sur les capture le champ se nomme CodeVariante dans la table mais l'endroit ou je filtre se nomme TriCodeVariante.
Je vous est mis les deux exemples de code que j'ai fait. je suis sans doute idiot c'est possible désolé vous devez vous arracher les cheveux avec moi

[tee_grandbois]

bonjour,
par rapport au code que t'a donné User, le tien n'a pas l'apostrophe fermante autour de la variable Me.TriCodeVariante:

Code :

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

1
2
currentdb.execute "Update Commande Set selection = " & Me.Option61 & " Where [Code Variante] like '" & Me.[Code Variante] & "'"
Me.Refresh

dans le tien, tu dois l'ajouter avant le point virgule.

[User]

La 2e possibilité est mieux mais il faut encadrer la valeur de la zone de texte de quotes (') ou de guillemets pour lui indiquer que c'est du texte :

Code :

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

1
2
currentdb.execute "Update Commande Set selection = " & Me.Option61 & " Where [CodeVariante] like '" & Me.[TriCodeVariante] & "'"
Me.Refresh

[hyperion13]

Salut
Essayez ceci

Code :

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

currentdb.execute "Update Commande Set selection = " & Me.Option61 & " WHERE CodeVariante = '" & Me.TriCodeVariante & "'"

[Kyndred40]

Merci à tous je suis en train d'essayer vos codes il me semble que les 2 marches du moins ils ont marché une fois mdrrr car maintenant dès que je fais le tri et que je souhaite tout sélectionné il n'y a aucune action qui se passe, je vais chercher un peu de mon côté d'où peut venir cette erreur car ce n'est pas possible que ça ne fonctionne pas les autres fois si ça a déjà marché.

[tee_grandbois]

quel code as-tu pour tout sélectionner ?

[Kyndred40]

J'ai mis celui-ci et il à marché une fois malheureusement après j'ai ré essayer et il ne fonctionnait plus

Code :

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

CurrentDb.Execute "Update Commande Set selection = " & Me.Option61 & " WHERE CodeVariante = '" & Me.TriCodeVariante & "'"

[User]

Nos codes se sont croisés apparemment :

Il faut t'inspirer de la procédure majSousFormulaire :

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
    Dim strSQL As String
 
    strSQL = "Update Commande Set selection = False;"
 
    ' déselectionne toutes les commandes
    CurrentDb.Execute strSQL, dbFailOnError
 
    strSQL = "Update Commande Set selection = " & Me.Option61 & " Where True "
 
    If Nz(Me.TriCodeVariante, "") <> "" Then ' si quelque chose de saisi dans TriCodeVariante
        strSQL = strSQL & " and CodeVariante = '" & Me.TriCodeVariante & "'"
    End If
 
    CurrentDb.Execute strSQL, dbFailOnError
 
    Me.Refresh

[Kyndred40]

Nos codes se sont croisés apparemment :

Bonjour, j'ai utilisé votre code que vous m'avez donné il fonctionne sauf quand je veux tout sélectionner et qu'il y a un filtre car rien n'est coché.

[User]

Bonjour,

Il me semble logique que vous souhaitiez sélectionner des commandes affichées et correspondant au filtre choisi.

Quand vous dites tout sélectionner, pour moi je comprends tout sélectionner dans ce qui est affiché, c'est bien ça ?

Penser à bien déselectionner toutes les commandes avant d'exécuter le code à mettre sur l'événement AfterUpdate de la case à cocher :

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
    Private Sub Option61_AfterUpdate()
    Dim strSQL As String
 
    strSQL = "Update Commande Set selection = False;"
 
    ' déselectionne toutes les commandes
    CurrentDb.Execute strSQL, dbFailOnError
 
    strSQL = "Update Commande Set selection = " & Me.Option61 & " Where True "
 
    If Nz(Me.TriCodeVariante, "") <> "" Then ' si quelque chose de saisi dans TriCodeVariante
        strSQL = strSQL & " and CodeVariante = '" & Me.TriCodeVariante & "'"
    End If
 
    CurrentDb.Execute strSQL, dbFailOnError
 
    Me.Refresh
 
    end sub

Pouvez-vous poster votre code complet ?

[hyperion13]

Salut
Peut-on savoir de quelle manière vous activez le filtre de votre form Commande ?

[Kyndred40]

Salut
Peut-on savoir de quelle manière vous activez le filtre de votre form Commande ?

Oui les filtres s'effectue au cours de la frappe pour chacun des champs (Voir plus en haut les capture d'écran)

[Kyndred40]

Voici la page ou j'effectue le tri ont peux voir que j'ai tapé "n" dans TriCodeVariante et on voit que j'ai appuyer sur Tout Selectionner mais rien ne se selectionne.




Le pire dans tout ça c'est que le code (Les tout premiers dans la conversation) a fonctionné une fois cela avait juste sélectionné les bon champs ... mais après finito sa na plus marché c'est hyper bizarre

[hyperion13]

re
le code que vous donnez correspond au bouton radio (out sélectionner) qui se trouve à l'extrémité droite de votre form.
nous voudrions voir le code qui est attaché à vos textboxes indépendantes, merci.

[Kyndred40]

Voici donc le code ou plutôt les macro sur mes TextBox, Voici le fonctionnement global de ce tri mais il n'y a aucune ligne de code en sois pour faire les filtres

[hyperion13]

Salut
Avec les macros commandes je ne vous serais d'aucun secours.
Par contre pour réinitialiser form de recherche via un bouton de commande

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub btnreset_Click()
Dim ctrl As Control
For Each ctrl In Me.Controls
    If ctrl.ControlType = acTextBox AND ctrl.Tag = "reset" Then ' Il faut TAG avec le mot "reset" ou un autre les textboxes indépendantes Propriétés - Autres - Remarque
        ctrl.Value = Null
    End If
Next ctrl
Me.Requery
End Sub

[Kyndred40]

salut, Ha d'accord bes pas grave merci tout de même ! ce qui est bizarre c'est que le code que vous m'aviez donné en haut à fonctionner une seule fois pourquoi juste une seule fois :'(
J'ai utilisé les macros car c'est le tutoriel que j'ai trouvé après s'il y a moyen de faire par le code pourquoi pas mais je ne veux pas vous embêter.

[Kyndred40]

Re-Bonjour,

Je viens vers vous car j'ai changé ma façon de filtrer les champs et j'ai retiré les macros et maintenant le code est fonctionnel pour ne sélectionner que les champs trié.

J'aurais maintenant besoin de vous pour rajouter le fait que le filtre ne s'effectue que sur la semaine actuelle c'est à dire que quand j'appuie sur le bouton sélectionner (entourer en rouge) cela ne coche que les enregistrements présent dans le formulaire et non toute la table.

Et voici le code pour le moment sur ce fameux bouton quand je clique :

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
Private Sub ToutSelec_AfterUpdate()
 
Dim strSQL As String
DoCmd.SetWarnings False
 
If Me.ToutSelec Then
        ' Enregistrer le formulaire, si besoin, avant une modif sur la base
        If Me.Dirty Then
            DoCmd.RunCommand acCmdSaveRecord
        End If
 
 
'CurrentDb.Execute "Update EnAttPlanification SET Choix = " & Me.ToutSelec & ";"
'CurrentDb.Execute "Update EnAttPlanification Set Choix = " & Me.ToutSelec & " WHERE CodeVariante = '" & Me.TriCodeVariante & "'"
'CurrentDb.Execute "Update EnAttPlanification Set Choix = " & Me.ToutSelec & " WHERE NumOrigine = '" & Me.TriNumOr & "'"
'CurrentDb.Execute "Update EnAttPlanification Set Choix = " & Me.ToutSelec & " WHERE NumArticle = '" & Me.TriNumArticle & "'"
'CurrentDb.Execute "Update EnAttPlanification Set Choix = " & Me.ToutSelec & " WHERE NomDestinataire = '" & Me.TriNomdest & "'"
 
 
 
 
    strSQL = "Update EnAttPlanification Set Choix = False;"
 
    ' déselectionne toutes les commandes
    CurrentDb.Execute strSQL, dbFailOnError
 
    strSQL = "Update EnAttPlanification Set Choix = " & Me.ToutSelec & " Where True "
 
    If Nz(Me.TriNumArticle, "") <> "" Then ' si quelque chose de saisi dans TriCodeVariante
        strSQL = strSQL & " and NumArticle = '" & Me.TriNumArticle & "'"
    End If
 
    If Nz(Me.TriCodeVariante, "") <> "" Then ' si quelque chose de saisi dans TriCodeVariante
        strSQL = strSQL & " and CodeVariante = '" & Me.TriCodeVariante & "'"
    End If
 
    If Nz(Me.TriNumOr, "") <> "" Then ' si quelque chose de saisi dans TriCodeVariante
        strSQL = strSQL & " and NumOrigine = '" & Me.TriNumOr & "'"
    End If
 
    If Nz(Me.TriNomdest, "") <> "" Then ' si quelque chose de saisi dans TriCodeVariante
        strSQL = strSQL & " and NomDestinataire = '" & Me.TriNomdest & "'"
    End If
 
    CurrentDb.Execute strSQL, dbFailOnError
 
    Me.Refresh
 
 
 
'Me.Refresh
 
End If
DoCmd.SetWarnings True
 
End Sub

J'aurais penser à un filtre de ce genre mais est-ce possible ?
Du moins je sais comment m'y prendre : Prendre les champs DateDeb et DateFin et on compare la valeur de DateLivDemander et si cette valeur est entre DateDeb et DateFin alors quand on clique la case à cocher se coche sinon non. Mais je ne sais pas trop comment la mettre en œuvre mais ma démarche est bonne ?

Code :

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

1
2
3
4
strWhere = "[Debut] BETWEEN " & CStr(CLng(Me.DateDebu)) & " AND " & CStr(CLng(Me.DateF))
    .Filter = strWhere
    .FilterOn = True
End With

J'espère vous avoir exposer correctement mon problème ?
Merci d'avance