私のアクセス事典−乱数を発生させる

 

a@081209

 

 

 

 

■ 乱数を発生させる

@プロパティ「イベント」タブで「…」VBAの作成を行う

 

A次のような記述を行う

Const intLowRnd = 始まりの数字

Const intUpRnd = 終わりの数字

Me.[フィールド名] = Int((intUpRnd - intLowRnd + 1) * Rnd + intLowRnd)

 

B乱数が発生してフィールドに入力されるようになりました。

 

(補足)

テーブルを利用してランダムの数字をつける方法もありますね

 

 

 

書棚 〕 〔 目次

□──────────────────────────────────────────────────────────────────────────────────□