Discussion :

[Dermochelys]

Bonjour,

Je reposte sur ce forum ci une question que j'ai postée sur le forum VBA.

Je suis en train d'adapter le code du Tuto de caféine sur le suivi des modifications (et l'annulation éventuelle de celles-ci) sur ma base (cf. Stocker et Annuler les mises à jour dans un formulaire).
J'ai un formulaire qui contient plusieurs onglets contenant chacun un sous formulaire. Le formulaire principal est dépendant d'une table de même que chacun des sous-formulaires (ça peut être des tables différents du formulaire principal).

Dans l'évènement Load du formulaire principal, je mets l'appel à la fonction de traçage des modifications et ça fonctionne parfaitement. Dans un second temps j'ai mis cet appel à cette fonction (cf tuto) au niveau de l'évenement load d'un sous-formulaireet ça m'affiche le message suivant quand j'ouvre le formulaire principal:
erreur 2450 : Microsoft Access can't find the forms "nom de mon sous-formulaire" referred to in a Macro expression or Visual Basic code

La ligne en fluo est :

Code :

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

1
2
' analyse de la source du formulaire
If Len(Forms(strFrmName).RecordSource) > 0 Then

strFrmName contient bien le nom du formulaire (utilisé en sous-formulaire) qui a appellé la fonction.

J'en déduit que l'appel à la fontion de traçage se fait avant que le sous-formulaire soit complètement chargé... (mais load = chargé, non?) ou alors c'est que cette fonction de traçage ne sait pas où trouver le sous formulaire (dans mon formulaire principal) ou le recordsource?
J'ai également tester l'appel de cette fonction sur les évènnement Current et activate mais nada, rien, nothing. Pas de message d'erreur mais pas de suivi des modif non plus.

Quelqu'un pourrait m'aider à y voir clair?

Merci à vous tous et toutes et bonne journée!

[micniv]

If Len(Forms(strFrmName).RecordSource) > 0 Then

Tu ne peux pas appeler un sous form avec cette syntaxe.
Dans ton cas utilise Me

Code :

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

If Len(Me.RecordSource) > 0 Then

sinon pour plus de détails, vois le tableau des appels dans Access (notamment dans les sous forms) de Loufab
http://loufab.developpez.com/tutorie...pelformulaire/

[Dermochelys]

Bonjour et Merci Micniv pour ton intervention! te pour les explications de loufab!! Très pertinentes et claires. Mais j'y arrive pas

Si je comprends bien le message d'erreur, il ne trouve pas le sous-formulaire correspondant.

Pour détailler un peu, j'ai mis (cf tuto de caféine) dans l'évennement Load du sous-formulaire l'appel à la fonction:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
 
Dim str As String
 
str = CStr("Forms.Form_" & Me.Parent.Name & "." & "Form_" & Me.Name & ".Form")
 
DAOLogUpdates str, Me.NumCD.Name
 
End Sub

str est une chaine résultante qui donne "Forms.Form_formulaireparent.Form_sousformulaire.Form"
les noms des formulaires sont tels qu'ils apparaissent dans la fenêtre d'explorateur de projet. Cette chaîne est passée sous format String à la fonction DAOLogUpdates. Et si je comprends bien, elle est réinterprétée comme Forms pour pouvoir accéder au recordsource (ceci grâce au

Code :

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

If Len(Forms(strFrmName).RecordSource) > 0 Then

Mais ça ne fonctionne pas... il y a un message d'erreur disant qu'ils ne trouve pas le formulaire...

Quel est mon problème de syntaxe?... Je vois pas du tout...

[Dermochelys]

Je voulais préciser que mon sous formulaire est situé dans un onglets.

Merci

[micniv]

le fait que ton sous-form soit dans un onglet n'a pas d'impact.

Je n'ai pas regardé le tuto de cafeine
mais en ce qui concerne l'appel au recordsource d'un sous-form, tu devras avoir fatalement une syntaxe de la forme !

Code :

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

Forms!formulaireparent!sousformulaire.Form.recordSource

ou bien

Code :

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

Forms("formulaireparent").controls("sousformulaire").Form.recordSource

Bonne continuation

[Dermochelys]

Merci micniv!
Je teste ça lundi au plus tard.
Bon weekend!!

[Dermochelys]

Bonjour Micniv,

La seconde formulation que tu me proposais fonctionne (pourquoi pas la première??? mystère...).
Je vais continuer la modif de mon code (car il faut que j'introduise un test vérifiant si un formulaire est parent ou enfant et en fonction de cela ajuster le codage du suivi des évennements).
Je reposterai probablement si je coince encore.

A bientôt et très bonne continuation a toi! (et à tous je vous oublie pas )