Discussion :

[morobaboumar]

Salut membres du forum !
Comment ecrire une fonction paramêtrée ramenant successivement les données d'un champ numérique d'une table dans une autre table en vba access 2013 ?
Voici la 1ere table:
et la 2e table:.
Objetif: - Ramener successivement du 1er versement au dernier dans le champ modalité de la table payement.
Je signale que les 2 tables sont en relations.


Code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function DernierModaliteParent(matrPa As Long, AnneScol As String) As Long
Dim bd As Database
Dim R As Recordset
Dim SQL As String
Set bd = CurrentDb
SQL = "select * from PAYEMENTS  where mlepa = " & matrPa & " and anneescol = '" & AnneScol & " ' order by date desc ;"
Set R = bd.OpenRecordset(SQL)
With R
    If Not .EOF Then
    DernierModaliteParent = .Fields("modalité")
    End If
End With
End Function

Difficultés: Le code ci dessus ramène des doublons à partir des 15e et 20e versement.
Question: Comment résoudre ce problème ?

Voici où je l'appelle: à l'ouverture de la bôîte de dialogue. Voir https://www.developpez.net/forums/d1...personnalisee/

Crdialement.