VBA-Benachrichtigung, wenn das Ergebnis anders ist von 0

Question

Ich habe diesen Code:

DM.OnUpdate="CalculDiferenta" 
DM.OnInsert="CalculDiferenta" 

Sub CalculDiferenta 

If Dsrid.Value=50000 Then 

stl.first 
Do While Not Stl.Eof 
Diferenta.Value=Cantv.Value-Cantc.Value 


Stl.Next 
Loop 

end if 
End Sub 

Sie den Unterschied zwischen 2 Anzahl Spalten in einem Dokument berechnet. Jetzt möchte ich gewarnt werden, wenn es einen Unterschied gibt (Cantv.Value-Cantc.Value <> 0). Der Code sollte jede Zeile des Dokuments auf Unterschiede überprüfen, und wenn er den ersten gefunden hat, stoppe und zeige msgbox.

Ich habe das getan, aber ich bin mir nicht sicher, ob es in Ordnung ist. Es zeigt ein Pop-Up, nur wenn die letzte Zeile einen Unterschied hat.

DM.OnUpdate="VerificareDiferente" 
DM.OnInsert="VerificareDiferente" 

Public Sub VerificareDiferente 

If Dsrid.value=50000 and Cantv.Value-Cantc.Value <> 0 then 

stl.first 
      Do While Not Stl.Eof 
     MsgBox "Exista diferente intre cantitate comandata si cantitate verificata.", vbInformation, "Atentie !!!" 
      Stl.Next 
      Loop 
     end if 
End Sub 

Können Sie mir helfen Jungs? Vielen Dank.

Answer 1

Sie Ihre If Aussage nur fehl am Platz, sollte es innerhalb der Schleife sein:

DM.OnUpdate = "VerificareDiferente" 
DM.OnInsert = "VerificareDiferente" 

Public Sub VerificareDiferente() 
    Stl.first 
    Do While Not Stl.EOF 
     If Dsrid.Value = 50000 And Cantv.Value - Cantc.Value <> 0 Then 
      MsgBox "Exista diferente intre cantitate comandata si cantitate verificata.", _ 
       vbInformation, "Atentie !!!" 
     Else 
     End If 
     Stl.Next 
    Loop 
End Sub