Discussion :

[sentenza]

Hello,

Comment attribuer le resultat d'une requete à une variable ou à un controle ?
(Est ce possible deja ?)

Ma requete serait :

Select num from adherent where adherent.code = & Chr(34) & Rst.Fields("code").Value & Chr(34)

Merci...

[Demco]

Regarde la FAQ et le forum concernant les RecordSet et les fonctions de domaire (DLookUp(), DFirst(),...)

En esperant t'aider.

[sentenza]

Merci !
J'ai trouver avec les fonctions de domaine !

Mais un probleme est apparu lors de l'execution de la requete suivante :

var_cotis = DLookup("num", "adherent", "code = " & Chr(34) & Rst.Fields("code").Value & Chr(34))

monsql = "INSERT INTO Cotis SELECT num as " & var_cotis & ", annee as annee, montant_cotis as montant_cotis, a_jour as a_jour, [mode paiement] as [mode paiement], [nb timbres] as [nb timbres], encaissement as encaissement, [couleur timbres] as [couleur timbres] FROM cotis IN " & Chr(34) & chemin.Value & Chr(34)

DoCmd.RunSQL monsql

Le message d'erreur :

Erreur N° 3103 :
Référence circulaire causée par l'alias 'mode paiement' dans la liste SELECT de la definition de la requete.

Rien trouver à ce sujet, d'où cela provient il ?

[Demco]

Première chose à faire lors de problème avec une requête en VBA c'est :

Code :

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

Debug.Print monsql

Puis tu testes la requête dans le QBE. Il y a un tutorial sur le débogage des requêtes écrite en VBA dans la page de cours. De Caféine.

[sentenza]

Bon alors j'ai trouvé une piste...

Quand j'execute la requete suivante :

monsql = "INSERT INTO Cotis SELECT " & var_cotis & " as num, annee as annee, montant_cotis as montant_cotis, a_jour as a_jour, [mode paiement] as [mode paiement], [nb timbres] as [nb timbres], encaissement as encaissement, [couleur timbres] as [couleur timbres] FROM cotis IN " & Chr(34) & chemin.Value & Chr(34)

DoCmd.RunSQL monsql

J'ai le message d'erreur !

Par contre quand j'execute la requete ainsi modifiée :

monsql = "INSERT INTO Cotis SELECT " & var_cotis & " as num, annee as annee, a_jour as a_jour, encaissement as encaissement FROM Cotis IN " & Chr(34) & chemin.Value & Chr(34)
DoCmd.RunSQL monsql

Je n'ai pas le message d'erreur !

Or les noms des champs sont bons...