Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Mittelwert und Ampelschaltung
zurück: Haupt-unFormular weiter: Suchabfrage 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
Nicole1878
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Feb 2005, 15:16
Rufname:
Wohnort: Nürnberg

Mittelwert und Ampelschaltung - Mittelwert und Ampelschaltung

Nach oben
       

Hallo,

ich bin noch absoluter Neuling auf dem Gebiet der VBA Programmierung und brauche deshalb Hilfe. Embarassed

Ich habe ein Formular mit 5 Frage Blöcken, jeder Frageblock hat 3 – 5 verschiedene Fragen. Die einzelnen Blöcke sind in Tabellen abgespeichert. (z.B. TAB_FR1, Frage1_1, Frage1_2, und TAB_FR2, Frage2_1, Frage2_2 usw). Im Formular kann man die Fragen über eine Optionsgruppe mit Low, Medium und High (RisikoWert) beantworten. Hinter den Optionsfeldern sind die Werte 1,2 und 3 hinterlegt, der Wert wird dann in der Tabelle zu der zugehörigen Frage abgespeichert. Sind alle Fragen beantwortet, möchte ich mit einem Button ein neues Formular öffnen und eine Ampelschaltung zu den einzelnen Frageblöcken anzeigen.
Dazu muss ich den Durchschnittswert von Frageblock 1 ausrechnen und dann daraufhin je nach Wert ein Rechteck mit grün, rot oder Gelb auswerfen.
Meine Frage nun,
1. wie rechne ich den Durchschnittswert von verschiedenen Feldern aus in der Hilfe steht „=Mittelwert(Ausdruck)“ wie muss ich die einzelnen Felder in den klammen nebeneinander schreiben mit & oder + geht das nicht.
2. wie muss der VBA Code für die Ampelschaltung aussehen.

Es wäre super wenn mir jemand helfen könnte.

Vielen Dank!
Frank_xyz
lerne täglich was dazu


Verfasst am:
28. Feb 2005, 15:58
Rufname:
Wohnort: Bautzen


AW: Mittelwert und Ampelschaltung - AW: Mittelwert und Ampelschaltung

Nach oben
       

Hallo,

den Mittelwert berechne einfach:
Code:
    [Mittelwert]=([Frage1_1] + [Frage1_2]+ [Frage1_3]) / 3
    Select Case Mittelwert
      Case Is < 1.5: Me!rechteck.BackColor=255
      Case 1.51 To 2.5: Me!rechteck.BackColor=65535
      Case Is > 2.5: Me!rechteck.BackColor=65280
    End Select
mit RGB(255, 0, 0) kannst Du die Farben noch verfeinern
Statt des Rechteckes kannst Du auch eine Ampelgrafik (Gif...) einem Bildobjekt zuweisen:
Code:
    Me!Bild1.Picture = "C:\ampel_rot.gif"

Bye
Nicole1878
Im Profil kannst Du frei den Rang ändern


Verfasst am:
02. März 2005, 17:35
Rufname:
Wohnort: Nürnberg

Ich brauche noch mehr Hilfe - Ich brauche noch mehr Hilfe

Nach oben
       

Hallo,
ich habe noch eine Frage dazu.
Die Fragen zu denen die Ampelschaltung gemacht werden, wurden in einem anderen Formular beantwortet. Wie komme ich jetzt zu den Werten?
Wie kann ich dem neuen Formular sagen, auf welche Werte es zugreifen soll.
Ich habe es mit folgendem Probiert, aber das ging leider nicht. Bin eben nur ein Anfänger
Code:
Private Sub Form_Load()
    Dim Mittelwert As Integer

    [Mittelwert] = Forms!FRM_Bewertung!(([1_1Frage] + [1_2Frage] + [1_3Frage]) / 3)
    Select Case Mittelwert
      Case Is < 1, 5: Me!Rechteck61.BackColor = 255
      Case 1, 51 To 2, 5: Me!Rechteck61.BackColor = 65536
      Case Is < 1, 5: Me!Rechteck61.BackColor = 65280
    End Select
