Zufallsgenerator

[sascha keller]

Hi NG,
wie kann ich im Access zufallsgenerierte, nicht
aufsteigende Zahlen bzw. Alphanumerische Werte generieren?
Thx
- SK

[Josef Poetzl]

Hallo!

sascha keller schrieb:

>wie kann ich im Access zufallsgenerierte, nicht
>aufsteigende Zahlen bzw. Alphanumerische Werte generieren?

Hast du schon mal zufallszahl in der OH gesucht?
Da kommt dann als Ergebnis: Rnd-Funktion

mfg
Josef

[Jan Bartel]

Hallo Sascha

Den Felddatentyp "Autowert" auf NeueWerte-> Zufall setzen

Grüße
Jan

[sascha keller]

>-----Originalnachricht-----

>Hast du schon mal zufallszahl in der OH gesucht?
>Da kommt dann als Ergebnis: Rnd-Funktion

Hallo nochmal!

leider kommt in der OH (Online-Hilfe?)bei mir nix von
dieser Rnd-Funktion - ich erläutere mal den Hintergrund.
Ich möchte für ein Bonussystem zufällige Zahlen
generieren. Ein Kunde kann max. 3 Zahlen bekommen und
diese beim Auftrag als Bonuszahl angeben. Damit er nicht
irgendwelche raten kann, sollen sie natürlich nicht
logisch ermittelt sein. Ich brauche also 3 mal ein paar
Tausend Zahlen, die ich irgendwie ermitteln muss. Passt
Deine Rnd-Funktion auf das?

Thx

- SK

[sascha keller]

>Den Felddatentyp "Autowert" auf NeueWerte-> Zufall setzen
>
>Grüße
>Jan

Hi,

kann ich hier die Anzahl der generierten Zahlen/Werte
begrenzen bzw. genau festlegen? Oder kann ich gar die
Zahlen/Werte in einen bestimmten Bereich zwängen? Im
oberen Thread habe ich mal kurz meinen Hintergrund
umrissen.
Thx
-SK

[Kazem Fadaei]

Hallo Sascha,

hier drei Funktionen:

' Eine zufällige Zahl zwischen f und t
Private Function RandomNummber(ByVal f As Long, ByVal t As Long)
Randomize
RandomNummber = Int((t - f + 1) * Rnd + f)
End Function

' Eine zufällige Buchstabe, ohne Ä, Ö, Ü und ß
Private Function RandomChr()
If RandomNummber(0, 1) = 0 Then
RandomChr = chr(RandomNummber(65, 90))
Else
RandomChr = chr(RandomNummber(97, 122))
End If

End Function

' Eine zufällige Zeichenfolge der Länge l
Private Function RandomStr(ByVal l As Long)
Dim I As Long
RandomStr = ""
For I = 0 To l - 1
RandomStr = RandomStr & RandomChr
Next I
End Function

Deine Frage ist höffentlich damit beantwortet?

Gruße
Kazem

[Josef Poetzl]

Hallo!

sascha keller schrieb:

>leider kommt in der OH (Online-Hilfe?)bei mir nix von
>dieser Rnd-Funktion

Visual-Basic-OH (vom Code-Editor aufrufen)

> - ich erläutere mal den Hintergrund.
>Ich möchte für ein Bonussystem zufällige Zahlen
>generieren. Ein Kunde kann max. 3 Zahlen bekommen und
>diese beim Auftrag als Bonuszahl angeben. Damit er nicht
>irgendwelche raten kann, sollen sie natürlich nicht
>logisch ermittelt sein. Ich brauche also 3 mal ein paar
>Tausend Zahlen, die ich irgendwie ermitteln muss. Passt
>Deine Rnd-Funktion auf das?

Dazu müßt ich dein Bonussystem verstehen ;-)

Das Beispiel aus der OH:
Dim Wert1
Wert1 = Int((6 * Rnd) + 1)
'erzeugt Zufallszahl zw. 1 und 6

Oder darf eine Zahl nur einmal vorkommen?

mfg
Josef

[sascha keller]

>Visual-Basic-OH (vom Code-Editor aufrufen)

>Das Beispiel aus der OH:
> Dim Wert1
> Wert1 = Int((6 * Rnd) + 1)
> 'erzeugt Zufallszahl zw. 1 und 6
>Oder darf eine Zahl nur einmal vorkommen?

..ja, die Zahl darf nur einmal vorkommen pro Kunde.

ich brauche ein paar tausend einzigartige Zufallszahlen,
und das ganze dreimal (also aus verschiedenen Bereichen).

Thx
- SK

[Josef Poetzl]

Hallo!

sascha keller schrieb:

>..ja, die Zahl darf nur einmal vorkommen pro Kunde.
>
>ich brauche ein paar tausend einzigartige Zufallszahlen,
>und das ganze dreimal (also aus verschiedenen Bereichen).

JEder Kunde hat doch eine ID, oder?

Wenn Du nun 3 verschiedene Zufallszahlen (je Kunde) generierst und
diese dann hinter die Kunden-ID hängst (vorher alle Kunden-ID auf die
selbe Potenz bringen).

z.B. die drei Zufallszahlen 135, 34, 9368

Kunde1: 23 => 100023
Kunde2: 456 => 100456

Jetzt die Zufallszahlen dazu
Kunde: 10002300135, 10002300034, 10002309368

würde das dann reichen?

mfg
Josef

[sascha keller]

>JEder Kunde hat doch eine ID, oder?
>Wenn Du nun 3 verschiedene Zufallszahlen (je Kunde)
generierst und
>diese dann hinter die Kunden-ID hängst (vorher alle
Kunden-ID auf die
>selbe Potenz bringen).
>z.B. die drei Zufallszahlen 135, 34, 9368
>Kunde1: 23 => 100023
>Kunde2: 456 => 100456
>Jetzt die Zufallszahlen dazu
>Kunde: 10002300135, 10002300034, 10002309368
>würde das dann reichen?

Hi,
hm - erstmal nicht schlecht - vielen Dank. Allerdings
stellt sich mir das PRoblem, dsas mir vorher gar nicht
bekannt ist, welcher Kunde überhaupt die Zahlen bekommt.
Das sollte optimalerweise beliebig sein. ABer der
Vorschlag ist echt ordentlich - hilft mir schonmal weiter.
Thx
-SK