cs_patrick55
Messages postés15Date d'inscriptionmercredi 24 décembre 2003StatutMembreDernière intervention14 décembre 2005
-
10 déc. 2005 à 18:14
cs_patrick55
Messages postés15Date d'inscriptionmercredi 24 décembre 2003StatutMembreDernière intervention14 décembre 2005
-
14 déc. 2005 à 19:48
Bonjour,
j'ai des probléme pour positionner les "" dans cette requête Ajout
Dim SQL As String
SQL = INSERT INTO TbPolPart(NumEmployé, Jour)
Select TbEmployés.NumEmployé, TbPolJour.Jour FROM TbEmployés, TbPolJour
WHERE (((TbEmployés.Equipe) Equipe.Value) And ((TbPolJour.IdPolJour) IdPolJour.Value))
Pourrai je avoir un coup de main
Merci pour votre aide
cs_patrick55
Messages postés15Date d'inscriptionmercredi 24 décembre 2003StatutMembreDernière intervention14 décembre 2005 11 déc. 2005 à 16:06
Bonjour,
Dans mon formulaire j'ai un bouton qui execute ma reqête ajout dont le code SQL est (ça marche, mais je voudrais passer en mode VBA):
INSERT INTO TbPolPart ( NumEmployé, Jour )
SELECT TbEmployés.NumEmployé, TbPolJour.Jour
FROM TbEmployés, TbPolJour
WHERE (((TbPolJour.IdPolJour)=[Formulaires]![FrmPolJour]![IdPolJour]) AND ((TbEmployés.Equipe)=[Formulaires]![FrmPolJour]![Equipe]));
Par Contre, je ne comprends pas pourquoi, avec le un bouton dont je mets le code ci dessous ça ne fonctionne pas
TbPolPart est ma table de destination (c'est un sous formulaire)
RqAjoutPart est ma requête de selection
Equipe.Value (Champ Texte) et IdPolJour.Value(Champ Numérique) sont les champs de mon formulaire FrmPolJour
cs_patrick55
Messages postés15Date d'inscriptionmercredi 24 décembre 2003StatutMembreDernière intervention14 décembre 2005 14 déc. 2005 à 19:48
Tu as effectivement raison.
mais avec cette formule j'ai un bug et je bloque à DoCmd.RunSQL SQL.
Quand je passe ma souris sur le code (pendant le débogage), effectivement tout est pris en compte dans le Where, mais je ne comprends pas que ça bloque alors qu'avec ma formule (amateur ça passe) Vois tu le Pb
Merci