Rnd関数 ： Access

■ 構文
Rnd[(number)]

number ：（省略可能） 単精度浮動小数点数型の数値または任意の有効な数式を指定します。

■ 戻り値
numberの値が< 0 ： 引数 number のシード値によって決まる同じ数値を返します。
numberの値が> 0 ： 乱数系列の次の乱数を返します。
numberの値が= 0 ： 直前に生成した乱数を返します。
省略時 ： 乱数系列の次の乱数を返します。

■ 指定範囲内の乱数を発生させる（Integer内）
Int(( 上限値 - 下限値 + 1) * Rnd + 下限値 )

■ Access VBA 実行コード

Option Compare Database
Private Sub コマンド8_Click()
    Dim nUp As Integer
    Dim nLow As Integer
    Dim nRet As Integer
    nUp = Nz(Me!テキスト0, 0)
    nLow = Nz(Me!テキスト2, 0)
        If nLow >= nUp Then
        MsgBox "上限値と下限値の値が不正です。" & vbCrLf & "上限値 > 下限値 になるよう設定してください。"
        Exit Sub
    End If
    Me!テキスト4 = Null
    For i = 1 To 17
        '範囲内の乱数を発生させる
        nRet = Int((nUp - nLow + 1) * Rnd + nLow)
        '結果表示
        Me!テキスト4 = Me!テキスト4 & nRet & vbCrLf
    Next
End Sub