Discussion :

[nadia123456]

Bonjour,
comment on peut joindre deux requetes select et update sous vba access ?
ou est l'erreur ici ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database 
 
Private Sub Commande12_Click() 
Dim sql As String 
Dim rs As Recordset 
sql = " SELECT salaries.matricule, classe.classe, nomage.nomage, classe.inden_j_classe, deplacement.Njr_sans_prise, deplacement.Njr_avec_prise, nomage.inden_j_nom, deplacement.frais_dep FROM deplacement, sal_dep, salaries, nomage, classe WHERE deplacement.N_dep = ( select MAX (deplacement.N_dep) from deplacement) and deplacement.N_dep=sal_dep.N_dep and sal_dep.matricule=salaries.matricule and salaries.nomage = nomage.nomage and salaries.classe = classe.classe" 
Set rs = CurrentDb.OpenRecordset(sql) 
CurrentDb.Execute ("UPDATE deplacement SET deplacement.frais_dep = IIf([nomage].nomage like " * ",((([deplacement].dure_dep-[deplacement].Njr_sans_prise)*[nomage].inden_j_nomage)+((([deplacement].dure_dep-[deplacement].Njr_avec_prise)*[nomage].inden_j_nomage)/2)),((([deplacement].dure_dep-[deplacement].Njr_sans_prise)*[classe].inden_j_classe)+((([deplacement].dure_dep-[deplacement].Njr_avec_prise)*[nomage].inden_j_nomage)/2)))WHERE frais = 0 and (deplacement.N_dep)=(select MAX (deplacement.N_dep) from deplacement) and (deplacement.N_dep)=[sal_dep].[N_dep] AND ((sal_dep.matricule)=[salaries].[matricule]) AND ((salaries.nomage)=[nomage].[nomage]) AND ((salaries.classe)=[classe].[classe])") 
 
rs.MoveLast 
End Sub 
end sub

merci d'avance !!

[Invité]

Bonjour

Peux-tu détailler ce que tu veux faire exactement.

Starec