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 14.02.2013 (Do)
  • StefanWirrer08.02.13 09:12
  • Brauche dringend Hilfe
  • hjboehmer07.02.13 14:16
       └ Abfragewert an Batch übergeben (was: Brauche dri... Karl Donaubauer07.02.13 15:50
          └ RE: Abfragewert an Batch übergeben (was: Brauc... hjboehmer07.02.13 17:08
             └ RE: Abfragewert an Batch übergeben Karl Donaubauer07.02.13 18:20
  • Access 2010 Probleme mit Berichten (SNP und Ausdru...
  • bibi13507.02.13 10:20
       └ RE: Access 2010 Probleme mit Berichten (SNP und ... Karl Donaubauer07.02.13 11:09
  • Zufallsdatensatz nur einmal ausgeben
  • BetzMartin05.02.13 20:36
       └ RE: Zufallsdatensatz nur einmal ausgeben Karl Donaubauer06.02.13 18:59
       └ RE: Zufallsdatensatz nur einmal ausgeben PeterDoering06.02.13 23:14
  • DoCmd.openReport Befehl in ART2010 bricht ab
  • RichardHoetger31.01.13 08:16
       └ RE: DoCmd.openReport Befehl in ART2010 bricht ab PeterDoering02.02.13 17:35
          └ RE: DoCmd.openReport Befehl in ART2010 bricht ab RichardHoetger05.02.13 11:09
             └ RE: DoCmd.openReport Befehl in ART2010 brich... PeterDoering06.02.13 16:23
  • Wieder NotInList bei Verknüften Tabellen
  • @Julia06.02.13 13:16
  • Access2003
  • Randy05.02.13 19:13
       └ RE: Access2003 Karl Donaubauer05.02.13 21:44
  • Problem mit "korruptem" Formular
  • wilf12302.02.13 11:52
       └ RE: Problem mit "korruptem" Formular PeterDoering02.02.13 17:50
          └ RE: Problem mit "korruptem" Formular wilf12302.02.13 23:11
             └ RE: Problem mit "korruptem" Formular PeterDoering03.02.13 16:02
                └ RE: Problem mit "korruptem" Formular wilf12303.02.13 23:39
                   └ RE: Problem mit "korruptem" Fo... PeterDoering04.02.13 02:29
  • Access Tabellen-Untertabellen kopieren
  • Blacky9042702.02.13 10:26
       └ Access Tabellen-Untertabellen kopieren Blacky9042702.02.13 11:32
  • Gültigkeitsregeln in Tabellenfeldern vom Typ Text
  • micmen01.02.13 16:23
       └ RE: Gültigkeitsregeln in Tabellenfeldern vom Typ... Karl Donaubauer01.02.13 17:29
  • Bei Eingabe PLZ entweder Ort oder Auswahl
  • dekr4931.01.13 19:57
       └ RE: Bei Eingabe PLZ entweder Ort oder Auswahl Karl Donaubauer31.01.13 21:55
          └ RE: Bei Eingabe PLZ entweder Ort oder Auswahl dekr4901.02.13 12:28
             └ RE: Bei Eingabe PLZ entweder Ort oder Auswahl Karl Donaubauer01.02.13 13:40
  • Win8-App per Schaltfläche in AccFrm starten
  • grundguenther31.01.13 21:59
  • sms
  • sibern31.01.13 10:47
       └ RE: sms Micha_DU31.01.13 15:28
  • Splitform im geöffneten Formular mit VBA wegschalt...
  • Lorenz24.01.13 12:52
       └ RE: Splitform im geöffneten Formular mit VBA weg... PeterDoering25.01.13 21:58
          └ RE: Splitform im geöffneten Formular mit VBA w... Lorenz26.01.13 14:42
             └ RE: Splitform im geöffneten Formular mit VBA... Lorenz30.01.13 21:05
  • fortlaufende Rechnungsnummern
  • sunshine7767728.01.13 09:13
       └ RE: fortlaufende Rechnungsnummern Lorenz28.01.13 15:06
          └ RE: fortlaufende Rechnungsnummern sunshine7767728.01.13 20:57
          └ RE: fortlaufende Rechnungsnummern sunshine7767729.01.13 13:46
             └ RE: fortlaufende Rechnungsnummern Karl Donaubauer30.01.13 14:34
             └ RE: fortlaufende Rechnungsnummern Lorenz30.01.13 20:45
             └ RE: fortlaufende Rechnungsnummern Lorenz30.01.13 20:51
    Karl Donaubauer
    Gesendet: 06.02.13 18:59
    Betreff: RE: Zufallsdatensatz nur einmal ausgeben



    Elite Veteran

    Beiträge: 876
    500100100100252525
    Ort: Wien
    Hallo, Martin!

    BetzMartin - 05.02.13
    Möchte ein Frage/Antwortspiel erstellen! Die Fragen werden zufällig ausgewählt!

    Ich habe dazu diesen Code verwendet:

    Private Sub Form_Current()

    Const csSQL = "SELECT TOP 1 ID FROM Fragen ORDER BY Rnd(ID)"
    Me.Recordset.FindFirst "ID = " & CurrentDb().OpenRecordset(csSQL)(0)

    End Sub

    Soweit so gut! Jetzt möchte ich das die Fragen nur einmal gestellt werden und wenn alle Fragen durch sind eine kleine Zusammenfassung der Ergebnisse Gezeigt wird!

    Bei der Auswertung der Antworten habe ich auch noch Probleme. Ich möchte, dass auch mehrere Antworten richtig sein können! Eventuell sogar richtig und falsch mit Farbe markiert!

    Ich habe mein Beispiel als Zip-Datei angehängt!
    ...

    Ich habe kurz rein geschaut. Ein paar Hinweise und Antworten auf einen Teil deiner Fragen:

    1. Du solltest die explizite Variablendeklaration aktivieren. Damit wird der Code strukturierter, leichter lesbar und weniger fehleranfällig. D.h.

    Im VBA-Editor einen Haken setzen bei: Extras - Optionen - Editor - Variablendeklaration erforderlich

    In bereits vorhandenen Modulköpfen geht das nachträglich indem du nach

    Option Compare Database
    diese Zeile einfügst:
    Option Explicit

    Dann mal Debuggen - Kompilieren um alle nicht explizit deklarierten Variablen zu finden.

    2. Statt des Codes "Beim Anzeigen" könntest du einfach eine Abfrage als Datenherkunft des Formulares verwenden, die alle DS zufällig liefert.
    s.a. http://www.donkarl.com?FAQ3.17
    Dann ersparst du dir den datenholenden Code beim Anzeigen und beim Klicken der Weiter-Schaltfläche.

    3. DB-technisch wäre es besser (=3. Normalform) die Antworten als Datensätze in eine eigene Tabelle auszulagern, mit der FrageId als Fremdschlüssel. Dann tust du dir in Hinkunft mit dem Auswerten und Filtern leichter.

    4. Damit die DS nur einmal kommen, könntest du in der Abfrage von Punkt 2 als Kriterium verlangen, dass alle Antwort-Felder einer Frage auf Nein stehen. Das geht eben schon leichter in der Struktur von 3., weil nur 1 Kriterium notwendig ist. Bei der Weiter-Schaltfläche machst du: Me.Requery

    5. In der Struktur von 3. ist auch die Richtig-Bewertung und -Anzeige einfacher: Du erstellst bei den Antworten ein zusätzliches Ja/Nein-Feld "Richtig", das du für Erfolgsanzeigen und Auswertungen verwendest.

    -----
    Servus
    Karl
    *********
    Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
    Access DevCon Vienna: https://www.donkarl.com/devcon
    Access Forever: https://www.accessforever.org
    Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy...
    Top of the page Bottom of the page


    Seite: < 64 65 66 67 68 69 ... 70 71 72 73 74 75 76 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)