Discussion :

[popofpopof]

salut

j'essai de réaliser un formulaire pour l'impression de recommander
j'ai mis en place une case oui non tous marche nickel
je souhaite alle encore plus loin, je souhaiterai que a l'ouverture du formulaire toute les case prenne la valeur NON (quelle soit non coche)
ma case oui non s'appele "IMPRESSSION_RECOMMANDE" ( c'est un champ de ma table CLIENT) j'ai essai sa mais sa marche pas :

Code :

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

1
2
3
4
 
Private Sub Form_Load()
[IMPRESSSION_RECOMMANDE] = NON
End Sub

j'aimerai aussi avoir l'option de clique sur une case oui non qui me pase tous les case IMPRESSION_RECOMMANDE à OUI ou a NON donc soit aucun ou tous.

[vodiem]

dans les propriétés de la case à cocher:
onglet données/Valeur par défaut: tu met "Faux" ou "Vrai" sans les guillemets.

en code:

Code :

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

[IMPRESSSION_RECOMMANDE] = True ' ou False

j'aimerais aussi avoir l'option de clique sur une case oui/non qui me passe toutes les case IMPRESSION_RECOMMANDE à OUI ou à NON donc soit aucun ou tous.

sur l'événement 'Après Maj' de la case à cocher principale tu mets le code suivant pour chaque case que tu veux changer l'état:

Code :

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

1
2
3
4
5
Private Sub CocherPrincipal_AfterUpdate()
[IMPRESSSION_RECOMMANDE1] = CocherPrincipal
[IMPRESSSION_RECOMMANDE2] = CocherPrincipal
'...
End Sub

[IMPRESSSION_RECOMMANDEx] étant des cases à cocher.

[popofpopof]

dans les propriétés de la case à cocher:
onglet données/Valeur par défaut: tu met "Faux" ou "Vrai" sans les guillemets.

en code:

Code :

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

[IMPRESSSION_RECOMMANDE] = True ' ou False

sur l'événement 'Après Maj' de la case à cocher principale tu mets le code suivant pour chaque case que tu veux changer l'état:

Code :

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

1
2
3
4
5
Private Sub CocherPrincipal_AfterUpdate()
[IMPRESSSION_RECOMMANDE1] = CocherPrincipal
[IMPRESSSION_RECOMMANDE2] = CocherPrincipal
'...
End Sub

[IMPRESSSION_RECOMMANDEx] étant des cases à cocher.

j'ai essai le bouton pour coche toute mes case le seul probleme est la case a coche ou decoche est "IMPRESSSION_RECOMMANDE" ci je fait avec ton code sa me donné

Code :

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

1
2
3
4
Private Sub CocherPrincipal_AfterUpdate()
[IMPRESSSION_RECOMMANDE] = CocherPrincipal
 
End Sub

le seul probleme est que je souhaite que dans tous les enregistrement ou il y a obligatoirement la case "IMPRESSSION_RECOMMANDE" toute les valeur pase en un clic de coche a decoche et l'inverse. avec ton code je n'ai que la 1ere ligne qui change comment faire??

Pour l'histoire de la valeur par defaut sa marche pas, je souhaite quand j'ouvre mon formulaire que toute les case a coche passe en valeur non coche même ci l'ors de la derniere utilisation on les avait coche. Comment faire aide moi stp merci bcp

[vodiem]

valeur par défaut marche, il faut sauvegarder le form après l'avoir attribuer.
tu fermes complètement le form et tu verras... (ca ne se voit pas si tu passes d'affichage à mode création).
mais si tu veux être plus rassuré tu mets

CaseACocher=False sur l'ouverture du form.

pour le cas de mettre tous les [IMPRESSSION_RECOMMANDE] sur Vrai ou Faux:
j'avais mal compris [IMPRESSSION_RECOMMANDE] est un champ de la source du form

tu es donc en affichage Formulaires continus non?
donne moi la source de donnée de ta form, sa SQL ou la structure de la table.

[popofpopof]

j'arrive pas a le faire marche je t'evoi le morceau de la base pour que tu regarde ou est mon probleme tu comprendra mieux merci bcp de ton aide

[vodiem]

tu rajoutes dans l'événement 'Sur ouverture' de ton sous formulaire "Impression recommander CLIENT Sous-formulaire" le code ci-dessous:

Code :

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

1
2
3
4
5
Private Sub Form_Open(Cancel As Integer)
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE CLIENT SET [IMPRESSSION_RECOMMANDE]=False"
DoCmd.SetWarnings True
End Sub

[popofpopof]

ok merci deja sa marche bcp mieux tu a raison

par contre pour avoir un bonton pour coche ou decoche l'ensemble des case "IMPRESSSION_RECOMMANDE" comment faire tu a trouve??

[vodiem]

si j'ai trouvé? lol

c'est moins compliqué:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CocherPrincipal_AfterUpdate()
DoCmd.SetWarnings False
IF CocherPrincipal THEN
    DoCmd.RunSQL "UPDATE CLIENT SET [IMPRESSSION_RECOMMANDE]=True"
ELSE
    DoCmd.RunSQL "UPDATE CLIENT SET [IMPRESSSION_RECOMMANDE]=False"
END IF   
DoCmd.SetWarnings True
End Sub

avec CocherPrincipal comme case à cocher.

mais tu l'aurais trouvé non?

ps: y aura peut être besoin d'un Requery pour rafraichir les données.

[popofpopof]

Merci bcp sa marche super bien pas un seul probléme

ps : j'aurai pu y pense mais bon c bon d'avoir un avie de l'extérieur