Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Summenbildung aus in Abhängigkeit von einem Kontrollkästchen
zurück: LACCDB Datei - Warum bleibt diese bestehen? weiter: Groesse der Texfelder aendern auf meinem Formular Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
ble
einsteiger


Verfasst am:
11. Jan 2012, 16:03
Rufname:
Wohnort: Zwiesel

Summenbildung aus in Abhängigkeit von einem Kontrollkästchen - Summenbildung aus in Abhängigkeit von einem Kontrollkästchen

Nach oben
       Version: Office 2003

Es besteht einen Formular mit mehreren gebundeenen Textfeldern, neben denen ich ein Kontrollkästchen einfügte.

Ich möchte in einem weiteren Feld die Summe aus mehreren Textfeldern angeben,
wenn das nebenstehende Kontrollkästen mit einem Haken versehen ist.

Der Code
Code:

Private Sub Befehl3_Click()
Dim TestStr As Long
       If Me![Option14]= true & _
        Me![Option16] = true & _
        Me![Option18] = true & _
        Me![Option20]= true & _
        Me![Option22] = true  & _
        Me![Option24] = true &  _
        Me![Option28]= true Then
        TestStr = CLng(Me![eins]) + _
            CLng(Me![zwei]) + _
            CLng(Me![drei]) + _
            CLng(Me![mehr]) + _
            CLng(Me![frühstück]) + _
            CLng(Me![mittag]) + _
            CLng(Me![abend])
        Me![Liste26] = TestStr
 End If

End Sub


ist falsch. Der Teil
If Me![Option14]= true & _
Me![Option16] = true & _
Me![Option18] = true & _
Me![Option20]= true & _
Me![Option22] = true & _
Me![Option24] = true & _
Me![Option28]= true Then
wird in roter Farbe dargestellt.
MiLie
kein Office- VBA- Programmierer


Verfasst am:
11. Jan 2012, 19:59
Rufname: Micha
Wohnort: Chemnitz


AW: Summenbildung aus in Abhängigkeit von einem Kontrollkäst - AW: Summenbildung aus in Abhängigkeit von einem Kontrollkäst

Nach oben
       Version: Office 2003

Hallo,

ungeachtet dass Bedingungen nicht mit "&" sondern mit dem Wort "AND" oder "OR" verbunden werden, fragt deine IF lediglich ab ob alle Häckchen gesetzt sind. Du müsstest jede mögliche Konstellation abfragen, bzw. ganz anders herangehen.

Warum wandelst du den Typ jedes einzelnen Feldes um?
Naja deine Steuerelementnamen sind ja besonders raffiniert ausgewählt, mal schauen wann du den Überblick verlierst. Wink

teste mal
Code:
TestStr = (abs(nz(Me.Option14,0)) * CLng(Me.eins)) _
        + (abs(nz(Me.Option16,0)) * CLng(Me.zwei)) _
        + (abs(nz(Me.Option18,0)) * CLng(Me.drei)) _
        + (abs(nz(Me.Option20,0)) * CLng(Me.mehr)) _     
        + (abs(nz(Me.Option22,0)) * CLng(Me.frühstück)) _
        + (abs(nz(Me.Option24,0)) * CLng(Me.mittag)) _
        + (abs(nz(Me.Option28,0)) * CLng(Me.abend))


Übrigens geht das auch mit dem Steuerelementinhalt deines "Summenfeldes", dann benötigst du kein VBA, kein Befehl3-Button und die Summe aktualisiert sich selbst, sobald du einen Wert oder ein kästchen änderst, die Formel ist die gleiche nur ohne Me.

_________________
Viele Grüße

Micha

Schreibfehler die Ihr findet, könnt Ihr behalten
ble
einsteiger


Verfasst am:
11. Jan 2012, 22:24
Rufname:
Wohnort: Zwiesel

AW: Summenbildung aus in Abhängigkeit von einem Kontrollkäst - AW: Summenbildung aus in Abhängigkeit von einem Kontrollkäst

Nach oben
       Version: Office 2003

Code passt,
werde meine Kästchen umtaufen.
Vielen Dank für die Tipps.
ble
einsteiger


Verfasst am:
11. Jan 2012, 22:48
Rufname:
Wohnort: Zwiesel

AW: Summenbildung aus in Abhängigkeit von einem Kontrollkäst - AW: Summenbildung aus in Abhängigkeit von einem Kontrollkäst

Nach oben
       Version: Office 2003

Obwohl das Ergebnisfeld auf Währung und 2 Dezimalstellen eingestellt ist, wird auf ganze Zahlen gerundet, 2,80 + 2,80 ergibt 6. Kannst Du ir noch einmal helfen?
Nouba
nicht ganz unwissend :)


Verfasst am:
11. Jan 2012, 23:00
Rufname:
Wohnort: Berlin

AW: Summenbildung aus in Abhängigkeit von einem Kontrollkäst - AW: Summenbildung aus in Abhängigkeit von einem Kontrollkäst

Nach oben
       Version: Office 2003

Hallo,

schon mal nachgedacht oder die OL-Hilfe befragt, was CLng bewirkt.

_________________
mit freundlichen Grüssen Nouba

