Pb sur un recordset
lolo95220
-
ghuysmans99 Messages postés 2496 Date d'inscription Statut Contributeur Dernière intervention -
ghuysmans99 Messages postés 2496 Date d'inscription Statut Contributeur Dernière intervention -
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
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
1 réponse
-
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
