Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

SevDataGrid2 AfterCellEdit
Autor: AndiSW
Datum: 10.12.04 16:36
Hallo Leute, SevDataGrid 2 unter Access XP/DAO. Folgende Wunschvorstellung macht Probleme: Ich zeige in Spalte "Rabatt" einen Kundenrabatt in % an und in Spalte "RabattBetrag" den Kundenrabatt als Betrag in Euro . Der User soll die Möglichkeit haben entweder hier oder dort seinen Eintrag zu setzen, die andere Spalte wird dann jeweíls automatisch umgerechnet. Damit dieser Automatismus sowohl bei Änderung von DS als auch beim Hinzufügen von neuen DS klappt, muss ich zwei Grid-Ereignisse nutzen. Einmal AfterCellEdit (nur für Modus AddNew) und einmal AfterUpdate (bei Änderungen) verkürzter Code wie folgt: Private Sub Grid1_AfterCellEdit(nRow As Long, nCol As Long, ByVal sText As String) With Grid1 If .IsEditMode = 2 Then ' MODE_ADDNEW If nCol = .GetCol("RabattProzent") Then 'falls Änderung bei Rabatt in % ' Rabatt Betrag ausrechnen und eintragen .CellNew("RabattBetrag") = CStr((CCur(sText) / 100) * Me!ArtikelPreis) End If If nCol = .GetCol("RabattBetrag") Then 'falls Änderung bei Rabatt in EURO ' Rabatt in % ausrechnen und eintragen .CellNew("RabattProzent") = CStr((CCur(sText) * 100) / Me!ArtikelPreis) End If End If End With End Sub Private Sub Grid1_AfterUpdate(ByVal nRow As Long, ByVal nCol As Long, _ ByVal sText As String) With Grid1 If nCol = Grid1.GetCol("RabattProzent") Then 'falls Änderung bei Rabatt in % ' Rabatt Betrag ausrechnen und eintragen .Recordset.Edit .Recordset.Fields("RabattBetrag") = (CCur(sText) / 100) * Me!Artikelpreis Recordset.Update End If If nCol = Grid1.GetCol("RabattBetrag") Then 'falls Änderung bei RabattBetrag ' Rabatt in % ausrechnen und eintragen .Recordset.Edit .Recordset.Fields("RabattProzent") = (CCur(sText) * 100) / (Me!ArtikelPreis) 'Update .Recordset.Update End If End With End Sub Klappt soweit ganz gut. Allerdings wird durch das AfterCellEdit bei RabattProzent nicht nur der Wert in Spalte RabattBetrag gesetzt, sondern dort ebenfalls wieder das AfterCellEdit-Ereignis ausgelöst. Das passiert GottseiDank nur 1x und nicht als Endlosschleife, führt allerdings auch hier schon zu hässlichen Rundungsfehlern. Das heißt, der User gibt z.B. 15,0% Rabatt ein, der Rabattbetrag in EURO wird berechnet, ergibt ne krumme Zahl z.B. 4,46 und plötzlich steht bei Rabatt 15,1%, weil der Wert durch das zweite AfterCellEdit in Spalte RabattBetrag neu berechnet wurde. Beim AfterUpdate klappt alles wie gewünscht, dort wird die automatische Berechnung ja nur 1x gestartet. Schöner wäre natürlich, wenn ich insgesamt nur ein Ereignis dazu bräuchte. Ich hoffe, ich habe mein Problem verständlich geschildert. Wer weiss eine bessere Lösung? Andreas

SevDataGrid2 AfterCellEdit

847

AndiSW

10.12.04 16:36

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen