Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Ecriture d'une ligne de code

Ecriture d'une ligne de code

4 réponses
Avatar
Jacques
Bonsoir,

Est-ce que cela est correct d=92=E9crire cette ligne (Qui fonctionne) :

If Forms![frm Mise =E0 jour des Adh=E9rents]![sfm Mise =E0 jour des
Adh=E9rents a].Form!Cocher97.Value =3D 0 _
And Forms![frm Mise =E0 jour des Adh=E9rents]![sfm Mise =E0 jour des
Adh=E9rents a].Form!txtAnn=E9eAdh=E9sion.Value =3D fnMillesime Then

De cette fa=E7ons (Fonctionne pas) :

Dim frm as form
Dim sfm as form

Set frm =3D [frm Mise =E0 jour des Adh=E9rents]
Set sfm =3D [sfm Mise =E0 jour des Adh=E9rents a]

If Forms![frm]![sfm].Form.Cocher97.Value =3D 0 And Forms![frm]!
[sfm].Form.txtAnn=E9eAdh=E9sion.Value =3D fnMillesime Then

Si oui ou se situe mon erreur ?

Merci pour votre aide.

Nota : la premi=E8re ligne fonctionne correctement, mais j=92aimerais la
Simplifier.

Salutations
Signaler un problème avec ce contenu

4 réponses

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
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 Then
Avatar
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 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
Avatar
jacques
On 14 mar, 09:10, Eric wrote:
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
Avatar
Gloops
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