Discussion :

[nadia123456]

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

[6ril25]

Salut,

t'es sure de ton

Code :

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

SELECT [LAST [deplacement].dure_dep,[deplacement].Nbj_sans_prise,[deplacement].Nbj_avec_prise]

J'aurais plutôt fait quelque chose comme:

Code :

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

SELECT LAST([deplacement].dure_dep), [deplacement].Nbj_sans_prise,[deplacement].Nbj_avec_prise]

[nadia123456]

merci pour ta reponse
mais je qu'il se posistionne sur les dernier dure_dep , Njr_sans_prise et Njr_avec prise

[6ril25]

désolé, mais faudra que tu t'y prennes autrement.
Vas voir ici pour t'aider:
http://access.developpez.com/sql/#L1.2

[nadia123456]

maintenant j'ai un autre probleme
lors ce que j'execute ce code il m'affiche une petite page ou il me demande de rentrer le nom de la macros


Private Sub Commande12_Click()

Dim sql As String
Dim rs As Recordset

sql = ("SELECT [LAST ([deplacement].dure_dep)] FROM deplacement, nomage, classe, salaries where [deplacement].N_dep=[salar_dep].N_dep and [salar_dep].matricul=[salaries].matricul and [salaries].classe=[classe].classe and [salaries].nomage=[nomage].nomage")
Set rs = CurrentDb.OpenRecordset(sql)
End Sub