Discussion :

[jmde]

Bonjour,

Sur mon formulaire J'ai une case à cocher indépendante et je voudrais
conserver sa valeur à la fermeture du formulaire, mais mon code ne marche pas.

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
Private Sub Cocher79_AfterUpdate() 
 
 
 If Cocher79.Value = -1 Or Cocher79.Value = 0 Then 
 
 
     reponse = MessageBox(Me.hwnd, "Attention vous allez modifier la 
valeur " _ 
               & vbCrLf & vbCrLf & "Voulez vous continuer ?", _ 
               "Demande de confirmation", (mb_yesno + 
MB_ICONQUESTION)) 
 
 
     If reponse = vbYes Then 
          Forms![frm Mise à jour]![sfm Mise à jour a].Form! 
Cocher79.DefaultValue = 0 
     Else 
          Forms![frm Mise à jour]![sfm Mise à jour a].Form! 
Cocher79.DefaultValue = 1 
     End If 
End If 
 
 
End Sub

Merci pour voutre aide.


Salutations

[micniv]

Bonjour,
Mon avis est que si tu veux conserver la valeur d'une case à cocher, il est préférable de la lier au champ d'une table

[jmde]

Bonjour micniv,

Oui je sais, mais j'aimerais savoir le faire de cette façons.

Salutations

[Jeannot45]

Bonjour micniv,

Oui je sais, mais j'aimerais savoir le faire de cette façon.

Je ne comprends pas trop l'intérêt. Il te reste alors à stocker la valeur de ta case à cocher dans une table à part.

Peux tu préciser quand même à quoi cela te servira-t-il ?

[jmde]

Bonjour Jeannot45

Le but est de pouvoir bloquer une valeur d’un champ, je m’explique
sur mon formulaire j’ai un contrôle cmbEnvoi qui reçoit au cour
de la saison pour chaque enregistrement les valeurs de 1, 2, ou 3.
Je voudrais lorsque ma case à cocher1 indépendante et cocher empêcher
la saisie ou la modification de la valeur 1.

Salutations