Discussion :

[pigac]

bonjour,
mon problème : je voudrais qu'une case à cocher prenne automatiquement la valeur -1 en fonction de la valeur 17000 que j'aurai saisi dans le champ code postal.
Quelle est l'instruction à entrer ? où ? et sous quelle forme ?
Je ne connais pas visual basic, il me faudrait donc une instruction que je n'aurai qu'à recopier.
Je suis exigeant mais il y a tellement de spécialistes haut niveau sur ce forum que j'espère bien avoir la réponse !
Merci à tous

[RKU01]

Il te faut simplement créer un évênement "Après mise à jour" sur ton champ "Code postal" du type :

If IsNull([Nom_case_à_cocher]) && [Champ_Code_Postal] == "17000" Then [Nom_case_à_cocher] = "-1"

Le test "IsNull" est facultatif, mais permet d'éviter d'écraser une autre valeur affectée manuellement à ta case à cocher.

[pigac]

Merci de ta réponse :
il me faut bien la condition If.
mes 2 champs se nomment [CP] et [code17000].
j'ai donc rentré selon ta syntaxe l'instruction suivante :

Code :

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

1
2
3
Private Sub Code_Postal_AfterUpdate()
If IsNull([code17000]) & & [CP] == "17000" Then [code17000] = "-1"
End Sub

Je tombe sur erreur de compilation ou de syntaxe.
Où ais-je fauté ?
merci

[RKU01]

Private Sub CP_AfterUpdate()
A = IIf([CP] = "111", "-1", "0")
[Code17000] = A
End Sub

[pigac]

maintenant, il n'y a plus de plantage mais le champ code17000 ne prend pas la valeur -1.(il ne se passe rien au niveau de ce champ)
Je précise que le champ code postal est un champ texte à 7 caractères.
comme je ne sais pas lire tes instructions cela aurait-il une importance ?
Cordialement et excuse-moi de prendre de ton temps

[Renardo]

bonjour
essai

Code :

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

1
2
3
4
5
if me.cp = 17000 then
me.code17000 = -1
else
me.code17000 = 0
end if

[RKU01]

L'erreur provient sans doute du nom "Code17000" Vs "code17000".
A corriger selon ton champ.

[pigac]

merci à tous les deux. mon problème est résolu avec les dernières instructions de Renardo

Code :

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

1
2
3
4
5
if me.cp = 17000 then
me.code17000 = -1
else
me.code17000 = 0
end if

Merci encore de vous être occupé de moi