Discussion :

[Manaub]

Bonjour,

Voici mon problème :

J'ai sur une table 3 champs au format cases à cocher Oui/Non.
Les trois champs sont : "DVD", "Blu-Ray" et "Aucun".

J'aimerais donc, dans mon formulaire pour ajouter un nouveau film, que ces cases à cocher puisse être liées.

Dans mon cas, je voudrais que la case "Aucun" se coche automatiquement quand les cases "DVD" et "Blu-Ray" sont décochées. Et que la même case "Aucun" se décoche quand au moins une des cases "DVD" ou "Blu-Ray" et cochée.

J'ai donc fais le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Form_AfterUpdate()
 
    If Me.CommandeD.Value = False And Me.CommandeB.Value = False And Me.CommandeN.Value = False Then
 
        Me.Aucun.Value = True
 
    Else
 
        Me.Aucun.Value = False
 
    End If
 
End Sub

Or je rencontre un problème, en effet après avoir modifié mon enregistrement, il m'est impossible de passer au suivant, de passer en mode création ou fermer la fenêtre sans passer par un message d'erreur d'access me disant qu'il ne peut pas enregistrer.



J'ai donc essayé de régler le problème et j'ai pu y arriver en remplaçant AfterUpdate par Current

Je n'ai maintenant plus de message d'erreur, mais je dois à chaque fois changer de page pour actualiser.

Comment dois-je m'y prendre pour que cela s'actualise après un clic sur une des cases à cocher ?

Merci d'avance

[marot_r]

Bonjour.

Il faut appeler ce code sur Après MAJ des cases à cocher.

un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
private sub GereCaseACocher()
   If Me.CommandeD.Value = False And Me.CommandeB.Value = False And Me.CommandeN.Value = False Then
 
        Me.Aucun.Value = True
 
   Else
 
        Me.Aucun.Value = False
 
   End If
end sub

Code :

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

1
2
3
private CommandeD_AfterUpdate
    call  GereCaseACocher()
end sub

Répéter pour les autres cases.

A+

[Manaub]

Super ! Ça marche du tonnerre ! Merci beaucoup !