Case à cocher

[rose0729]

Bonjour,
Dans un groupe d’option, j’ai des cases à cocher : facture,avoir,devis
puis j’ai une case à cocher (autorisation)
je voudrais que quand la case devis est cochée on ne puisse pas changer le type de commande
sauf si la case autorisation est cliquée
donc, dans l’évènement après MAJ de mon groupe d’option j’ai mis :

Code :

1
2
3
4
5
6
If [codeTypeCommande] = 4 Then
Me.codeTypeCommande.AllowAutoCorrect = False
Else
Me.codeTypeCommande.AllowAutoCorrect = True
MsgBox "voir compta", vbOKOnly
Me.Undo

là tout va bien
mais quand je veux insérer la case à cocher ( autorisation) là elle n’en tient pas compte

Code :

1
2
3
4
5
6
If [codeTypeCommande] = 4 And Me.Autorisation.Value = True Then
Me.codeTypeCommande.AllowAutoCorrect = False
Else
Me.codeTypeCommande.AllowAutoCorrect = True
MsgBox "voir compta", vbOKOnly
Me.Undo

Quelqu’un à une idée ? Merci

[Domi2]

Bonjour,

Je ne pense pas que la propriété AllowAutoCorrect soit appropriée.

En tout état de cause, d'après l'aide, elle ne s'applique pas aux cases à cocher, mais uniquement aux zones de textes et zones de liste modifiable.

Remplace-là par Value.

Code :

1
2
3
4
5
6
If [codeTypeCommande] = 4 Then
Me.codeTypeCommande.Value = False
Else
Me.codeTypeCommande.Value = True
MsgBox "voir compta", vbOKOnly
Me.Undo

Code :

1
2
3
4
5
6
If [codeTypeCommande] = 4 And Me.Autorisation.Value = True Then
Me.codeTypeCommande.Value = False
Else
Me.codeTypeCommande.Value = True
MsgBox "voir compta", vbOKOnly
Me.Undo

Domi2

[rose0729]

merci
je teste ça

[rose0729]

Que je mette
Me.Autorisation.Value = True
ou pas
j'ai le même résultat !

Poutant c'est bien une case à cocher

[Domi2]

Ta syntaxe pour la case à cocher est correcte.

Quel est le type de contrôle de codeTypeCommande ? Une zone de texte ?

Et que veux tu faire ? Modifier la valeur, désactiver le champ ?

[rose0729]

[codetypecommande] est une case à cocher (clic)
[autorisation] est une case à cocher aussi
c'est pour cela que je ne comprends pas
je veux dire que quand [codetypecommande] est 4: on bloque "voir compta"
mais quand [codetypecommande] est 4 et que [autorisation] est cliqué oui
"autorisation de facturer"

Code :

If [codeTypeCommande] = 4 And Me.Autorisation.Value = True Then

on dirait qu'elle ne reconnaît pas [autorisation]

[rose0729]

ça y j'ai trouvé ! enfin presque
Disons que le résultat est bon... mais au 2ème "if" au lieu de me donner que le commentaire "ok pour facturer" elle me sort "voir compta" et puis "ok pour facturer"
Quelqu'un à une idée ? merci

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
If [codeTypeCommande] = 4 And [Autorisation].Value = 0 Then
Me.codeTypeCommande.Value = False
Else
Me.codeTypeCommande.Value = True
MsgBox "voir compta", vbOKOnly
Me.Undo
End If
 
 
If [codeTypeCommande] = 4 And [Autorisation].Value = -1 Then
Me.codeTypeCommande.Value = 1
MsgBox "ok pour facturer", vbOKOnly
End If

[rose0729]

Je vais reformuler ma demande... si quelqu'un peut m'aider :

Dans un formulaire :
j'ai un groupe d'option [cadre87] ou à l'intérieur j'ai des cases à cocher
1 = facture 2 = devis

puis j'ai une case à cocher [autorisation] hors groupe d'option

et je voudrais que quand le clic devis = true et [autorisation] = False
MsgBox "voir compta"

Si quelqu'un peut m'aider merci