Wenn beim Lesen eines Beitrags der Eindruck entsteht, dass sich der Fragesteller wenig Mühe gegeben hat, so erhöht das nicht unbedingt die Motivation, eine Antwort zu verfassen.
ble
einsteiger


Verfasst am:
11. Jan 2012, 23:25
Rufname:
Wohnort: Zwiesel

AW: Summenbildung aus in Abhängigkeit von einem Kontrollkäst - AW: Summenbildung aus in Abhängigkeit von einem Kontrollkäst

Nach oben
       Version: Office 2003

Sad
weder noch
derArb
getting better


Verfasst am:
11. Jan 2012, 23:33
Rufname: derArb
Wohnort: Berlin

AW: Summenbildung aus in Abhängigkeit von einem Kontrollkäst - AW: Summenbildung aus in Abhängigkeit von einem Kontrollkäst

Nach oben
       Version: Office 2003

Hallo,
dann ist es notwendig, den Text unter den freundlichen Grüssen von Nouba zu lesen.

_________________
MfG
derArb

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


Verfasst am:
11. Jan 2012, 23:45
Rufname:
Wohnort: Zwiesel


AW: Summenbildung aus in Abhängigkeit von einem Kontrollkäst - AW: Summenbildung aus in Abhängigkeit von einem Kontrollkäst

Nach oben
       Version: Office 2003

Entschuldigt bitte, das war recht unüberlegt; wer es genau haben will;

Code:
Dim TestStr As Currency
TestStr = (Abs(Nz(Me.Option14, 0)) * (Me.eins)) _
        + (Abs(Nz(Me.Option16, 0)) * (Me.zwei)) _
        + (Abs(Nz(Me.Option18, 0)) * (Me.drei)) _
        + (Abs(Nz(Me.Option20, 0)) * (Me.mehr)) _
        + (Abs(Nz(Me.Option22, 0)) * (Me.frühstück)) _
        + (Abs(Nz(Me.Option24, 0)) * (Me.mittag)) _
        + (Abs(Nz(Me.Option28, 0)) * (Me.abend))
        Me![Liste26] = TestStr


Dabei empfiehlt es sich Bezeichnungen zu wählen, die gut nachvollziehbar sind.
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: Darstellungsart "Kontrollkästchen" per Code setzen 3 fragerer 285 13. März 2009, 16:32
Gast Darstellungsart "Kontrollkästchen" per Code setzen
Keine neuen Beiträge Access Tabellen & Abfragen: Versandtermin in Abhängigkeit der Transportzeit berechnen 15 Thorsten_vv 3523 01. Feb 2009, 20:53
Willi Wipp Versandtermin in Abhängigkeit der Transportzeit berechnen
Keine neuen Beiträge Access Tabellen & Abfragen: Summenbildung zeilenweise kumulativ 7 Ingolf_P 1212 16. Jan 2009, 08:07
Willi Wipp Summenbildung zeilenweise kumulativ
Keine neuen Beiträge Access Tabellen & Abfragen: Summenbildung mit Felddern ohne Inhalt 5 jomei 373 01. Okt 2008, 16:24
Willi Wipp Summenbildung mit Felddern ohne Inhalt
Keine neuen Beiträge Access Tabellen & Abfragen: Datenanzeige in Abhängigkeit vom Inhalt eines Feldes 1 Sophia 378 08. Jun 2008, 17:15
rita2008 Datenanzeige in Abhängigkeit vom Inhalt eines Feldes
Keine neuen Beiträge Access Tabellen & Abfragen: Case, IIF, Werte in Abhängigkeit von Bedingungen setzen 18 schikoli 2834 16. Jan 2008, 16:42
Gek Case, IIF, Werte in Abhängigkeit von Bedingungen setzen
Keine neuen Beiträge Access Tabellen & Abfragen: Summieren in Abhängigkeit eines anderen Feldes 6 Norbert K. 583 12. Dez 2007, 17:08
Willi Wipp Summieren in Abhängigkeit eines anderen Feldes
Keine neuen Beiträge Access Tabellen & Abfragen: Mit Kontrollkästchen die Farbe eines Feldes ändern 8 MarcoX 996 24. Sep 2007, 20:35
MarcoX Mit Kontrollkästchen die Farbe eines Feldes ändern
Keine neuen Beiträge Access Tabellen & Abfragen: if-Bedingung bei aktiven Kontrollkästchen 9 Gast 775 10. Sep 2007, 15:39
Shai if-Bedingung bei aktiven Kontrollkästchen
Keine neuen Beiträge Access Tabellen & Abfragen: Bedingung mit mehreren Kontrollkästchen 2 sambagold 896 03. Jan 2007, 16:49
sambagold Bedingung mit mehreren Kontrollkästchen
Keine neuen Beiträge Access Tabellen & Abfragen: Kontrollkästchen verbinden? 12 mbbir1 1251 17. Sep 2006, 16:42
derArb Kontrollkästchen verbinden?
Keine neuen Beiträge Access Tabellen & Abfragen: 2x ja/nein Kontrollkästchen - nur eine eingabe erlauben 1 MacGyverDTH 1313 29. März 2006, 16:25
kia 2x ja/nein Kontrollkästchen - nur eine eingabe erlauben
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web