Ecriture d'une ligne de code

Le
Jacques
Bonsoir,

Est-ce que cela est correct d’écrire cette ligne (Qui fonctionne) :

If Forms![frm Mise à jour des Adhérents]![sfm Mise à jour des
Adhérents a].Form!Cocher97.Value = 0 _
And Forms![frm Mise à jour des Adhérents]![sfm Mise à jour des
Adhérents a].Form!txtAnnéeAdhésion.Value = fnMillesime Then

De cette façons (Fonctionne pas) :

Dim frm as form
Dim sfm as form

Set frm = [frm Mise à jour des Adhérents]
Set sfm = [sfm Mise à jour des Adhérents a]

If Forms![frm]![sfm].Form.Cocher97.Value = 0 And Forms![frm]!
[sfm].Form.txtAnnéeAdhésion.Value = fnMillesime Then

Si oui ou se situe mon erreur ?

Merci pour votre aide.

Nota : la première ligne fonctionne correctement, mais j’aimerais la
Simplifier.

Salutations
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Eric
Le #18897391
Bonjour,

Je pense qu'il faudrait écrire :

Dim frm as string, sfm as string

frm="frm Mise à jour des Adhérents"
sfm="sfm Mise à jour des Adhérents a"

If Forms(frm)(sfm)!Cocher97.Value = 0 And _
Forms(frm)(sfm)!txtAnnéeAdhésion.Value = fnMillesime Then
Eric
Le #18897381
Bonjour,

Je pense qu'il faudrait écrire :

Dim frm as string, sfm as string

frm="frm Mise à jour des Adhérents"
sfm="sfm Mise à jour des Adhérents a"

If Forms(frm)(sfm)!Cocher97.Value = 0 And _
Forms(frm)(sfm)!txtAnnéeAdhésion.Value = fnMillesime Then


Jacques a écrit :
Bonsoir,

Est-ce que cela est correct d’écrire cette ligne (Qui fonctionne) :

If Forms![frm Mise à jour des Adhérents]![sfm Mise à jour des
Adhérents a].Form!Cocher97.Value = 0 _
And Forms![frm Mise à jour des Adhérents]![sfm Mise à jour des
Adhérents a].Form!txtAnnéeAdhésion.Value = fnMillesime Then

De cette façons (Fonctionne pas) :

Dim frm as form
Dim sfm as form

Set frm = [frm Mise à jour des Adhérents]
Set sfm = [sfm Mise à jour des Adhérents a]

If Forms![frm]![sfm].Form.Cocher97.Value = 0 And Forms![frm]!
[sfm].Form.txtAnnéeAdhésion.Value = fnMillesime Then

Si oui ou se situe mon erreur ?

Merci pour votre aide.

Nota : la première ligne fonctionne correctement, mais j’aimerais la
Simplifier.

Salutations



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
jacques
Le #18898661
On 14 mar, 09:10, Eric
Bonjour,

Je pense qu'il faudrait écrire :

   Dim frm as string, sfm as string

   frm="frm Mise à jour des Adhérents"
   sfm="sfm Mise à jour des Adhérents a"

   If Forms(frm)(sfm)!Cocher97.Value = 0 And _
      Forms(frm)(sfm)!txtAnnéeAdhésion.Value = fnMillesime Th en



Bonjour Eric,

Merci pour ta réponse
C'est Ok.

Salutations
Gloops
Le #18905611
Jacques a écrit, le 14/03/2009 01:51 :

Set frm = [frm Mise à jour des Adhérents]
Set sfm = [sfm Mise à jour des Adhérents a]




Bonjour,

Comme l'ont mentionné les autres intervenants, frm et sfrm peuvent
désigner des chaînes de caractères avec les noms des formulaire et
sous-formulaire.

Sinon, pour désigner les objets eux-mêmes, il me semble que la syntax e
serait de cet ordre :

Set frm = Forms("frm Mise à jour des Adhérents")
Set sfm = frm.Controls("sfm Mise à jour des Adhérents a").Form
Publicité
Poster une réponse
Anonyme