How to generate random string in MS Access VBA

How to generate random string in MS Access ?

This is one way, will work in Access VBA  it will generate a string with letters Upper,Lower case and numbers. Add a command button in your form and add this code to Event Procedure:

Code:

   
    Dim RndmStr As String * 8
    Dim n As Integer
    Dim ch As Integer
    For n = 1 To Len(RndmStr)
        Do
            ch = Rnd() * 127
            
        Loop While ch < 48 Or ch > 57 And ch < 65 Or ch > 90 'And ch < 97 Or ch > 122
        Mid(RndmStr, n, 1) = Chr(ch)
    Next

    MsgBox "Random string is = " & RndmStr


Try this function:

Code:

Public Function RndString() As String
   Dim Rndmstr As String, i As Integer, n As String
 
   Randomize (Int((122 - 48 + 1) * Rnd + 48))
 
   For i = 1 To 10
       n = Int((122 - 48 + 1) * Rnd + 48)
       Rndmstr = Rndmstr + Chr(n)
   Next i
   RndString = Rndmstr
End Function

Add a command button in your form and add this code to Event Procedure.

Code:

MsgBox RndString

Thanks for this usefull post.....