Discussion :

[gadjou]

Bonjour à tous

Pouvez vous me venir en aide SVP?
Je désire recupérer un numeroauto dans une table pour le stoker dans une autre table de ma base.Je travail sous ACCESS 97.
J'ai essayer le code suivant et il ya un problème d'argument .


Set A = CurrentDb.OpenRecordset("select * from SESSION_FORMATION")
Set B = CurrentDb.OpenRecordset("select * from CONVENTION")
B.Fields("NUM_SESSION_FORMATION") = DLast(A.Fields("NUM_SESSION_FORMATION"), A)


Merci d'avance

[xblond]

Essaye quelque chose comme ca pour récupérer le dernier numéro de session :

Code :

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

1
2
SELECT MAX(NUM_SESSION_FORMATION) FROM
SESSION_FORMATION ORDER BY NUM_SESSION_FORMATION

Après, si c'est un insert dans ta base CONVENTION ou une mise à jour tu as juste à rajouter ce qui va bien autour de cette requête.

Par exemple pour un insert tu peux écrire :

Code :

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

1
2
3
4
 
DoCmd.RunSQL("INSERT INTO CONVENTION(NUM_SESSION_FORMATION)
VALUES(SELECT MAX(NUM_SESSION_FORMATION) FROM
SESSION_FORMATION ORDER BY NUM_SESSION_FORMATION)

[gadjou]

Merci pour votre reponse

J'ai tapé le code suivant et j'ai une erreur d'execetion 3075


DoCmd.RunSQL("INSERT INTO CONVENTION(NUM_SESSION_FORMATION)
VALUES(SELECT MAX(NUM_SESSION_FORMATION) FROM
SESSION_FORMATION ORDER BY NUM_SESSION_FORMATION)")

Merci encore.

[xblond]

Je viens juste de voir sur ton code du début la méthode Fields prend un entier en paramètre et pas une chaine de caractère.

Code :

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

1
2
3
4
5
6
7
8
 
Set A = CurrentDb.OpenRecordset("select MAX(NUM_SESSION_FORMATION) 
from SESSION_FORMATION ORDER BY NUM_SESSION_FORMATION")
A.MoveFirst
Set B = CurrentDb.OpenRecordset("select NUM_SESSION_FORMATION from 
CONVENTION")
B.AddNew
<div style="margin-left:40px">B.Fields(0) = A.Fields(0)</div>B.Update

Sauf erreur dans le AddNew ca devrait marcher

[xblond]

alors ca donne quoi comme ca ?

Tu t'en sors ?

[gadjou]

salut...

Il ya toujours une erreur
voila ce qui s'affiche quand j'essai de comprendre le probleme



Vous avez essayé d’exécuter une requête ne comprenant pas l’expression spécifiée comme une partie de la fonction de regroupement ou du groupement.
Cause possible*:

Vous n’avez pas saisi de fonction de regroupement dans l’instruction TRANSFORM.


Merci de ton aide

[xblond]

la comme ca je suis a court, mais il faut que tu recherches du côté des requêtes DAO pour faire tes insert.

Essaye de faire afficher la valeur de A.Fields(0) déjà pour voir si ca correspond à ce que tu attendais.

Bon courage

[gadjou]

Re salut

J'ai réessayé en respectant la priorité de remplissage de mes tables
et ça marche trés bien.
c'est trés sympa de ta part.

Merci encore

[gadjou]

salut a tous,c'est encore moi......

Aidez moi SVP.

J'aimerai recupéré un numero dans un formulaire pour le sauvegardé dans une table de ma base.
J'ai essayé le code suivant,il ya une erreur d'execution 3421.


Set S = CurrentDb.OpenRecordset("select * from PARTICIPE")
S.AddNew
S.Fields("NUM_EMPLOYE") = R.Fields(0)
S.Fields("NUM_SESSION_FORMATION") = "& Forms![F_SESSION_ENCOURS]![NUM_SESSION_FORMATION]& ""
S.Update
S.Close

Merci d'avance pour votre aide.

[xblond]

Code :

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

1
2
3
4
5
6
7
Set S = CurrentDb.OpenRecordset("select NUM_EMPLOYE, NUM_SESSION_FORMATION from PARTICIPE")
S.AddNew
S.Fields(0) = R.Fields(0)
S.Fields(1) = Forms![F_SESSION_ENCOURS]![NUM_SESSION_FORMATION]
S.Update
S.Close

essaye ca déjà.

Si tu as toujours une erreur c'est qu'il faut que tu rajoutes des quotes autour de ton NUM_SESSION_FORMATION que tu récupères, soit :

Code :

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

1
2
S.Fields(1) = "'" & Forms![F_SESSION_ENCOURS]![NUM_SESSION_FORMATION] & "'"

Voilà

Bon courage et dis moi si ca marche comme ca.

[gadjou]

Oui Xblond, ça marche sans les quotes (" ")
Je dit remerci,c'est vraiment très sympa de ta part