Remplir une zone de texte si une case est cochée Fermé

Question

Bonjour, 

Comme dis dans le titre, je cherche à remplir le contenu d'une zone de texte en fonction de si une case à cocher est cochée ou non.

L'opération requiert des champs placés dans deux tables: Lot_arbres et Comptages.
Les champs nécessaires sont num_phase dans Lot_arbres, phase_comptage dans Comptages, la case à cocher "plantation" dans Comptages et le champ calculé num_comptage dans Comptages.

Donc le champ calculé num_comptage doit être égal à 0 si la case est cochée, sinon il doit être égal à [phase_comptage] - [Formulaires]![Lot_arbres]![lm_phase] + 1

J'ai donc fait un code vba (enfin, trouvé sur internet et essayé d'adapter à mon cas particulier) mais il n'a pas l'air de fonctionner. Cela affiche #Nom dans la zone de texte calculée. 

Je l'ai affecté au champ calculé et activé l'événement "sur clic" dans un premier temps. Comme c'est un événement simple, il me permet facilement de vérifier si le code fonctionne avant de trouver un événement plus approprié.

Voici le code utilisé: 

Private Sub calcul_num_comptage()If [plantation].Value = True Then    [num_comptage].Value = 0Else    [num_comptage].Value = [phase_comptage] - [Formulaires]![Lot_arbres]![lm_phase] + 1End If[plantation].RequeryEnd Sub

Je galère déjà un petit peu avec Access, quoi que mes soucis commencent à se résoudre, mais je ne connais vraiment rien en VBA. Mais il me semble curieux de mettre des crochets. Sauf pour le "[Formulaires]![Lot_arbres]![lm_phase]. (lm_phase est une liste permettant de choisir num_phase)

Quand je retire les crochets, ça fait la même chose quand je déclenche la macro sur l'événement BeforeUpdate par contre, sur OnClick, ça affiche le message d'erreur suivant:
https://img-19.ccm2.net/m2acQTUts4pPQ5R1OOFjmX53Tvc=/fc82b560ade340e5940f4a16aa614ced/ccm-ugc/rreur_BDD_projet_ceinture_forestiere.png

Est-ce que quelqu'un s'y connaîtrait un peu mieux que moi en VBA et saurait trouver l'erreur svp ?

Merci d'avance !

Configuration: Windows / Chrome 60.0.3112.90

yg_be · Answer

bonjour, je te suggère de faire simple, puis de plus en plus compliqué.
cela va t'aider à découvrir où cela coince.
surtout, ajoute option explicit au début de ton code.
commence par tester ceci: as-tu bien soit 0 soit 1?
If [plantation].Value = True Then
    [num_comptage].Value = 0
Else
    [num_comptage].Value =  1
End If
ensuite ainsi:
If [plantation].Value = True Then
    [num_comptage].Value = 0
Else
    [num_comptage].Value =  [Formulaires]![Lot_arbres]![lm_phase] + 1
End If
puis ainsi:
If [plantation].Value = True Then
    [num_comptage].Value = 0
Else
    [num_comptage].Value = [phase_comptage]
End If

Utilisateur anonyme · Answer

Bonjour,

si tu fais :
Private Sub num_comptage_Click()
    
msgbox plantation

End Sub 

que cela retourne t'il ?

A+

Utilisateur anonyme · Answer

Essaie alors avec ce code :
 
Option Explicit
Private Sub plantation_Click()
    If plantation = -1 Then
    Me!num_comptage= "0"
Else
    Me!num_comptage = "1"
End If
End Sub

Remplir une zone de texte si une case est cochée

3 réponses

Discussions similaires