アクセスモジュールでの英数 乱数の生成教えて下さい

質問

整数の乱数生成は確認できています
英数混在の場合の方法がわかりません
よろしくお願いします

回答No.1

kkkkkm

たとえば8桁でしたら
Sub Test()
Dim mStr As String
Dim mHigh As Integer, mLow As Integer
Dim mRand As String, i As Integer

Randomize
mRand = ""
mStr = "abcdefghijklmnopqrstuvwxyz0123456789"
mHigh = 36
mLow = 1
For i = 1 To 8
mRand = mRand & Mid(mStr, Int((mHigh - mLow + 1) * Rnd + mLow), 1)
Next
Debug.Print mRand
End Sub