Discussion :

[vcattin]

Bonjour,

J'aimerais que lorsque mon sous-formulaire est modifié, la propriété Dirty du formulaire principal soit mise à vrai. Je pensais utiliser des champs pères et fils, mais comme mon sous-formulaire n'est pas lié, Access n'accepte pas leur gestion... Quelqu'un pourrait-il me donner un tuyau?

Merci d'avance

[Faw]

Salut, quelle propriété?!...
Depuis le sous-form tu peux faire référence au form avec

Code :

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

1
2
Parent.Lapropriété
Parent.Lecontrôle

[Heureux-oli]

Avec l'évènement OnDirty du sous formulaire, changer la valeur du contrôle propriété.

Code :

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

1
2
3
Sub MonSubFom_OnDirty()
Forms!MonFom![Propriété].value = true
End Sub

[vcattin]

Oups, désolé j'ai tapé un peu vite! C'est la propriété Dirty.

Je réédite le post.

J'ai essayé de de mettre manuellement la propriété à true mais Access me donne une erreur. ça me paraît d'ailleurs pas très orthodoxe...

[Faw]

Il faut:
Activer un Champ dépendant modifiable du form principal
Modifier la propriété

Code :

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

1
2
Parent.ChampDépendantModifiable.SetFocus
Parent.Dirty = True

[vcattin]

Merci pour vos réponses.

Faw ta solution fonctionne, mais je crois que ce n'est pas la solution idéale à mon problème (s'il en existe une).

Je récapitule: j'aimerais que lorsque je modifie mon sous-formulaire, le formulaire principal soit aussi mis à l'état Dirty, ceci afin que les événements BeforeUpdate et AfterUpdate s'exécute aussi (par exemple à la fermeture du formulaire) même si le formulaire principal n'a pas été modifié.

J'ai essayé en mettant ta solution, Faw, dans l'événement Dirty du sous-formulaire. Bien sûr, le problème est que ça impose de sortir du sous-formulaire alors qu'on est en train de le modifier. Du coup j'ai essayé de mettre ta solution dans l'événement Exit du sous-formulaire en utilisant un flag que je mets à true lorsque le sous-formulaire est modifié:

Code :

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

1
2
3
4
5
6
7
Private Sub SousForm_Exit(Cancel As Integer)
    If sousFormDirty = True Then
        ChampDépendantModifiable.SetFocus
        Me.Dirty = True
        sousFormDirty = False
    End If
End Sub

Dans ce cas là on est quitte de sortir du sous-form en pleine modification mais ça positionne tjs le curseur sur ce ChampDépendantModifiable à la sortie du sous-form, c'est pas très agréable à l'utilisation...

Si tu as une idée elle est la bienvenue!

Merci beaucoup pour ton aide en tout cas.

[vcattin]

Finalement j'ai trouvé une solution qui me satisfait (mais qui n'est intéressante que dans mon cas):

J'ai remarqué qu'il existe un moyen de modifier l'enregistrement courant d'un formulaire lié par le code comme s'il l'avait été par l'utilisateur: en utilisant Me("NomDuChamp") = Valeur. Dans ce cas la propriété Dirty du formulaire est mise automatiquement à True.

Dans mon cas, j'ai champ date qu'il est important de mettre à jour à chaque fois qu'une modification est faite dans mon formulaire (y compris le sous-formulaire). Donc en modifiant ce champ à chaque modification du sous-formulaire je mets du même coup la propriété Dirty du formulaire principal à True.

Et ça me donne dans le sous-formulaire:

Code :

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

1
2
3
4
 
Private Sub Form_Dirty(Cancel As Integer)
    Me.Parent("Date") = Now()
End Sub

En espérant que ça puisse être utile à quelqu'un d'autre...

Merci à tous en tout cas!