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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • 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
  • Spalten ein- bzw ausblenden
  • moellfe11.03.13 16:01
       └ RE: Spalten ein- bzw ausblenden PeterDoering12.03.13 01:38
          └ RE: Spalten ein- bzw ausblenden moellfe14.03.13 10:57
  • Export einer variablen Abfrage via VBA?
  • Lorenz13.03.13 19:39
       └ RE: Export einer variablen Abfrage via VBA? Karl Donaubauer13.03.13 20:59
          └ RE: Export einer variablen Abfrage via VBA? Lorenz13.03.13 21:02
  • ODBC-Anbindung Ingres als Backend
  • snicolaus13.03.13 12:39
  • oldValue
  • moellfe27.02.13 15:41
       └ RE: oldValue Axelander27.02.13 16:25
          └ RE: oldValue moellfe27.02.13 16:43
       └ RE: oldValue PeterDoering28.02.13 08:09
          └ RE: oldValue moellfe02.03.13 17:22
             └ RE: oldValue PeterDoering04.03.13 23:44
                └ RE: oldValue moellfe12.03.13 00:05
                   └ RE: oldValue PeterDoering12.03.13 00:59
       └ RE: oldValue jojogar05.03.13 20:53
  • Access 2010 Statusleiste Ansichtssymbole
  • diwe0111.03.13 08:19
       └ RE: Access 2010 Statusleiste Ansichtssymbole PeterDoering11.03.13 22:05
  • GDIPlus-Problem nach Update?
  • Lorenz11.03.13 18:27
       └ RE: GDIPlus-Problem nach Update? Gunter Avenius11.03.13 18:54
    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: < 60 61 62 63 64 65 ... 66 67 68 69 70 71 72 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)