Zufallszahl für Tombola

[im48user]

Hallo Miteinander!

Ich habe in einer MS-Access Tabelle als Los-Nr diese Formel

Int((2000-1+1)*ZZG()+1)

verwendet.

Nun hab ich das ganze auf Ohne Duplikate gestellt, aber jedesmal wenn eine Zahl Doppelt ist kommt eine Fehlermeldung.

Gibt es eine Formel, dass Automatisiert eine neue Zufallszahl, ohne Fehlermeldung erstellt wird?

Könnt ihr mir helfen?


Danke im Voraus

Thomas

[edgar.basler]

Wo willst Du nun eine Antwort? Hier oder auf http://www.ms-office-forum.net/forum/showthread.php?t=283086 ?

[im48user]

Ich frag immer in mehreren Foren :-)

[MzKlMu]

Hallo,

Ich frag immer in mehreren Foren :-)

das solltest Du lieber lassen, zumindest bei Access, sonst gibt es gar keine Antwort.
Hier in diesem Forum (und in dem Anderen) ist es auch nicht erwünscht, kannst Du in den Regeln nachlesen.

Crossposting, d.h. das Posten der gleichen Frage in mehreren Foren zur gleichen Zeit, ist unerwünscht.

Zum Problem:
Du musst mit DLookup prüfen ob die Zahl schon da ist, wenn ja neue Zahl, wenn nein in Tabelle schreiben.

[im48user]

Danke für den Hinweis, werde den andernen Beitrag entfernen.

Wie soll ich das mit Dlookup in der Tabelle machen? Blick da voll nicht durch :-(

[MzKlMu]

Hallo,

werde den andernen Beitrag entfernen.

Das dürfte nicht möglich sein.
Machst Du das direkt in der Tabelle?
Welche Access Version?

In der Tabelle geht das mit DLookup nicht.
Ich denke das muss per VBA in einer Funktion gelöst werden. Mit Hilfe eines Formulars.

[im48user]

Ja ich mach das direkt in der Tabelle, hatte da nie eine Andere Idee.

Es gibt nur 3 Spalten "Los-Nr" "Artikel" "Hauptpreis".

Bis jetzt hab ich mich immer geärgert mit der Fehlermeldung, hab aber nie eine Lösung gefunden.

[MzKlMu]

Hallo,
wie viele Zahlen willst Du denn erzeugen?
In welchem Bereich, 1-2000, wenn ich die Formel richtig interpretiere?

[im48user]

Also es gibt 2000 Lose und ca 1000 Preise, also brauch ich um die 1000 nummern.

[MzKlMu]

Hallo,
anbei ein schnelles Beispiel.
Öffne das Formular und klicke den Befehlsbutton. Es wird jedesmal eine neue Serie von 1000 Nummern angelegt.


Nachtrag:
Das Modul heist noch Datumsfunktionen, das hatte ich kopiert und vergessen umzubenennen.
Das hat mit Datum nichts mehr zu tun.

[Anhang gelöscht durch Administrator]

[im48user]

Ist nicht so ganz das was ich meine.
Geht das nicht, dass erst wenn der Text eingegeben wird, die Zufallszahl generiert und geprüft wird, und wenn diese vorhanden ist, gleich wieder eine neue generiert?

[MzKlMu]

Hallo,
das geht mit einer Tabelle nicht. Das muss in einem Formular gemacht werden.
Im Ereiegnis "Nach Aktualisierung" des Textfeldes.
Im Prinzip kannst Du da t
Teile meines Codes dazu verwenden.
In einer Schleife so lange eine Zufallszahl erzeugen, biss diese ohne Fehlermeldung gespeichert werden kann.

Ich frage mich, wozu überhaupt eine Zufallszahl?
Die Lose werden doch eh gemischt, die Losnummer ist doch dann bedeutungslos.