Discussion :

[Doudou-Galak]

Bonjour,

Je me retrouve actuellement confronté à une erreur, ayant fais des recherches je suis tombé principalement sur des utilisateurs d'Excel. J'ai finis par comprendre qu'il fallait saisir tout le chemin de l'objet. Je m'explique : J'ai un formulaire comportant plusieurs sous formulaire. Dans tout les sous formulaires il y a une année à saisir. Cependant, je veux que l'on saisisse (pas sur de l'ortho !) cette année dans un seul sous formulaire et que les autres sous formulaire l'a prenne comme année. Un peu confus ?! Le code parle mieux ! Je vous présente le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Ajouter_Click()
  Me.[Intitulé poste].DefaultValue = """" & Me.[Intitulé poste] & """"
  Me.[Intitulé métier CNFPT].DefaultValue = """" & Me.[Intitulé métier CNFPT] & """"
  Me.Service.DefaultValue = """" & Me.Service & """"
  Me.Evaluateur.DefaultValue = """" & Me.Evaluateur & """"
  Me.[Date prise de fonction].DefaultValue = """" & Me.[Date prise de fonction] & """"
  Me.[année de saisie].DefaultValue = """" & Formulaires![Statut Sous-formulaire]![année de saisie] & """"
  DoCmd.GoToRecord , , acNewRec
End Sub

Dans cette ligne ( en rouge ), je veux que dans le sous formulaire ou je suis placé, l'année de saisie prenne pour valeur par défaut la valeur de celle dans le sous formulaire Statut. Mais bien sur, Access ne me l'autorise pas ( erreur 424 : Objet requis ) . Je vois vraiment pas d'où sa peut venir, puisque Access est un langage orienté objet, et l'objet que j'utilise est année de saisie ( en ayant donnée tout le chemin d'accès).

Un grand merci d'avance ! Et une bonne lecture ! ( si vous avez une quelconque question n'hésitez pas )

[madefemere]

Bonsoir,

D'après ce que vous dites, [Statut Sous-formulaire] est un sous-formulaire différent du sous-formulaire référencé par Me dans votre code.
Donc il faudrait le référencer ou ses contrôles et propriétés en tant que sous-formulaire lié au formulaire principal :

Code :

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

Me.[année de saisie].DefaultValue = """" & Formulaires!FormPrincipal.[Statut Sous-formulaire].Form![année de saisie] & """"

Je vous conseille de lire le tuto de référence de loufab ci-joint pour les syntaxes

Cordialement

[Doudou-Galak]

Bonsoir,

Tout d'abord je vous remercie d'avoir pris le temps de répondre ! Je ne peux pas tester toute suite ( car je n'ai pas accès à la base de donnée de chez moi), mais je vais en profiter pour lire le tuto de référence de loufab .

Encore un grand merci pour votre aide

[Doudou-Galak]

Bonjour,

Je viens de régler le problème en me basant sur la réponse de madefemere (qui ne fonctionne pas exactement dans mon cas) et le lien qu'il m'a transmis ( plus exactement sur l'appel vers sous formulaire => Forms.nom_form.nom_sousform1.Form.nom_controle). Donc un grand merci a toi madefemere

Pour ceux qui sont interessé voici la ligne de commande obtenu à la fin :

Code :

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

Me.[année de saisie].DefaultValue = """" & Forms.Agent1.[Statut Sous-formulaire].Form.[année de saisie] & """"

.

Encore un grand merci a toi