pb sur un recordset Fermé

Question

Bonjour, 

J'ai un problème sur mon retour de valeur de mon controle.

voici le code:
Dim db As Database
Set db = CurrentDb
Dim rsx As Recordset
Dim vecart As Double
Dim vdebit As Double
Dim vcredit As Double

'TEST CONTROLE EQUILIBRE des MT

Set rsx = db.OpenRecordset("R_CONTROLE_SCD")
If rsx.EOF Then
Else
    rsx.MoveFirst
    vcredit = 0
    vdebit = 0
    Do While Not rsx.EOF
        If rsx(0) = "D" Then
            vdebit = rsx(1)
        Else
        If rsx(0) = "C" Then
            vcredit = rsx(1)
        End If
        End If
    rsx.MoveNext
    Loop
    
    vecart = vdebit - vcredit
    If vecart > 1 Then
        MsgBox "Ecritures désequilibrées ", vbCritical, "STOP"
        Exit Sub
    End If
End If

'FIN TEST CONTROLE EQUILIBRE DES MT


merci d'avance

ghuysmans99 · Answer

Version lisible : 
Dim rsx As Recordset 
Dim vecart As Double,vdebit As Double,vcredit As Double 
'TEST CONTROLE EQUILIBRE des MT 
Set rsx = CurrentDb.OpenRecordset("R_CONTROLE_SCD") 
If rsx.EOF = False Then 
 While Not rsx.EOF 
  If rsx(0) = "D" Then 
   vdebit = rsx(1) 
  ElseIf rsx(0) = "C" Then 
   vcredit = rsx(1) 
  End If 
  'vdebit et vcredit écrasés à chaque itération. 
  'est-ce ce que tu recherches ? j'en doute ... 
  rsx.MoveNext 
 Wend 
 vecart = vdebit - vcredit 
 If vecart > 1 Then 
  MsgBox "Ecritures désequilibrées", vbCritical, "STOP" 
  Exit Sub 
 End If 
End If
rsx.Close : Set rsx = Nothing
'FIN TEST CONTROLE EQUILIBRE DES MT

Pb sur un recordset

1 réponse

Discussions similaires