Bonjour
Je recherche a récupéré la valeur d'un champs sur le précédent enregistrement d'un sous formule mais chaque fois le message d'erreur m'indiquant qu'il n'ya pas d'enregistrement
voici le code
Merci de votre aide !!!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Private Sub montmand_Exit(Cancel As Integer) Dim k As DAO.Recordset Set k = Me.RecordsetClone c = d = 0 If Me.Recordset.RecordCount = 0 Then c = Forms!subvention!montsub - Me.montmand Else k.MovePrevious ' message erreur a ce niveau pas d enregistrement d = k.Fields("subrest").Value k.Close c = d - Me.montmand End If Me.subrest = c
Partager