Discussion :

[nadia123456]

salut tout le monde !!
je ve creer un bouton qui recupere les information sur la dernier deplacement depuis la table deplacement et me permet de calculer les frais de cette dernier et d'enregistrer le resultat dans le champ frais de la table deplacement, j'ai aissaye de le faire avec sql (requete qui fait le calcule) =>

Code :

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

1
2
3
SELECT LAST(deplacement.N_dep), deplacement.frais
FROM sal_dep, salaries, deplacement, nomage, classe
WHERE (IIf(nomage.nomage Like "%",(((deplacement.dure_dep-deplacement.Nbj_sans_prise)*nomage.inden_j_nom)+(deplacement.dure_dep-deplacement.Nbj_avec_prise)*nomage.inden_j_nom/2),(IIf(nomage.nomage Like "",(((deplacement.dure_dep-deplacement.Nbj_sans_prise)*classe.inden_j_hier)+(deplacement.dure_dep-deplacement.Nbj_avec_prise)*classe.inden_j_hier/2))) And deplacement.N_dep=salar_dep.N_dep And salar_dep.matricule=salaries.matricule And salaries.classe=classe.classe And salaries.nomage=nomage.nomage));

mais ca marche pas

je vous prie de me communiquer le code en VBA
(vs trouverez ma base de donnees en piece jointe)
et merci d'avence

[le_niak]

Qu'est ce qui ne marche pas?

[nadia123456]

salut !
la requete ne fait les calcules

[le_niak]

T'as une erreur? ou tu ne vois rien à l'ecran
Sinon c'est normal que le resultat ne s'affiche pas.

Vérifie le résulat en passant par un recordset

Code :

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

1
2
3
4
5
6
7
8
 
Set rscompo = CurrentDb.OpenRecordset(SQL)
While Not rscompo.EOF
        msgbox rscompo(1)
       rscompo.MoveNext
Wend
 
Set rscompo = Nothing

[nadia123456]

merci !
il me demande de saisir les frais et pourtant c lui ki doit me donner la reponce !!
(il me demande les frais puis le Njr_sans_prise .... ) tu pe verifier dans ma base donnees elle est en piece jointe !

g pas etudie le VBA si tu pe me donner le code comple.... !!!!!

merci d'avance !!

[6ril25]

pour commencer, %, c'est * en access...

[nadia123456]

merci