En utilisant VBA, insérer dans une table Access les résultats d'une requête

Salut à tous !

Je possède une base de données, où j'ai créé une table PARTENARIAT. Dans cette table, il y a un champ (un seul champ) "DATE_DBT_CONTRAT"
Dans cette table, je souhaite récupérer l'année scolaire par rapport à cette date de début de contrat . J'ai créé une requête SQL (R_Annee_Scolaire) pour extraire l'année de cette date de début de contrat et l'année N+1.
Il me faut alors intégrer les résultats de ma requête "R_Annee_Scolaire".
Voici ma requête:

Code:

---

1 2	SELECT YEAR([DATE_DBT_CONTRAT]) AS annee, ((YEAR([DATE_DBT_CONTRAT]))+1) AS fin FROM partenariat;

---

Dans VBA j'ai exécuté :

Code:

---

1 2 3

Dim strSql as string strSql = "insert into partenariat (debut,fin) select debut, fin from R_Annee_Scolaire;" CurrentDb.Execute strSql, dbFailOnError

---

J'avais inséré préalablement dans ma table Access les champs debut et fin mais il me met un décalage entre la DATE_DBT_CONTRAT et debut et fin :scarymov:
C'est à dire que sur la ligne 1 j'ai ma "DATE_DBT_CONTRAT" et sur la ligne 2 mes champs debut et fin sont renseignés (par rapport à la DATE_DBT_CONTRAT de la ligne 1).

Comment puis-je faire pour que les infos soient mises sur la même ligne
ou peut être y a-t-il un code + simple pour récupérer directement l'année scolaire depuis la date DATE_DBT_CONTRAT ?

Merci par avance de votre aide !!

Bonjour,

D'après ce que tu dis, tu veux "METTRE A JOUR" tes nouveaux champs début et fin par rapport à l'année du début de contrat. Donc il faut utiliser plutôt une requête mise à jour (UPDATE) qu'une requête insertion (INSERT). C'ets pour cela que tu as un nouvel enregistrement avec ta requête actuelle.
Le code ressemblerait à :

Code:

---

UPDATE partenariat SET partenariat.debut = Year([DATE_DBT_CONTRAT]), partenariat.fin = Year([DATE_DBT_CONTRAT])+1;

---

Note : Vu que ce sont des valeurs calculées, en général on ne garde pas des valeurs "calculées" dans une table. Pour y référence, on se contente de la requête qui permet de les calculer. Ta requête "R_Annee_Scolaire" devrait faire l'affaire je pense.

Cordialement.

Bonjour madefemere,

Je te remercie pour ta réponse.
Le bout de code que tu m'as donné fonctionne très bien, et j'obtiens enfin le résultat souhaité dans ma table. :D

Cordialement.