[AC-2007] Suppression record dans sous-formulaire [Résolu]

[fclus]

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 :

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]

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 :

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

Bonne journée

Pierre

[fbtsra]

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]

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 :

me.ctltotal.requery

[fbtsra]

Je ne vois tjrs rien ... quel est le message d'erreur ?

Bcdt

[fclus]

Il n'y a pas de message d'erreur
Mon contrôle CtlTotal indique #Erreur

[fbtsra]

Vous avez bien :

source du contrôle CtlTotal ayant comme valeur

Code :

=pfcttotal([edref])

?

[fclus]

oui, c'est bien ça

[User]

Salut,

Tu as essayé ta fonction dans une requête ?

A+

[fclus]

Ma fonction marche dans tous les cas sauf si je supprime un enregistrement
Lorsque Access supprime un record dans une table, il remplace les données par du blanc (pour schématiser) mais le record est toujours présent
La fonction ne doit pas apprécier ce record à blanc
Il faudrait pouvoir réorganiser la table pour supprimer physiquement ce record
Mais de quelle manière ?

[fbtsra]

Bonjour,

J'ai testé la fonction qui fonctionne parfaitement sous A2000. (A noter que la fonction de domaine Dsum permet d'obtenir le même résultat, mais ça n'explique pas votre problème ...)

Testez la fonction comme l'indique User ou avec un :

Code :

MsgBox pFctTotal([edref])

Essayez aussi source du contrôle CtlTotal ayant comme valeur :

Code :

[edref]

Bcdt

[fbtsra]

Nos messages se sont croisés ...

Sur mon test, je n'obtiens CtlTotal indique #Erreur que si je me place sur un nouvel enregistrement (logique). N'est ce pas le cas lorsque vous supprimez un enregistrement : n'avez vous pas du code qui place le curseur sur un nouvel enregistrement ?

Bcdt

[fclus]

Oui, c'est bien ça ! Le curseur se positionne sur un nouvel enregistrement et la fonction me renvoie donc une erreur

En fait, le but final est de mettre à jour le champ <eeprix> dans le formulaire père. J'utilise donc un contrôle dans mon sous-formulaire

Code :

1
2
3
4
5
6
7
8
Me.edprixnet = Me.edprixbrut * (1 - Me.edremise)
Me.eddatmaj = Now
Forms![FrmGrauxEnt]![eedatmaj] = Now
Forms![FrmGrauxEnt]![eedatmaj].Requery
DoCmd.RunCommand acCmdSaveRecord
Me.CtlTotal.Requery
Forms![FrmGrauxEnt]![eeprix] = Round(Me.CtlTotal, 2)
Forms![FrmGrauxEnt]![eeprix].Requery

Comment mettre à jour ce prix sur suppression d'un enregistrement de mon sous-formulaire ?

[fbtsra]

Rafraichissez ou recalculez le contrôle du formulaire père à partir de l'événement après suppression du sous-formulaire.

PS : à la réflexion je suis surpris par le raisonnement car selon l'enregistrement du sous formulaire sur lequel se trouve votre curseur, la valeur de votre fonction change, donc celle de votre champ du formulaire père aussi ... ou je n'ai pas tout suivi ...

Bcdt

[fclus]

Voilà,
Je me positionne sur l'enregistrement précédent et je relance le calcul

Code :

1
2
3
4
Me.Form.Recordset.MovePrevious
Me.CtlTotal.Requery
[Forms]![FrmGrauxEnt]![eeprix] = Round(Me.CtlTotal, 2)
[Forms]![FrmGrauxEnt]![eeprix].Requery

Merci pour votre aide