Discussion :

[spoker04]

Bonjour,

Je souhaite faire en sorte qu'en cliquant sur une checkbox dans mon formulaire, un test vérifie que certains champs textes ont été renseignés et que si tel n'est pas le cas, un message apparaisse tandis que la checkbox se "bloque", c'est à dire qu'elle reste à 0.

Le test fonctionne bien mais j'ai une erreur lorsque j'utilise le code suivant pour maintenir l'état de la checkbox à 0.

Code :

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

1
2
3
4
5
6
Private Sub check_1_1_BeforeUpdate(Cancel As Integer)
    If Nz(champ1) = "" Or Nz(champ2) = "" Or Nz(champ3) = "" Then
        MsgBox "Veuillez remplir tous les champs"
        Me.checkbox.Value = 0
    End If
End Sub

Quelle est la meilleure solution pouir résoudre ce problème ?

Par avance, merci de votre aide

[berti]

tu peux nous dire l'erreur qui s'affiche

[spoker04]

Voici le message :

Erreur d'execution '2115' :

La macro ou la fonction attribuée à la propriété AvantMaj pour ce champ empêche Microsoft office Access d'enregistrer les données dans le champ.

[berti]

le problème vient du before update donc. DAns ton formulaire, quand tu clic sur la checkbox c'est à ce moment là qu'il faut vérifier. C'est sur la propriété 2vènement "Sur changement" et tu mets ton code. Essaies ça

[spoker04]

En effet, en plaçant le code dans l'événement "sur clic", ca fonctionne.

Merci du coup de main