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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Access 2007 Serielle Schnittstelle COMM Control Ha...
  • rock_d01.03.13 09:46
       └ RE: Access 2007 Serielle Schnittstelle COMM Cont... jojogar05.03.13 18:23
  • Zeit-Differenz mit Datediff
  • BetzMartin22.02.13 14:02
       └ RE: Zeit-Differenz mit Datediff Axelander26.02.13 08:57
       └ RE: Zeit-Differenz mit Datediff PeterDoering27.02.13 12:50
          └ RE: Zeit-Differenz mit Datediff BetzMartin01.03.13 15:37
  • Umstellung Access 2003 auf 2010
  • Schröder28.02.13 09:04
       └ RE: Umstellung Access 2003 auf 2010 Micha_DU28.02.13 09:26
       └ RE: Umstellung Access 2003 auf 2010 PeterDoering28.02.13 09:43
  • Word SaveAs bringt Dialog statt zu speichern
  • Axelander22.02.13 16:19
  • Unverständliche Fehlfunktion
  • GeorgH22.11.12 19:04
       └ RE: Unverständliche Fehlfunktion Karl Donaubauer28.11.12 18:50
          └ RE: Unverständliche Fehlfunktion GeorgH21.02.13 11:00
  • Datenbank für Konfigurationsvielfalt
  • Pakman21.02.13 09:14
  • Fremdschlüssel in Access
  • jojogar18.02.13 16:10
  • DB mit mit vorher ausgewählter Sicherheittsdatei ö...
  • Ruediger.Albrecht31.01.13 13:50
       └ RE: DB mit mit vorher ausgewählter Sicherheittsd... Karl Donaubauer31.01.13 14:06
          └ RE: DB mit mit vorher ausgewählter Sicherheitt... Ruediger.Albrecht12.02.13 23:10
  • Formate erzeigen
  • sunshine7767710.02.13 19:44
       └ RE: Formate erzeigen PeterDoering11.02.13 01:44
          └ RE: Formate erzeigen sunshine7767711.02.13 21:12
  • 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
    PeterDoering
    Gesendet: 06.02.13 23:14
    Betreff: RE: Zufallsdatensatz nur einmal ausgeben



    Extreme Veteran

    Beiträge: 442
    10010010010025
    Hallo,

    BetzMartin - 05.02.13 20:36
    [Frage/Antwortspiel erstellen]
    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!

    Dafür musst du die gefundenen IDs in eine Tabelle eintragen (im Beispiel Tmp1) und verhindern, dass diese wieder gelesen werden:

    Const csSQL = "SELECT TOP 1 ID FROM Fragen LEFT JOIN Tmp1 ON Fragen.ID=Tmp1.ID WHERE Tmp1.ID Is Null ORDER BY Rnd(ID)"
    Me.Recordset.FindFirst "ID = " & CurrentDb().OpenRecordset(csSQL)(0)
    strSQL = "INSERT INTO Tmp1 ( ID) VALUES (" & Me.Recordset.Fields("ID").Value & ")"
    CurrentDb.Execute strSQL, dbFailOnError

    Mit Tabelle Tmp1 hast du noch weitere Möglichkeiten, nämlich die Antworten einzutragen und später in einem Formular auszuwerten.

    -----
    Gruss - Peter
    Top of the page Bottom of the page


    Seite: < 48 49 50 51 52 53 ... 54 55 56 57 58 59 60 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)