merci, malheureusement je patine toujours, j'ai le message erreur d'exécution 3665, élément non trouvé dans cette collection
qdf.Parameters("[Num]") = mnum '<== si requête paramétrée
Merci pour votre aide.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
| Private Sub pec_Exit(Cancel As Integer)
'Déclarations obligatoires et préalables
' il est nécessaire de cocher la biblothèque dao
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim rs1 As DAO.Recordset
'Variables locales
Dim mmontant As Double
Dim Mesures As String
Dim mnum As Double
Dim sql As String
'référence à la requête
Set qdf = CurrentDb.QueryDefs("marequete")
'valorisation du pacage
mnum = Me!num
'valorisation du sql
'sql = "Select * from [marequete] where num = " & mnum
sql = "Select * from [marequete] "
Set db = Application.CurrentDb
qdf.Parameters("[Num]") = mnum '<== si requête paramétrée
Set rs1 = db.OpenRecordset(sql)
'mise a zéro du mmontant
mmontant = 0
DoCmd.Requery
'Logiquement Access doit commencer par traiter le 1er enregistrement
'Mais il est préférable de s'en assurer
rs1.MoveFirst
'Pour vérifier le fonctionnement de notre procédure
'Ici, débute la boucle
Do
'On injecte le contenu du champ dans une variable
mmontant = mmontant + rs1(4)
'On passe à l'enregistrement suivant
rs1.MoveNext
'Et ceci jusqu'à la fin du recordset
Loop Until rs1.EOF = True
' on ecrit le montant total ds la zone texte tot_montant
Me!TOT_MONTANT = mmontant
End Sub |
Partager