Generating random string

[John]

Hi

I need to generate a string of six random characters to act as the first
password. Is there an example of how to do this somewhere?

Thanks

Regards

[tina]

Re: Generating random string

answered in post with same subject line, in microsoft.publi c.access
newsgroup.


"John" <John@nospam.in fovis.co.uk> wrote in message
news:BMqdnTCX38 CbK9zZRVny3g@pi pex.net...[color=blue]
> Hi
>
> I need to generate a string of six random characters to act as the first
> password. Is there an example of how to do this somewhere?
>
> Thanks
>
> Regards
>
>[/color]

[Ira Solomon]

Re: Generating random string

This will do it:

Public Function MakePass()
Dim Lets(6) As String
Dim PW As String
Dim i, j, k As Integer
j = 1
Do While j < 6
k = Int((122 * Rnd) + 65)
If (k >= 65 And k < 91) Or (k > 96 And k < 123) Then
Lets(j) = Chr(k)
j = j + 1
End If
Loop
PW = Lets(1) & Lets(2) & Lets(3) & Lets(4) & Lets(5) & Lets(6)
MakePass = UCase(PW)
End Function

This generates the password in upper case. You can remove UCase to
get upper and lower. This will repeat letters sometimes. So you
might get : ABCDEB or CDXXSZ.

If dups are a problm let me know and I can add the code to avoid them.

Good luck
Ira Solomon

On Sun, 16 Apr 2006 04:09:00 +0100, "John" <John@nospam.in fovis.co.uk>
wrote:
[color=blue]
>Hi
>
>I need to generate a string of six random characters to act as the first
>password. Is there an example of how to do this somewhere?
>
>Thanks
>
>Regards
>[/color]

[John]

Re: Generating random string

Thanks Ira. Works great.

Regards

"Ira Solomon" <isolomon@solom onltd.com> wrote in message
news:git4425qn8 229lnria87eskgf mg8vb3q4h@4ax.c om...[color=blue]
> This will do it:
>
> Public Function MakePass()
> Dim Lets(6) As String
> Dim PW As String
> Dim i, j, k As Integer
> j = 1
> Do While j < 6
> k = Int((122 * Rnd) + 65)
> If (k >= 65 And k < 91) Or (k > 96 And k < 123) Then
> Lets(j) = Chr(k)
> j = j + 1
> End If
> Loop
> PW = Lets(1) & Lets(2) & Lets(3) & Lets(4) & Lets(5) & Lets(6)
> MakePass = UCase(PW)
> End Function
>
> This generates the password in upper case. You can remove UCase to
> get upper and lower. This will repeat letters sometimes. So you
> might get : ABCDEB or CDXXSZ.
>
> If dups are a problm let me know and I can add the code to avoid them.
>
> Good luck
> Ira Solomon
>
> On Sun, 16 Apr 2006 04:09:00 +0100, "John" <John@nospam.in fovis.co.uk>
> wrote:
>[color=green]
>>Hi
>>
>>I need to generate a string of six random characters to act as the first
>>password. Is there an example of how to do this somewhere?
>>
>>Thanks
>>
>>Regards
>>[/color][/color]