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.

[hyperion13]

Que d'ouvrir des post tout azimut, vous devriez traiter vos problèmes les uns après les autres.
Votre problème de numérotation personnalisée n'est toujours pas traité et vous ouvrez un post pour le même type de problématique.
De vous à moi, votre liste de modalités n'a pas lieu d'être puisque normalement votre numérotation personnalisée prendrait le pas dessus.
A force de faire des redondances, ça risque forcément de coincer quelque part.
fin du ban.

[morobaboumar]

Bonsoir hyperion13 !
Désolé. toutes mes excuses pour mon impatience.
Cordialement.

[morobaboumar]

Discussion résolue https://www.developpez.net/forums/d1.../#post10651593