Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Comment sauver des sous-formulaires?

Comment sauver des sous-formulaires?

1 réponse
Avatar
Didier.Piron
Bonjour,

Je modifie par programmation 1 formulaire contenant 2 sous-formulaires
imbriqués.

J'utilise la syntaxe suivante:

Dim frm1 As Form
Dim frm2 As SubForm, frm3 As SubForm

DoCmd.OpenForm "FPAevalueMAIN_V2", acDesign

Set frm1 = Forms("FPAevalueMAIN_V2")
Set frm2 = frm1.FPAevalueSF2
Set frm3 = frm1.FPAevalueSF2.Form.FPAevalueSF3

frm1.Txt_commentaire.ControlSource = Csource
frm2.Form.Controls("Txt_commentaire").ControlSource = Csource
frm3.Form.Controls("Txt_commentaire").ControlSource = Csource
. . . .

DoCmd.Save acForm, "FPAevalueMAIN_V2"
DoCmd.Save acForm, fr3.Name
DoCmd.Save acForm, fr2.Name

Pour les 2 dernières lignes, je reçois le message d'erreur '2489' me
disant que mes formulaires (sous-formulaires) ne sont pas ouverts.

Quelle est l'erreur? Dois je obligatoirement ouvrir les
sous-formulaires comme 2 formulaires indépendants pour effectuer les
modifications?

Didier
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonsoir.

pour faire des modifs tu ouvres et referme chaque formulaire en design comme
s'il s'agissait de 3 formulaires indépendants.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"didier Piron" a écrit dans le message de
news:
Bonjour,

Je modifie par programmation 1 formulaire contenant 2 sous-formulaires
imbriqués.

J'utilise la syntaxe suivante:

Dim frm1 As Form
Dim frm2 As SubForm, frm3 As SubForm

DoCmd.OpenForm "FPAevalueMAIN_V2", acDesign

Set frm1 = Forms("FPAevalueMAIN_V2")
Set frm2 = frm1.FPAevalueSF2
Set frm3 = frm1.FPAevalueSF2.Form.FPAevalueSF3

frm1.Txt_commentaire.ControlSource = Csource
frm2.Form.Controls("Txt_commentaire").ControlSource = Csource
frm3.Form.Controls("Txt_commentaire").ControlSource = Csource
. . . .

DoCmd.Save acForm, "FPAevalueMAIN_V2"
DoCmd.Save acForm, fr3.Name
DoCmd.Save acForm, fr2.Name

Pour les 2 dernières lignes, je reçois le message d'erreur '2489' me
disant que mes formulaires (sous-formulaires) ne sont pas ouverts.

Quelle est l'erreur? Dois je obligatoirement ouvrir les
sous-formulaires comme 2 formulaires indépendants pour effectuer les
modifications?

Didier