Office: Vierstellige PIN erzeugen

3789ole · 9. November 2002

Hallo,

ich muss für eine weitere Anwendung eine zufällige 4-stellige PIN für jeweils 600 User erzeugen. Weiterhin werden Name und Adresse für einen Serienbrief erfasst.

Kann man die Autowert-Funktion mit Zufallsvergabe so hinbekommen, dass nur ein Wertebereich von 1000 bis 9000 benutzt wird? Oder gibt es eine andere Lösung?

Vielen Dank

Mit freundlichen Grüßen
Olaf

:)

Günther Napster · 11. November 2002

Hallo,

mach es doch mit der Randomize-Funktion:

Dim PIN as Integer
Randomize
PIN = Int((9000 * Rnd) + 1000)

Du musst natürlich sicherstellen, dass keine PIN doppelt vorkommt!

Gruß,
GN

kama · 11. November 2002

\@Günther

Zitat: Du musst natürlich sicherstellen, dass keine PIN doppelt vorkommt!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die meisten PIN sind vierstellig, zb Eurocard. Da wirds schon einige Doubletten geben *biggrin.gif* , befürchte ich. *eek.gif*

Günther Napster · 11. November 2002

\@ kama

Ich bin irgendwie davon ausgegangen das die PIN ein Schlüsselfeld ist, was bei genauerer Überlegung bei einer PIN natürlich Blödsinn ist.

Also 3789ole:
Vergessen musst Du, was Du vorher gelernt! *wink.gif*

Nouba · 11. November 2002

Hallo Olaf,

schau die mal die folgende Funktion an Code:

Function ErstelleZufallsArray(ug As Integer, og As Integer, AnzZZ As Integer)

ReDim Zahlenbereich(ug To og) As Variant ' ug = Untergrenze, og = Obergrenze
Dim ausgewaehlt As Integer

' Zufallsgenerator initialisieren
Randomize

' Array einheitlicher Zufallszahlen aufbauen
Do While ausgewaehlt < AnzZZ
Dim ZZ As Integer
' eine Zahl zwischen Unter- unter Obergrenze erstellen
ZZ = Int((og - ug + 1) * Rnd + ug)
' falls im Array kein Vermerk ist
If Zahlenbereich(ZZ) = False Then
Zahlenbereich(ZZ) = True
' Anzahl der erstellten Zufallszahlen aktualisieren
ausgewaehlt = ausgewaehlt + 1
End If
Loop

ErstelleZufallsArray = Zahlenbereich

End Function

Sub TestErstelleZufallsArray()

Const ug = 1000 ' Untergrenze
Const og = 8999 ' Obergrenze
Const nzz = 600 ' Anzahl zu erstellender Zufallswerte

Dim ZZ As Variant

ZZ = ErstelleZufallsArray(ug, og, nzz)

Dim i As Integer
Dim j As Integer

For i = ug To og
If ZZ(i) = True Then
j = j + 1
DoCmd.SetWarnings False
' Wenn nur 4-stellige Nummern ausgegeben werden,
' kann *Format* durch *CStr* ausgetauscht werden
'
' Die ID ist ein Autowert, den Du der Tabelle zumindest temporär
' spendierst, damit die Zuordnung funktioniert
DoCmd.RunSQL "UPDATE Zufall Set PIN = '" & _
Format(i, "0000") & _
"' WHERE ID =" & j
DoCmd.SetWarnings True
End If
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Vierstellige PIN erzeugen

Vierstellige PIN erzeugen

Vierstellige PIN erzeugen

Vierstellige PIN erzeugen

Vierstellige PIN erzeugen - Similar Threads - Vierstellige PIN erzeugen

dropdown

Werte für bestimmte Kürzel erzeugen

[VBA] Zwei neue Dateien als Emailanhang erzeugen

Ini-Dateien per VBA erzeugen

Teams Room System Teilnahme mit PIN

Virtuelle Pin-Wand

VBA einzelne Tabellenblätter nur mit Pin/Passwort bearbeiten können