[AC-2007] After Insert qui fonctionne mal une fois sur deux [Résolu]

[DamKre]

Bonjour,

J'ai une db qui reprend des comptes bancaires.

• J'ai un formulaire principal contenant les comptes ;
• J'ai un sous-formulaire contenant la liste des opérations de ce compte ( +1000€, -250€, etc ) ;
• Chaque opération est numérotée ( 1,2,3,... ) ;
• Après chaque insertion d'une opération, je souhaite (évidemment) que le numéro soit le numéro précédent + 1, et que le solde soit le solde précédent + l'opération courante.

Dans le principe, tout fonctionne pas trop mal, à ceci près :

• La première insertion d'opération fonctionne à merveille : après l'opération 2 se trouve l'opération 3 et le solde est correct ;
• Dès la seconde insertion, cela foire : au lieu d'avoir 4, puis 5, puis 6, ... comme numéro, je reste à 3 et le solde est incorrect. Access reste toujours sur l'enregistrement 2 et ne reprend pas le précédent.

Le code en lui-même fonctionne bien, puisque le premier ajout est correct. Par contre, ce sont les suivants qui "foirent".

Voici le code :

Code :

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
Private Sub Form_AfterInsert()
On Error GoTo Erreurs
 
Dim oRst As DAO.Recordset
Set oRst = CurrentDb.OpenRecordset("SELECT * FROM T_Operations WHERE Id_Cmt=" & Me.Id_Cmt.Value, dbOpenDynaset)
oRst.MoveLast 'Ouvre le dernier enregistrement
oRst.MovePrevious 'Aller ensuite à l'enregistrement précédent, puisque le dernier = l'enregistrement en cours et donc ne contient pas encore le solde et le numéro
 
Me.Ope_Solde.Value = oRst.Fields("Ope_Solde").Value + Me.Ope_Oper.Value
 
Me.Ope_Num.Value = oRst.Fields("Ope_Num").Value + 1
 
oRst.Close
Set oRst = Nothing
 
DoCmd.SetWarnings False 'Désactive les messages de confirmation
DoCmd.RunSQL ("UPDATE T_Comptes SET T_Comptes.Cmt_Somme = " & Me.Ope_Solde.Value & " WHERE (((T_Comptes.Id_Cmt)=" & Me.Id_Cmt.Value & "));")
DoCmd.SetWarnings True 'Réactive les messages de confirmation
 
Exit Sub
 
Erreurs:
Select Case err.Number
    Case 3021
        Me.Ope_Num.Value = 1
        Me.Ope_Solde.Value = Me.Ope_Oper.Value
        DoCmd.SetWarnings False 'Désactive les messages de confirmation
        DoCmd.RunSQL ("UPDATE T_Comptes SET T_Comptes.Cmt_Somme = " & Me.Ope_Solde.Value & " WHERE (((T_Comptes.Id_Cmt)=" & Me.Id_Cmt.Value & "));")
        DoCmd.SetWarnings True 'Réactive les messages de confirmation
    Case Else
        MsgBox err.Description, vbCritical
End Select

Si vous aviez une piste pour résoudre ce souci, je suis évidemment preneur !
Merci de votre aide !

[loufab]

Bonjour,

Chercher le dernier N° n'a pas de sens dans ton cas. Il faut plutot chercher le plus haut.

Code :

1
2
3
4
5
dim rst as dao.recordset
set rst = currentdb.openrecordset("select TOP 1 Id_Ope, solde  FROM T_Operations WHERE Id_Cmt=" & Me.Id_Cmt.Value & " ORDER BY Id_Ope DESC;"
NewNumeroOpe = rst.fields(0) + 1
NewSolde =  rst.fields(1) + me.montantOperation
...

Cordialement,

[DamKre]

Envoyé par loufab

Chercher le dernier N° n'a pas de sens dans ton cas. Il faut plutot chercher le plus haut.

J'avoue que je ne comprends pas le pourquoi...

Je teste tout cela ; merci de ta réponse.

[loufab]

Bonjour,

Parceque le dernier est subjectif dans une base de données.

Autant chercher la véritable information. Tu veux le plus grand numéro, que tu interprètes comme le dernier, alors cherche le plus grand et non le dernier.

Cordialement,

[DamKre]

merci pour tout