Suche | Statistiken | Benutzerliste | Access-FAQ | Datenschutz Foren
donkarl Forum
donkarl Forum ->  Themen -> Access -> Diskussion ansehen

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Web Apps: Bilder in Berichten?
  • Lorenz15.04.13 10:32
       └ RE: Web Apps: Bilder in Berichten? PeterDoering20.04.13 16:46
          └ RE: Web Apps: Bilder in Berichten? Lorenz22.04.13 20:52
             └ RE: Web Apps: Bilder in Berichten? PeterDoering22.04.13 22:32
                └ RE: Web Apps: Bilder in Berichten? yjk23.04.13 09:33
                   └ RE: Web Apps: Bilder in Berichten? PeterDoering23.04.13 11:35
                      └ RE: Web Apps: Bilder in Berichten? yjk23.04.13 14:30
                └ RE: Web Apps: Bilder in Berichten? Lorenz26.04.13 12:14
                   └ RE: Web Apps: Bilder in Berichten? PeterDoering26.04.13 23:21
  • Webformular in Desktopdatenbank bringen
  • Ralf524.04.13 15:01
       └ RE: Webformular in Desktopdatenbank bringen PeterDoering26.04.13 10:24
  • Probleme bei italienischer Landeseinstellung
  • Burkhard10.04.13 09:45
       └ RE: Probleme bei italienischer Landeseinstellung PeterDoering10.04.13 12:07
          └ RE: Probleme bei italienischer Landeseinstellung Burkhard11.04.13 11:40
             └ RE: Probleme bei italienischer Landeseinstel... PeterDoering12.04.13 12:48
  • Checkliste II
  • mat6510.04.13 19:18
       └ RE: Checkliste II mat6510.04.13 20:47
       └ RE: Checkliste II mat6510.04.13 20:48
  • Probleme im Netzwerkbetrieb
  • bhausu09.04.13 08:45
       └ RE: Probleme im Netzwerkbetrieb Karl Donaubauer09.04.13 09:44
          └ RE: Probleme im Netzwerkbetrieb bhausu10.04.13 19:04
  • OpenReport
  • Schröder08.04.13 12:26
       └ RE: OpenReport Karl Donaubauer08.04.13 13:04
          └ RE: OpenReport Schröder08.04.13 16:59
  • Access Stammtisch München am 11.04.2013 (Do)
  • StefanWirrer08.04.13 09:52
  • Sparklines via VBA erzeugen
  • Greiff20.03.13 14:43
       └ RE: Sparklines via VBA erzeugen PeterDoering21.03.13 00:09
          └ RE: Sparklines via VBA erzeugen Greiff03.04.13 16:26
             └ RE: Sparklines via VBA erzeugen Karl Donaubauer03.04.13 17:21
          └ RE: Sparklines via VBA erzeugen Greiff03.04.13 19:21
             └ RE: Sparklines via VBA erzeugen PeterDoering04.04.13 12:16
  • Access - Dateianhang aus Datensatzabfrage per Mail...
  • Philipp_K21.03.13 18:21
       └ RE: Access - Dateianhang aus Datensatzabfrage pe... StefanWirrer22.03.13 10:55
          └ RE: Access - Dateianhang aus Datensatzabfrage ... Philipp_K29.03.13 11:08
             └ RE: Access - Dateianhang aus Datensatzabfrag... Karl Donaubauer29.03.13 12:13
  • Office2010 Windows7 Serielle Kommunikation
  • tim26.03.13 10:36
       └ RE: Office2010 Windows7 Serielle Kommunikation PeterDoering26.03.13 23:52
          └ RE: Office2010 Windows7 Serielle Kommunikation tim27.03.13 08:21
             └ RE: Office2010 Windows7 Serielle Kommunikation PeterDoering27.03.13 14:55
                └ RE: Office2010 Windows7 Serielle Kommunikation tim27.03.13 17:03
                   └ RE: Office2010 Windows7 Serielle Kommuni... PeterDoering27.03.13 19:38
  • Zugriff auf QuellCode in Access 2010
  • Jaki_Hergerson27.03.13 13:34
       └ RE: Zugriff auf QuellCode in Access 2010 PeterDoering27.03.13 14:57
  • Access hängt nach VBA Code
  • Coyote21.03.13 15:06
       └ RE: Access hängt nach VBA Code Karl Donaubauer21.03.13 18:49
          └ RE: Access hängt nach VBA Code Coyote22.03.13 10:50
  • listenfeld mit detailfeldern in abhängigkeit von k...
  • Josef16.02.13 19:21
       └ RE: listenfeld mit detailfeldern in abhängigkeit... Karl Donaubauer17.02.13 19:01
          └ RE: listenfeld mit detailfeldern in abhängigke... Josef18.02.13 19:36
             └ RE: listenfeld mit detailfeldern in abhängig... Josef22.02.13 16:50
                └ RE: listenfeld mit detailfeldern in abhäng... Karl Donaubauer22.02.13 18:00
                   └ RE: listenfeld mit detailfeldern in abhä... Josef22.02.13 19:37
                      └ RE: listenfeld mit detailfeldern in ab... PeterDoering24.02.13 08:08
                         └ RE: listenfeld mit detailfeldern in ... Josef25.02.13 14:23
                   └ RE: listenfeld mit detailfeldern in abhä... Josef01.03.13 21:18
                      └ RE: listenfeld mit detailfeldern in ab... Karl Donaubauer01.03.13 23:42
                         └ RE: listenfeld mit detailfeldern in ... Josef03.03.13 13:25
                            └ RE: listenfeld mit detailfeldern i... Karl Donaubauer03.03.13 21:31
                               └ RE: listenfeld mit detailfeldern... Josef15.03.13 18:43
  • Access Änderungen
  • Hansruedir14.03.13 18:43
       └ RE: Access Änderungen StefanWirrer15.03.13 09:40
       └ RE: Access Änderungen PeterDoering15.03.13 11:41
  • Multiple Choice auswertung
  • BetzMartin12.03.13 10:44
       └ RE: Multiple Choice auswertung Karl Donaubauer13.03.13 17:46
          └ RE: Multiple Choice auswertung BetzMartin14.03.13 15:39
    BetzMartin
    Gesendet: 12.03.13 10:44
    Betreff: Multiple Choice auswertung


    Hallo Forum

    Bei meinem Frage/Antwortspiel habe ich die Möglichkeit auf eine Frage bis zu fünf Antworten zur Verfügung zu stellen. Bei der Auswertung der Antworten habe ich noch mühe! Wenn ich nur eine Antwort zulasse funktioniert das, nun möchte ich aber mehrere Antworten zulassen!

    Für eine Antwort habe ich diesen Code verwendet!

    Private Sub Weiter_Knopf_Click()
    On Error GoTo Err_Weiter_Knopf_Click

    Dim weiter As String

    '//// Richtige Antworten auswerten!
    If Me!KK_1 = True And Me!KK_1 = Me!Richtig_1 Then
    m_richtig = m_richtig + 1
    ElseIf Me!KK_2 = True And Me!KK_2 = Me!Richtig_2 Then
    m_richtig = m_richtig + 1
    ElseIf Me!KK_3 = True And Me!KK_3 = Me!Richtig_3 Then
    m_richtig = m_richtig + 1
    ElseIf Me!KK_4 = True And Me!KK_4 = Me!Richtig_4 Then
    m_richtig = m_richtig + 1
    ElseIf Me!KK_5 = True And Me!KK_5 = Me!Richtig_5 Then
    m_richtig = m_richtig + 1
    Else
    '// Falsche Antworten farbig darstellen! -----------------
    If Me!KK_1 = True And Me!KK_1 = Me!Richtig_1 Then
    Me!Antwort_Text_1.ForeColor = RGB(0, 255, 0) ' Grün
    ElseIf Me!KK_1 = False And Me!KK_1 <> Me!Richtig_1 Then
    Me!Antwort_Text_1.ForeColor = RGB(0, 255, 0) ' Rot
    Else
    Me!Antwort_Text_1.ForeColor = RGB(255, 0, 0) ' Rot
    End If

    If Me!KK_2 = True And Me!KK_2 = Me!Richtig_2 Then
    Me!Antwort_Text_2.ForeColor = RGB(0, 255, 0) ' Grün
    ElseIf Me!KK_2 = False And Me!KK_2 <> Me!Richtig_2 Then
    Me!Antwort_Text_2.ForeColor = RGB(0, 255, 0) ' Rot
    Else
    Me!Antwort_Text_2.ForeColor = RGB(255, 0, 0) ' Rot
    End If

    If Me!KK_3 = True And Me!KK_3 = Me!Richtig_3 Then
    Me!Antwort_Text_3.ForeColor = RGB(0, 255, 0) ' Grün
    ElseIf Me!KK_3 = False And Me!KK_3 <> Me!Richtig_3 Then
    Me!Antwort_Text_3.ForeColor = RGB(0, 255, 0) ' Rot
    Else
    Me!Antwort_Text_3.ForeColor = RGB(255, 0, 0) ' Rot
    End If

    If Me!KK_4 = True And Me!KK_4 = Me!Richtig_4 Then
    Me!Antwort_Text_4.ForeColor = RGB(0, 255, 0) ' Grün
    ElseIf Me!KK_4 = False And Me!KK_4 <> Me!Richtig_4 Then
    Me!Antwort_Text_4.ForeColor = RGB(0, 255, 0) ' Rot
    Else
    Me!Antwort_Text_4.ForeColor = RGB(255, 0, 0) ' Rot
    End If

    If Me!KK_5 = True And Me!KK_5 = Me!Richtig_5 Then
    Me!Antwort_Text_5.ForeColor = RGB(0, 255, 0) ' Grün
    ElseIf Me!KK_5 = False And Me!KK_5 <> Me!Richtig_5 Then
    Me!Antwort_Text_5.ForeColor = RGB(0, 255, 0) ' Rot
    Else
    Me!Antwort_Text_5.ForeColor = RGB(255, 0, 0) ' Rot
    End If

    Beep
    '// Timer Starten -----------------
    Dim PauseTime, Start
    PauseTime = 1 ' Timer auf eine Sekunde einstellen
    Start = Timer ' Start Timer
    Do While Timer < Start + PauseTime
    DoEvents '
    Loop

    '// ----------------- Feldfarbe wieder zurücksetzen
    Me!Antwort_Text_1.ForeColor = RGB(0, 0, 0) ' Schwarz
    Me!Antwort_Text_2.ForeColor = RGB(0, 0, 0) '
    Me!Antwort_Text_3.ForeColor = RGB(0, 0, 0) '
    Me!Antwort_Text_4.ForeColor = RGB(0, 0, 0) '
    Me!Antwort_Text_5.ForeColor = RGB(0, 0, 0) '
    '// -----------------
    End If

    Me.Requery

    Exit_Weiter_Knopf_Click:
    Exit Sub

    Err_Weiter_Knopf_Click:
    MsgBox Err.Description
    Resume Exit_Weiter_Knopf_Click

    End Sub


    Das habe ich gerade noch zustande gebracht! Aber ich habe keinen Plan wie ich jetzt ein (Multiple Choice) Auswertung erstellen muss! Hat mir jemand einen Tipp?

    Anbei noch die ganze Datei zum Testen!


    Mit freundlichen Grüssen

    Betz Martin



    Anhänge
    ----------------
    Anhänge Fragespiel-2000.zip (152KB - 1 downloads)
    Top of the page Bottom of the page


    Seite: < 59 60 61 62 63 64 ... 65 66 67 68 69 70 71 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)