Discussion :

[atlantideD]

bonjour,

Est il possible qu'à l'ouverture d'un formulaire (qui contient un colonne avec des cases à cocher), toutes les cases à cocher soient par défaut vides????
(ou qu'on puisse effacer les cases qui avaient été cochées auparavant)
merci

[FreeAccess]

Re,
Pour faire cela, regarde une solution que j'avais déjà donnée pour un problème de case à cocher...
http://www.developpez.net/forums/sho...d.php?t=366765

En espérant que cela répondra à ton problème...

[atlantideD]

excuse moi,

Je pense qu'effectivement tu as déjà traité ce pblm dans un cas précédent.
Mais je rencontre des difficultés avec access et je t'avoue que je n'arrive resortir de toute la discussion, ce qui me permettra de vider les cases cochées à chaque ouverture du formulaire.

Pour l'instant j'ai juste copié cela : (sans aucune modif)

Maintenant un peu de code:
Sur événement "Sur ouverture" du formulaire, tu tape:

Code :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Open(Cancel As Integer)
Dim ctl As Control
'Permet de décocher toutes les cases lors de l'ouverture du Formulaire
For Each ctl In Me.Controls
    If ctl.ControlType = acCheckBox Then
        ctl.Value = 0
    End If
Next
End Sub

J'ai ensuite essayé de copier la formule que tu donnes sur Sur événement "Sur clic" du bouton de commande, mais il y a qq chose qui ne fonctionne pas, d'autant plus que j'ai l impression que ca fait plus que d effacer les cases cochées...

Merci d avance si tu peux m aider

Atlantide

[FreeAccess]

..J'ai ensuite essayé de copier la formule que tu donnes sur Sur événement "Sur clic" du bouton de commande....

Cette partie du code ne te sers à rien dans ton cas......

Ici, je ne répond qu'à ta question de "Comment effacer toutes les cases à cocher à l'ouverture d'un formulaire"
C'est ce que fait le code placé sur l'événement "Sur ouverture" du formulaire.

Donc quel est le problème.....

[atlantideD]

le probleme c'est que ca marche pas.
Quand je coche des cases, puis je ferme le formulaire et ensuite je l'ouvre à nouveau, les cases sont encore cochées.

A moins que j'ai collé ta formule à un mauvais endroit... qd j'ouvre mon formulaire, je clique droit sur le petit carré en haut à gauche et je mets la formule dans "sur ouverture"

Mais je viens de penser que les cases à cocher sont dans un sous formulaire (du formulaire en question) je dois mettre cette formule dans les propriétés du formulaire ou sous formulaire??
merci

[FreeAccess]

..les cases à cocher sont dans un sous formulaire ......cette formule dans les propriétés du formulaire ou sous formulaire??

As ton avis.....

[atlantideD]

sous formulaire.....

[atlantideD]

encore un problème
Quand je colle ta formule dans le sous formulaire, il n'accepte pas :
" ctl.Value = 0 "

J'imagine que 0 correspond à "case décochée"
Je n'arrive pas à voir ce qu'il faut faire....
merci d'avance

Atlantide

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Open(Cancel As Integer)
Dim ctl As Control
'Permet de décocher toutes les cases lors de l'ouverture du Formulaire
For Each ctl In Me.Controls
    If ctl.ControlType = acCheckBox Then
        ctl.Value = 0    End If
Next
End Sub

[FreeAccess]

Bonjour,

Bizare....
1-) Tes cases à cocher sont bien indépendantes et non comprisent dans un groupe d'option...
2-) Le code VBA suivant [ctl.Value = 0] est bien sur une ligne...sans End If après....

[atlantideD]

ma case à cocher est bien indépendante et pour la formule j'ai copié exactement ce que tu as écris....

[FreeAccess]

Re,

Quand tu dis "Quand je colle ta formule dans le sous formulaire, il n'accepte pas :
" ctl.Value = 0 "

Y a t'il un message d'erreur particulier...

[atlantideD]

je vais essayer de te détailler au max:

Dans un formulaire, j'ai un sous formulaire ou on retrouve sur chaque ligne la case à cocher.

Le sous formulaire est fait à partir d'une requete est faite à partir d'une table. C'est dans cette table que j'ajoute le champs case à cocher : oui/non

Je ne sais pas si ca te donner plus d'info....

[atlantideD]

je t'envoie en fichier le message d erreur (débogage)

[FreeAccess]

Le sous formulaire est fait à partir d'une requete est faite à partir d'une table

Ok...donc ta case à cocher n'est pas indépendante mais est basée sur un champ de type "Oui/Non"......

[atlantideD]

oui... si tu le dis...
Je peux juste te dire que je crée la case à cocher en rajoutant un champ dans la table avec laquelle je fais ma requete.

[FreeAccess]

Non je ne fais que constater ce que tu nous dit......

D'ailleurs, tu peux le vérifier toi même:
-Sélectionne ta case à cocher sur ton sous-formulaire et regarde sa propriété "Source contrôle".....et tu verra bien qu'elle dépend de ton champ contenue dans ta requête.....

Ceci dit, même si je ne comprends pas pourquoi tu veux décocher toutes tes cases à cocher à l'ouverture de ton sous-formulaire, si c'est vraiment ce que tu veux......alors passe par une simple requête Mise à Jour pour passer tous tes champs "Oui/Non" à False....

[atlantideD]

je vais alors peut etre essayer la requete mise à jour, mais sinon si tu as une autre idée pour la case à cocher, je veux bien prendre...

[Invité]

Bonjour

Je ne comprends pas tout, tu veux décocher toutes les cases qui étaient cochés dans ta tablen n'est ce pas ?

Et pourquoi ?

Starec

[atlantideD]

j'ai utilisé la requete mise à jour et cela fonctionne.
En fait, si je veux décocher des cases, c'est parce que l'utilisateur doit imprimer des borderaux de livraison avec partir de certains articles.
Il coche les articles souhaités et clique sur apercu de l'état
Et quand il revient sur ce mm formulaire, il refait la mm opération mais pr une autre commance. C'est pour ca que j'ai besoin que les cases soient vidées.

[FreeAccess]

Je ne comprends pas tout, tu veux décocher toutes les cases qui étaient cochés dans ta tablen n'est ce pas ?

Et pourquoi ?

C'est également la question que je me pose......

Ceci dit, pour passer toutes tes cases à cocher à "false" à l'ouverture du formulaire ou du sous-formulaire, sur l'événement "Sur ouverture".......une petite chose comme cela:

Code :

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

1
2
3
Private Sub Form_Open(Cancel As Integer)
DoCmd.RunSQL "UPDATE  NomTable SET ChampCaseCocher = False WHERE ChampCasecocher =True;"
End Sub