Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Altersabhängiger Beitrag
zurück: Formular nach Änderung v. Tabellenfeld aktualisieren weiter: Datensatz nach Duplikation eindeutig im Formular aufrufen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
PC Dummy
Gast


Verfasst am:
16. Apr 2009, 11:27
Rufname:

Altersabhängiger Beitrag - Altersabhängiger Beitrag

Nach oben
       Version: Office XP (2002)

Hi,

ich ermittel in einem Formular aufgrund des Geburtstages eines Mitglieds das aktuelle Alter, nun möchte ich aufgrund des Alters den Beitrag automatisch eintragen lassen. Es gibt im Moment 3 Altersstufen <13 ; ab 13 - 17; ab 18.
Wie kann ich das realisieren?
Pls Help

PC Dummy
Gasth
Gast


Verfasst am:
16. Apr 2009, 12:20
Rufname:


AW: Altersabhängiger Beitrag - AW: Altersabhängiger Beitrag

Nach oben
       Version: Office XP (2002)

Hallo,

eine Möglichkeit wäre die Select Case Anweisung.
Als Beispiel
Code:
Public Function BeitragAnpassen(Alter As Integer, Beitrag As Double) As Double
'Argumente: Alter, Beitrag
'Ruckgabewert: berechneter Beitrag mit Anpassungsfaktor nach Alter
    Select Case Alter
      Case Is < 13
        BeitragAnpassen = Beitrag * 0.8 '(Anpassungsfaktor)
      Case 13 To 17
        BeitragAnpassen = Beitrag * 0.9 '(Anpassungsfaktor)
      Case Is > 18
        BeitragAnpassen = Beitrag * 1.1
    End Select
End Function
' der Aufruf der Funktion  mit Alter 17 u. 35€ Beitrag
    Rückgabe = BeitragAnpassen(17, 35)

Gruß kh
PC Dummy
Gast


Verfasst am:
18. Apr 2009, 19:36
Rufname:

AW: Altersabhängiger Beitrag - AW: Altersabhängiger Beitrag

Nach oben
       Version: Office XP (2002)

Hi ich habe den Code wie folgt erfasst
Code:
Private Sub Form_Current()
    If Me!fam = False Then
        If Me!eint >= "01.04.2009" Then
            Select Case Me!alt
              Case Is < 13
                Me!beitrag = "25,00"
              Case 13 To 17
                Me!beitrag = "32,00"
              Case Else
                Me!beitrag = "39,50"
            End Select
          Else
            Select Case Me!alt
              Case Is < 13
                Me!beitrag = "28,00"
              Case 13 To 17
                Me!beitrag = "35,00"
              Case Else
                Me!beitrag = "42,50"
            End Select
        End If
      Else
        If Me!eint >= "01.04.2009" Then
            Select Case Me!alt
              Case Is < 13
                Me!beitrag = "20,00"
              Case 13 To 17
                Me!beitrag = "28,00"
              Case Else
                Me!beitrag = "34,50"
            End Select
          Else
            Select Case Me!alt
              Case Is < 13
                Me!beitrag = "23,00"
              Case 13 To 17
                Me!beitrag = "30,00"
              Case Else
                Me!beitrag = "37,50"
            End Select
        End If
    End If
End Sub
Was ich noch nicht geschaft habe ist, dass das Ergebnissfeld "Beitrag", sich
OnTheFly ändert, also wenn ich eine Änderung vornehme soll sich der Beitrag direkt ändern.
Pls Help
PC Dummy
derArb
getting better


Verfasst am:
18. Apr 2009, 21:21
Rufname: derArb
Wohnort: Berlin

AW: Altersabhängiger Beitrag - AW: Altersabhängiger Beitrag

Nach oben
       Version: Office XP (2002)

Hallo,

dann evtl. auch noch in das Ereignis nach Aktualisierung des Formulars den Code setzen
Code:
Private Sub Form_AfterUpdate()

End Sub

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Willi Wipp
Moderator


Verfasst am:
19. Apr 2009, 17:14
Rufname:
Wohnort: Raum Wiesbaden

Re: Altersabhängiger Beitrag - Re: Altersabhängiger Beitrag

Nach oben
       Version: Office XP (2002)

Hi PC Dummy,

warum willst Du das denn statisch in einem Feld speichern?
Was passiert dann wenn die Person aelter wird?
in der Regel sollte die Funktion von Gasth in einer Abfrage fuer die Anzeige des aktuellen Beitrags voellig ausreichen.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Gast



Verfasst am:
23. Apr 2009, 11:48
Rufname:

AW: Altersabhängiger Beitrag - AW: Altersabhängiger Beitrag

Nach oben
       Version: Office XP (2002)

@Willi Wipp
Der Beitrag ist nicht statisch, da ja auch das Feld "Alter" immer aktuell berechnet wird und sich dadurch die "case"-Beziehung ändert und sich dann der Wert im Beitrag ändern soll, jedenfalls ist so der gedanke.

PC Dummy
KlausMz
Moderator Access


Verfasst am:
23. Apr 2009, 11:54
Rufname:
Wohnort: Irgendwo in der Pfalz


AW: Altersabhängiger Beitrag - AW: Altersabhängiger Beitrag

Nach oben
       Version: Office XP (2002)

Hallo,
Zitat:
Der Beitrag ist nicht statisch, da ja auch das Feld "Alter" immer aktuell berechnet wird und sich dadurch die "case"-Beziehung ändert und sich dann der Wert im Beitrag ändern soll, jedenfalls ist so der gedanke.
Genau deswegen soll ja nicht gespeichert werden (in der Tabelle) sondern immer aktuell berechnet und nur angezeigt.
_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Beitrag nach Alter ermitteln 9 Monkey123 185 30. Jun 2013, 12:33
Bitsqueezer Beitrag nach Alter ermitteln
Keine neuen Beiträge Access Formulare: Suche Filter Finde alten Beitrag nicht mehr?! Bitte hilfe 2 RebeccaLiDe 245 06. März 2011, 11:08
RebeccaLiDe Suche Filter Finde alten Beitrag nicht mehr?! Bitte hilfe
Keine neuen Beiträge Access Programmierung / VBA: Laufzeitfehler 3022 (unterer Beitrag) 3 LeiniMD 1035 13. Okt 2008, 13:37
Willi Wipp Laufzeitfehler 3022 (unterer Beitrag)
Keine neuen Beiträge Access Formulare: Nachfrage zu dem Beitrag Listenfeld sortieren 4 lotti 735 08. Sep 2006, 08:53
lotti Nachfrage zu dem Beitrag Listenfeld sortieren
Keine neuen Beiträge Access Formulare: Studiengang -> Student -> Beitrag = nicht bezahlt 8 Gast 471 17. Aug 2006, 14:59
Gast Studiengang -> Student -> Beitrag = nicht bezahlt
Keine neuen Beiträge Access Programmierung / VBA: Frage zu Beitrag Dynamisches schreiben.... 3 Gast 787 26. Okt 2005, 20:21
lothi Frage zu Beitrag Dynamisches schreiben....
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe