Discussion :

[MONOVOLTIN]

Bonjour

Je souhaiterais qu'un choix "oui" soit permis dans un champ d'une table, seulement si un autre champ de cette même table est vide ou négatif.

Je serais tenté de passer par les propriétés de la coche du formulaire mais n'arrive pas à finaliser le code.

Est ce préférable de travailler directement sur la table et, le cas échéant, de quelle manière ?

Merci

[madefemere]

Bonsoir,

Je serais tenté de passer par les propriétés de la coche du formulaire mais n'arrive pas à finaliser le code.

Oui, il faut toujours passer par un formulaire quand on arrive à ce genre de situation.
Normalement les utilisateurs n'ont pas accès aux tables lors de l'utilisation de ton application.

De plus, on appelle communément les formulaires IHM (Interface Homme Machine) pour que les utilisateurs passent pas eux pour manipuler les données. Et tu as plus de possibilités d'évènements sur les contrôles des formulaires que sur un champ de table.

En pratique,
Il faut mettre un code sur l'évènement Avant Mise à Jour de ta case à cocher et faire ta vérification par rapport à la valeur de ton champ.

Cordialement,

[MONOVOLTIN]

Bonjour

Pouvez vous me communiquer ce code évènement ?

Merci d'avance

[madefemere]

Bonsoir,

Le code se présentera comme cela :

Code :

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

1
2
3
4
5
6
Private Sub ValeurControle_AfterUpdate()
If (IsNull(Me.achats_expo) Or Me.achats_expo < 0) And Me.ValeurControle Then
    MsgBox "La valeur saisie n'est pas bonne !"
    Me.Undo
End If
End Sub

Une base de données exemple est jointe.

Cordialement,

[MONOVOLTIN]

Merci
Voila de quelle manière j'ai saisi mon code selon votre modèle mais rien ne se passe...

Code :

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

1
2
3
4
5
6
Private Sub Attente_de_décision_du_magistrat_AfterUpdate()
If (IsnotNull(Me.Suivi_terminé)) And Me.Attente_de_décision_du_magistrat Then
    MsgBox "IMPOSSIBLE!"
    Me.Undo
End If
End Sub

Je rappelle le résultat attendu :
Message d'erreur quand vous choisissez "oui" pour attente_de_décision_du_magistrat alors que le "oui" est coché pour suivi_terminé

Cordialement

[madefemere]

Bonjour,

Et avec :

Code :

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

1
2
3
4
5
6
Private Sub Attente_de_décision_du_magistrat_AfterUpdate()
If Not IsNull(Me.Suivi_terminé) And Me.Attente_de_décision_du_magistrat Then
     MsgBox "IMPOSSIBLE!"
     Me.Undo
End If
End Sub

Cordialement,

[MONOVOLTIN]

Bonjour c'est mieux.
Le message s'affiche mais, malheureusement, quelque soit le choix opéré dans "Suivi terminé".

[madefemere]

Bonjour,

Peux-tu poster ta base compactée, zippée et anonymisée ou uniquement avec les parties en cause pour que je comprenne la subtilité du besoin.

Cordialement,

[MONOVOLTIN]

Grâce à votre aide et un peu d'intuition j'ai trouvé le code, le voici :

Code :

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

1
2
3
4
5
6
Private Sub Attente_de_décision_du_magistrat_AfterUpdate()
If Me.Suivi_terminé.Value = True And Me.Attente_de_décision_du_magistrat.Value = True Then
     MsgBox "IMPOSSIBLE!"
     Me.Undo
End If
End Sub

Merci

[madefemere]

Re-bonjour,

Je suis content que tu aies trouvé la réponse, mais le code que tu donnes indique que tu as 2 cases à cocher et non une case à cocher et un champ comme indiqué dans ton message initial :

Je souhaiterais qu'un choix "oui" soit permis dans un champ d'une table, seulement si un autre champ de cette même table est vide ou négatif.

Bonne continuation,

[MONOVOLTIN]

exact, je n'avais pas jaugé l'importance de cette précision.

[madefemere]

L'improvisation et l'imprécision n'ont pas leur place en programmation ! Il faut prendre les bonnes habitudes.
N'oublie pas de mettre le topic en "RESOLU" si c'est bon.

Cordialement,