Public Function RandomValue() As String
Dim strLetter As String
Dim strNumber As String
Randomize
'Zufallszwahl zwischen 65 u. 90 erzeugen = ANSI-Werte von A-Z
strLetter = Chr(Int((26 * Rnd) + 65))
'Zufallszahl zwischen 1 u. 99999 erzeugen
strNumber = Format(Int((99999 * Rnd) + 1), "00000")
RandomValue = strLetter & strNumber
End FunctionIf Me.chkMeineCheckBox = True Then
Me.txtMeineZufallszahl = RandomValue()
Else
Me.txtMeineZufahlsszahl = Null
End If
ein klick- computer aus
scholzi 26.08.2007 - 132 Hits - 3 Antworten
zufallszahl
karim 07.12.2007 - 90 Hits - 3 Antworten
2 Links mit einem Klick
Harvey17 11.01.2008 - 23 Hits - 3 Antworten
bat datei ---> %random% begrenzen
SuZi 04.09.2008 - 78 Hits - 7 Antworten
Turbo C++
Codename 13.03.2008 - 21 Hits - 1 Antwort