Suppression record dans sous-formulaire

**fclus** · 19/10/2011, 09h13

Bonjour,

Dans un sous-formulaire, je fais appel à une fonction pour calculer le total de toutes les lignes
Quand je supprime une ligne de mon sous-formulaire, la fonction, que j'appelle sur l'événement après suppression de mon sous-formulaire me renvoie une erreur
Voici la fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function pFctTotal(Ref As String) As Single
    Dim dbmadb As DAO.Database
    Set dbmadb = CurrentDb
    Dim RecGraux As DAO.Recordset
    Dim StrSql As String
    StrSql = "SELECT TblGrauxDet.edref, Sum(TblGrauxDet.edprixnet) AS SommeDeedprixnet FROM TblGrauxDet GROUP BY TblGrauxDet.edref HAVING TblGrauxDet.edref=" & Chr(34) & Ref & Chr(34)
    Set RecGraux = dbmadb.OpenRecordset(StrSql)
    'MsgBox StrSql
     If RecGraux.EOF Then
        pFctTotal = 0
     Else
        pFctTotal = RecGraux!sommedeedprixnet
    End If
    RecGraux.Close
    Set RecGraux = Nothing
    Set dbmadb = Nothing
End Function

Merci pour votre aide

**pier.antoine** · 19/10/2011, 10h34

Bonjour

Ce n'est sans doute pas cela, mais essayez en ajoutant le type de recordset qui est ouvert (c'est facultatif, mais sait on jamais)

Code :

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

Set RecGraux = dbmadb.OpenRecordset(StrSql, dbOpendynaset))

Bonne journée

Pierre

**fbtsra** · 19/10/2011, 10h42

Bonjour,

Je ne vois pas d'erreur si les champs edref et edprixnet sont bien respectivement en texte et numérique.

Quel est le message d'erreur et comment appelez vous la fonction ?

Bcdt

**fclus** · 19/10/2011, 11h46

dbopendynaset ne corrige pas le problème

edref est bien alpha
edprixnet est bien numérique

la fonction est appelée via un contrôle CtlTotal dans mon sous-formulaire

source du contrôle = pfcttotal([edref])

événement après suppression de mon sous-formulaire

Code :

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