bonjour !
s'il vous plait ou est l'erreur ici ?


Option Compare Database

Private Sub Commande12_Click()

Dim sql As String
Dim rs As Recordset

sql = "SELECT [LAST [deplacement].dure_dep,[deplacement].Nbj_sans_prise,[deplacement].Nbj_avec_prise] FROM deplacement, nomage, classe, salaries where [prise_encharge].N_prise=[deplacement].N_prise and [deplacement].N_dep=[salar_dep].N_dep and [salar_dep].matricul=[salarie].matricul and [salarie].classe=[classe hierarchique].classe and [salarie].nomage=[nomage].nomage; "
Set rs = CurrentDb.OpenRecordset(sql)

rs.MoveLast
End Sub


et merci