Office: (Office 2016) Aktualisierungsabfrage Case, Switch o.ä.

Hallo Zusammen
Ich brauche einmal Hilfe.
Ich habe folgendes Makro als [Ereignisprozedur] nach Verlassen eines Formularfeldes erstellt. Hier funktieniert es. Jetzt möchte ich dazu eine Aktualisierungsabfrage erstellen, damit ich nicht jedes Jahr alle Datensätze durchforsten muss um die Werte einzel über obige [Ereignisprozedur] zu ändern.


If Wertänderung = 1 Then
Zeitdifferenz = (Int((Date - Kaufdatum) / 365))
Zeitwert = Kaufpreis * (1.015) ^ Zeitdifferenz
ElseIf Wertänderung = 2 Then
Zeitdifferenz = (Int((Date - Kaufdatum) / 365))
Zeitwert = Kaufpreis - ((Kaufpreis / 10) * Zeitdifferenz)
ElseIf Wertänderung = 3 Then
Zeitdifferenz = (Int((Date - Kaufdatum) / 365))
Zeitwert = Kaufpreis - ((Kaufpreis / 5) * Zeitdifferenz)

ElseIf Wertänderung = -1 Then
Zeitdifferenz = (Int((Date - Kaufdatum) / 365))
Zeitwert = Kaufpreis
Else: Zeitwert = 0
End If

If Zeitwert < 0 Then
Zeitwert = 0
End If
End Sub


Vielen Dank im Voraus

:)

 

Hallo und willkommen im Forum.

Deine Beispiele sind nicht ausgewogen geschildert.

Die Zeitdifferenz verändert sich nie, wieso wird sie dann in die Plausibilitätsprüfung einbezogen?

Der Zeitwert könnte (als Formel und dann per Eval auswertbar) zusammen mit der Wertänderung in einer Tabelle dargestellt werden.

Der Ausdruck = (Int((Date - Kaufdatum) / 365)) deutet auf eine Schätzung hin. Ist das ausreichend?

PS: IF Then, Case, Switch & Co. erfordern Änderungen im Code, wenn Änderungen/Ergänzungen am Sachverhalt anliegen. Eine Tabelle dagegen ist über ein Formular bequem steuerbar.

 

Die Zeitdifferenz ändert sich, da sie abhängig ist von einem Kaufdatum. Als Zeitdifferenz benötige ich die Anzahl der Jahre bis Heute um dann die Wertänderung des gekauften Objektes zu berechnen (Abschreibung und ähnliches, oder auch eine Wertsteigerung. Dieses ergibt sich aus dem Feld Wertänderung, je nach dem welche Zahl eingegeben wurden.
Vielen Dank für die schnelle Antwort.

 

Natürlich, aber nicht abhängig von der Wertänderung, sondern vom aktuellen Datum und dem Kaufdatum. Insofern ist sie aus der Plausibilitätsprüfung auszuschließen.

Mein Hauptanliegen bestand allerdings darin, Dir meine letzten 3 Sätze zu vermitteln. Dazu hast Du Dich noch nicht geäußert.

 

Moin,
alternativ könnte man eine Public Function in einem allgemeinen Modul aus der Sub erstellen und diese in der Abfrage aufrufen, etwa so:
Code:

maike

 

Geht es nicht direkt in der Abfrage. Die Tabelle für die Abfrage heißt: Inventar

 

Du brauchst doch in das Feld der Abfrage nur reinschreiben:
Code:

Ansonsten kannst du natürlich auch mit der Switch-Funktion einen Ausdruck erzeugen, der aber bandwurmartig lang sein wird, keine Ahnung, ob das dann noch umgesetzt werden kann:
Code:

oder du folgst Maxels Vorschlag und legst eine Tabelle an.
maike

 

Ich bin autoditakt.
Deshalb meine Frage:
Was muss ich in der Abfrage schreiben, damit ich die Public Function aufrufe?
Im Voraus Danke für die Antwort
mfg
Heiko

 

Googeln kannst du aber schon, oder?
Es gibt ja kein Access Thema das nicht schon 100x behandelt wurde.

Hier ein Link zum Thema:

https://codekabinett.com/rdumps.php?...-feld-funktion