End Sub

Danke!
Frank_xyz
lerne täglich was dazu


Verfasst am:
03. März 2005, 15:30
Rufname:
Wohnort: Bautzen

AW: Mittelwert und Ampelschaltung - AW: Mittelwert und Ampelschaltung

Nach oben
       

Hallo,


würde sagen so:
Code:
Private Sub Form_Load()
    Dim Mittelwert As Integer

    Mittelwert = ((Forms!FRM_Bewertung![1_1Frage] + _
                   Forms!FRM_Bewertung![1_2Frage] + _
                   Forms!FRM_Bewertung![1_3Frage]) / 3)
    Select Case Mittelwert
      Case Is < 1, 5: Me!Rechteck61.BackColor = 255
      Case 1, 51 To 2, 5: Me!Rechteck61.BackColor = 65536
      Case Is < 1, 5: Me!Rechteck61.BackColor = 65280
    End Select
End Sub

Der Verweis Forms!FRM_Bewertung! muss bei jedem Feld verwendet werden

Bye
Nicole1878
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. März 2005, 12:39
Rufname:
Wohnort: Nürnberg


AW: Mittelwert und Ampelschaltung - AW: Mittelwert und Ampelschaltung

Nach oben
       

Prima,
jetzt geht es!
Danke
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: Mittelwert im Kopfbereich berechnen 5 Access_Echse 91 23. Jan 2014, 16:19
MissPh! Mittelwert im Kopfbereich berechnen
Keine neuen Beiträge Access Programmierung / VBA: MS Access 07 Mittelwert berechnen? 2 Patrick H. 1022 08. Feb 2011, 22:25
Patrick H. MS Access 07 Mittelwert berechnen?
Keine neuen Beiträge Access Tabellen & Abfragen: Access Mittelwert in Abfrage innerhalb eines Datensatzes 1 deiche 1311 17. Okt 2010, 15:11
Marmeladenglas Access Mittelwert in Abfrage innerhalb eines Datensatzes
Keine neuen Beiträge Access Tabellen & Abfragen: Mittelwert aus 2 Tabellen 5 Forrest05 900 18. Apr 2010, 15:46
Willi Wipp Mittelwert aus 2 Tabellen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage: Mittelwert ohne Nullwerte berechnen 11 Akima 1945 15. März 2010, 17:36
Akima Abfrage: Mittelwert ohne Nullwerte berechnen
Keine neuen Beiträge Access Tabellen & Abfragen: Mittelwert aus mehreren Feldern 1 sysi 912 08. Jul 2009, 19:23
KlausMz Mittelwert aus mehreren Feldern
Keine neuen Beiträge Access Formulare: Mittelwert von berechnetem Steuerelement 2 tobey_p 392 28. Mai 2009, 21:52
tobey_p Mittelwert von berechnetem Steuerelement
Keine neuen Beiträge Access Tabellen & Abfragen: Mittelwert und Sekunden in Minuten umrechnen 17 Manne67 3240 19. Mai 2009, 17:44
Willi Wipp Mittelwert und Sekunden in Minuten umrechnen
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierungsabfrage mit Mittelwert 3 Nener 713 30. Okt 2008, 12:24
Willi Wipp Aktualisierungsabfrage mit Mittelwert
Keine neuen Beiträge Access Tabellen & Abfragen: Access Datenverdichten, Mittelwert, Gruppieren nach x Zeilen 10 ukug14 3840 14. Aug 2008, 09:25
ukug14 Access Datenverdichten, Mittelwert, Gruppieren nach x Zeilen
Keine neuen Beiträge Access Berichte: Mittelwert im Gruppenfuß funktioniert nicht 6 dteq1 892 21. Jul 2008, 22:58
Gast Mittelwert im Gruppenfuß funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Mittelwert aus 3 Zahlen 1 tsb 1011 08. Jul 2008, 21:23
KlausMz Mittelwert aus 3 Zahlen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen