Discussion :

[MagagiIssoufou]

Bonjour,

j'utilise une table temporaire pour afficher des information selon le personnel sélection mais mon code ne marche pas très. j'ai comme message d'erreur : "Champ memo, OLE ou hyperlink ncorrect dans la sous requête "NOM_PERSONNEL"

Voici: le code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
CurrentDb.Execute ("Insert Into TMP_TAB_PERSONNEL_ASSOCIEAUPLANNING  select * from TAB_PERSONNEL_ASSOCIEAUPLANNING where RefPlanningAssocie='" & Me.RefPlanningMod & "'")
CurrentDb.Execute ("Insert into TMP_TAB_PERSONNEL (RefPlanning, NUMMAT_PERSONNEL) select RefPlanningAssocie, RefBadgePersonnelPlanningAssocie from TMP_TAB_PERSONNEL_ASSOCIEAUPLANNING")
CurrentDb.Execute ("Update TMP_TAB_PERSONNEL set NOM_PERSONNEL = (select NOM_PERSONNEL from TAB_PERSONNEL where TAB_PERSONNEL.NUMMAT_PERSONNEL=TMP_TAB_PERSONNEL_ASSOCIEAUPLANNING.RefBadgePersonnelPlanningAssocie and TMP_TAB_PERSONNEL_ASSOCIEAUPLANNING.RefPlanning= '" & Me.RefPlanningMod & "')")
CurrentDb.Execute ("Update TMP_TAB_PERSONNEL set PRENOM_PERSONNEL = (select PRENOM_PERSONNEL from TAB_PERSONNEL where TAB_PERSONNEL.NUMMAT_PERSONNEL=TMP_TAB_PERSONNEL_ASSOCIEAUPLANNING.RefBadgePersonnelPlanningAssocie and TMP_TAB_PERSONNEL_ASSOCIEAUPLANNING.RefPlanning= '" & Me.RefPlanningMod & "')")
CurrentDb.Execute ("Update TMP_TAB_PERSONNEL set NUMPROTABLE_PERSONNEL = (select NUMPROTABLE_PERSONNEL from TAB_PERSONNEL where TAB_PERSONNEL.NUMMAT_PERSONNEL=TMP_TAB_PERSONNEL_ASSOCIEAUPLANNING.RefBadgePersonnelPlanningAssocie and TMP_TAB_PERSONNEL_ASSOCIEAUPLANNING.RefPlanning= '" & Me.RefPlanningMod & "')")
CurrentDb.Execute ("Update TMP_TAB_PERSONNEL set ADRESSE_PERSONNEL = (select ADRESSE_PERSONNEL from TAB_PERSONNEL where TAB_PERSONNEL.NUMMAT_PERSONNEL=TMP_TAB_PERSONNEL_ASSOCIEAUPLANNING.RefBadgePersonnelPlanningAssocie and TMP_TAB_PERSONNEL_ASSOCIEAUPLANNING.RefPlanning= '" & Me.RefPlanningMod & "')")
CurrentDb.Execute ("Update TMP_TAB_PERSONNEL set CODEBARRE_MATRICULEPERSONNEL = (select CODEBARRE_MATRICULEPERSONNEL from TAB_PERSONNEL where TAB_PERSONNEL.NUMMAT_PERSONNEL=TMP_TAB_PERSONNEL_ASSOCIEAUPLANNING.RefBadgePersonnelPlanningAssocie and TMP_TAB_PERSONNEL_ASSOCIEAUPLANNING.RefPlanning= '" & Me.RefPlanningMod & "')")
CurrentDb.Execute ("Update TMP_TAB_PERSONNEL set ConfirmationPrsnl = (select ConfirmationPrsnl from TAB_PERSONNEL where TAB_PERSONNEL.NUMMAT_PERSONNEL=TMP_TAB_PERSONNEL_ASSOCIEAUPLANNING.RefBadgePersonnelPlanningAssocie and TMP_TAB_PERSONNEL_ASSOCIEAUPLANNING.RefPlanning= '" & Me.RefPlanningMod & "')")
Me.Requery

merci

[madefemere]

Bonjour,

Peux-tu mettre ton code dans les balises correspondantes parec que ce n'est pas évident de le lire.
Pour cela : ==>Tu le sélectionnes et tu cliques sur #.

A priori, d'après ce que je comprends, tu as une erreur lors de l'exécution de la requête :

Code :

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

CurrentDb.Execute ("Update TMP_TAB_PERSONNEL set NOM_PERSONNEL = (select NOM_PERSONNEL from TAB_PERSONNEL where TAB_PERSONNEL.NUMMAT_PERSONNEL=TMP_TAB_PERSONNEL_ASSOCIEAUPLANNING.RefBadgePersonnelPlanningAssocie and TMP_TAB_PERSONNEL_ASSOCIEAUPLANNING.RefPlanning= '" & Me.RefPlanningMod & "')")

Si tu es sûr que ta sous-requête ne renvoie qu'une seule valeur, je crois bien que tu as oublié de mettre le résultat entre quotes.

Cordialement,