Discussion :

[Gabout]

Bonjour,

Je cherche à empêcher de quitter un enregistrement dans un formulaire si une condition n'est pas remplie dans le sous-formulaire qui en dépend.

Pour empêcher la fermeture, j'ai trouvé en utilisant l'évènement Sur libération comme suit

Code :

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

1
2
3
4
5
6
Private Sub Form_Unload(Cancel As Integer)
    If Me.frm_SPE_lst.Form.Verif = 0 Then
        Cancel = True
        MsgBox "Pas bien !"  'A compléter...
    End If
End Sub

par contre je sèche pour empêcher le passage d'un enregistrement à l'autre, l'évènement Sur activation ne possède pas de "caractéristique" Cancel As Integer.

Une petite idée ?

[Gabout]

En complément, je pourrai dire que je cherche à traiter un évènement Sur changement d'enregistrement ... mais qui n'existe pas sur Access 2000 !

[Alain36]

Bonjour,

As-tu essayé l'événement BeforeUpdate (avant mise à jour) ?

[Gabout]

Bonjour,

Oui, j'ai essayé sur l'évènement BeforeUpdate du formulaire . Je ne sais pas pourquoi cela ne fonctionne pas !

J'ai également essayé de gérer l'évènement BeforeUpdate du sous-formulaire : c'est pas mieux !

Une solution consisterait à créer des boutons de navigation et de gérer les évènements, mais cela ne me plait guère...

[Alain36]

Bonjour,

Je reviens vers toi après quelques essais.

L'événement BeforeUpdate n'est détecté que si l'on a modifié (ou fait semblant de modifier) une donnée dans le formulaire, bref que si le formulaire est Dirty. Dans ce cas je peux t'assurer que ça marche. Peut être devrais-tu inverser le Cancel = True et le MsgBox ... dans ton code.

Si tu veux que BeforeUpdate soit toujours détecté, il faut rendre le formulaire Dirty de façon artificielle. Par exemple, dans Form_Current. Ce code (pas très élégant) fonctionne dans Form_Current :

Code :

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

1
2
Me(un contrôle quelconque).SetFocus
Me.Dirty = True

Avec ce stratagème, BeforeUpdate est toujours détecté.

[Gabout]

Bonjour et merci de ton aide Alain36,

J'avais pensé à cet méthode mais j'avais calé car je faisais le setfocus sur une liste déroulante.

Effectivement, cela fonctionne... tant que l'utilisateur n'appuie pas sur le sélecteur !

Par défaut, j'ai recréé un système de boutons de déplacement... mais je cherche toujours !

[Alain36]

Bah! Tu n'as peut-être pas besoin d'afficher le sélecteur...

[Gabout]

Bonjour,

Après maintes réflexions, faute d'avoir une solution optimisée à 100%, je vais passer par la création de nouveaux boutons de déplacement.

Merci de ton aide Alain36.