Ajout enregistrement d'une zone de liste dans une table

Question

Bonjour,

J'ai une zone de liste (indépendante "Laboratoire") qui récupére des données dans une table.

Je voudrais par double clic enter l'enregistrement sélectionné dans ma table désiré..

J'ai un peu de mal pour démarrer.

Dim SQL As String
Dim NumEmployé As Variant

Me.Laboratoire.Selected(0) = NumEmployé

SQL = "INSERT INTO TbPolPart (NumEmployé,Jour)" & _
          "Values (NumEmployé,IdPoljour); "
          
 DoCmd.RunSQL SQL

merci pour votre aide (base de départ de recherche)..

cs_CanisLupus · Answer

Salut,
Avant de te donner une vraie r&#233;ponse, quelques questions :
- NumEmploy&#233; et Jour paraissent &#234;tre les champs de ta table TblPolPart mais de quel type sont-ils ? (string, long, ....), la requ&#234;te ne peut &#234;tre construite de la m&#234;me mani&#232;re.
- Tu as une variable (NumEmploy&#233;) d&#233;clar&#233;e en variant, tu n'es pas s&#249;r du type de donn&#233;es qu'elle doit recevoir ? 
- Que repr&#233;sente IdPolJour ? son type ?- Me.Laboratoire.Selected(0) NumEmploy&#233; : je dirais plut&#244;t (s'il s'agit d'une listbox standard) : NumEmploy&#233; me.laboratoire.list(me.laboratoire.listindex)

Le tout &#224; mettre dans l'ev&#232;nement dblclick de ta liste.

Pour la construction de la requ&#234;te, j'attend tes pr&#233;cisions

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_patrick55 · Answer

Je vais essayer de reformuler.

Table
J'ai une table "TbEmployés" qui a un Champ Equipe (A,B,C,D,E,F et Labo)
J'ai une table TbJour liée avec TbPolPart (par le champ texte [jour])

Formulaire
J'ai un formulaire avec un champ maitre [Idpoljour] (N° Auto) et un champ clé primaire [jour]
J'ai un sous formulaire de TbPolPart (table) [IdPolPart] (N°Auto) , [NumEmployé] (numérique), et le champ [Jour](texte)


But 1
Mon but est d'insérer tous les Employés de Equipe (A ou B ou C) dans la table TBPolPart en fonction du jour (cette requête d'ajout fonctionne à peu prés)avec 
SQL = "INSERT INTO TbPolPart (NumEmployé,Jour)" & _
          "SELECT NumEmployé,jour FROM RqAjoutSql " & _
          "WHERE RqAjoutSql.Equipe '" & Equipe.Value & "' and RqAjoutSql.IdPolJour '" & IdPolJour.Value & ";"

But2
Pour le Labo, j'ai placé tous les employés dans une Boxliste "Laboratoire" par la sql de données (je ne veux pas inserser tous les "labo" dans ma table TbPolPart

SELECT TbEmployés.NumEmployé, [Nom] & " " & [Prénom] AS NomPrénom, TbSecteur.NomSecteur FROM TbEmployés INNER JOIN TbSecteur ON TbEmployés.IdSecteur=TbSecteur.IdSecteur WHERE (((TbSecteur.NomSecteur)="labo")) ORDER BY [Nom] & " " & [Prénom]; 

mon but2 serait d'ajouter le Nom de l'employé "labo" dans la Table TbPolPart (en fonction de la journée) en faisant un double clic dessus.

Voila ma notion de selected dans la liste Box "Laboratoire"

Merci pour ton aide et celle à venir
je vais commencer à "gratter avec tes éléments" merci

Ajout enregistrement d'une zone de liste dans une table

2 réponses

Discussions similaires