Microsoft 365 ADODB VBA Recordset : récupérer l'observation la plus récente

[VBA_dev_Anne_Marie]

Bonjour,

Je souhaite récupérer le montant avec la date la plus récente (si on a plusieurs dates), les conditions sont dans "having" mais mon code ne marche pas :

Public Sub GET_DERN_VERS(NO_POLICE As String)

     Dim RECSET As New ADODB.Recordset
     RECSET.Open "select abs(ev.mt_brut_cie) as Dernier_versement from db_evenement ev, dp_classe_evt classe" & _
                "where ev.no_police = '" & NO_POLICE & "' and classe.b_ea =1  and classe.b_rachat = 1  and ev.is_classe_evt=classe.is_classe_evt" & _
                "having distinct(count(ev.d_effet))<> 1 and max(datepart(ev.d_effet))=datepart(ev.d_effet)", cnn_Pegase, adOpenDynamic, adLockBatchOptimistic

Merci beaucoup pour votre aide !

 

[chris]

Bonjour

Avant de reposter, prends au moins connaissance des réponses ...

Microsoft 365 - First and Last en ADODB VBA

Bonjour, Je suis en train de coder en sql ADODB VBA. Je cherche à récupérer l'observation la plus récente (triée par date). Pourriez-vous me donner l'exemple de la fonction First/Last en ADODB VBA ? Merci beaucoup !

www.excel-downloads.com