Discussion :

[vavavoum74]

Bonjour
Je débute encore

je souhaite concaténer une partie de texte "commune" et une lettre située dans une zone de liste déroulante, ceci afin d'appeler une fonction ensuite .
la zone de liste déroulante s'appelle "ParamPlanningOrigine" située dans le formulaire "F_DuplicationPlanningPersonnel"
la partie en texte est: "T_PlanningPersonnel_"
la partie de la zone déroulante est une lettre: A , B , C ou D
Le but est d'obtenir "T_PlanningPersonnel_A" ou "T_PlanningPersonnel_B"... etc pour appeler une fonction.
Le code d'appel de la fonctionqui ne fonctionne pas avec la concaténation telle quelle)

Code :

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

Call CopiePlanningPersonnel("T_PlanningPersonnel_" & "" & [F_DuplicationPlanningPersonnel]![ParamPlanningOrigine], "T_PlanningPersonnel_B", 7, 7)

si je met "en direct" par éxemple:

Code :

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

Call CopiePlanningPersonnel("T_PlanningPersonnel_A", "T_PlanningPersonnel_B", 7, 7)

cela fonctionne

pour info l'en tête de la fonction:

Code :

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

Public Function CopiePlanningPersonnel(tblsource As String, tblfinale As String, idPersonnel As Long, idPersonnelDest As Long)

J'ai fait moultes essais, mais sans succès...

Merci pour vos lumières

[tee_grandbois]

bonjour,
quelle colonne de la liste contient la lettre 1ère (0), seconde (1) ?

Code :

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

Call CopiePlanningPersonnel("T_PlanningPersonnel_"  & [F_DuplicationPlanningPersonnel]![ParamPlanningOrigine].column(0), "T_PlanningPersonnel_B", 7, 7)

[vavavoum74]

merci de ton interêt

il n'y a qu'une seule colonne, donc j'ai laissé le 0.


Par contre avec le code:

Code :

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

1
2
3
4
5
Private Sub CmdDuplicationPlanningPersonnel_Click()
 
Call CopiePlanningPersonnel("T_PlanningPersonnel_" & [F_DuplicationPlanningPersonnel]![ParamPlanningOrigine].Column(0), "T_PlanningPersonnel_B", 7, 7)
 
End Sub

j'obtiens un message d'erreur:

[tee_grandbois]

il ne trouve pas un champ ... c'est quoi "Suivi Planning" ?

[vavavoum74]

c'est le nom de l'appli...

[vavavoum74]

pourtant le nom du formulaire et celui du champ m'ont l'air justes:


je ne vois pas ce qu'il ne trouve pas...

[tee_grandbois]

passe par une variable pour charger le nom de la table :

Code :

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

1
2
Dim StNomTableO as String
StNomTableO  = "T_PlanningPersonnel_" & [F_DuplicationPlanningPersonnel]![ParamPlanningOrigine]

Ce n'est pas ce qui va régler le problème mais seulement l'isoler

[Arkham46]

Bonjour,

Cette syntaxe fonctionne pour accéder à un champ d'un sous-formulaire.
Est-ce le cas ?

Si la fonction est appelé depuis un module externe au formulaire :

Code :

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

forms("F_DuplicationPlanningPersonnel")![ParamPlanningOrigine]

[tee_grandbois]

mais c'est un champ indépendant donc il faut un . pas un ! :

Code :

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

[F_DuplicationPlanningPersonnel].[ParamPlanningOrigine]

[vavavoum74]

Merci à tous les deux

Pour Arkham46:
le code d'appel de la fonction est situé dans le même formulaire que les champs indépendants établissant les paramètres.
la fonction est publique située dans un module standard
l'ajout du forms est concluant!!

Pour tee_grandbois:
changer juste le . n'a rien changé, toujours la même erreur...


Je suis passé par des variables car au final les 4 paramètres sont définis dans le formulaire

Le code (qui fonctionne) donne ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CmdDuplicationPlanningPersonnel_Click()
 
Dim StPersonnelOrig As Long
Dim StPersonnelDest As Long
Dim StTableOrig As String
Dim StTableDest As String
 
StPersonnelOrig = Forms("F_DuplicationPlanningPersonnel")![ParamPersonnelOrig].Column(0)
StPersonnelDest = Forms("F_DuplicationPlanningPersonnel")![ParamPersonnelDest].Column(0)
StTableOrig = "T_PlanningPersonnel_" & Forms("F_DuplicationPlanningPersonnel")![ParamPlanningOrigine].Column(0)
StTableDest = "T_PlanningPersonnel_" & Forms("F_DuplicationPlanningPersonnel")![ParamPlanningDest].Column(0)
 
Call CopiePlanningPersonnel(StTableOrig, StTableDest, StPersonnelOrig, StPersonnelDest)
 
End Sub

Merci encore à tous les deux, je met résolu

[tee_grandbois]

la fonction est publique située dans un module standard

information d'importance ...

[vavavoum74]

Désolé si je n'ai pas été assez explicite

J'ai toujours peur de trop en mettre ... pas facile de donner les informations pertinentes

[tee_grandbois]

ceci afin d'appeler une fonction ensuite

tu l'avais pourtant mis mais je suis passé à coté