| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 액세스 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
Do While Not DCount("[구분번호]", "임시1") = 28
Dim min As Integer
Dim max As Integer
min = DMin("[구분번호]", "한자단어", "[급]='" & 급 & "'")
max = DMax("[구분번호]", "한자단어", "[급]='" & 급 & "'")
Dim a As Integer
a = Int(((max - min + 1) - 1 + 1) * Rnd) + min
Dim b As Integer
b = Int((3 - 1 + 1) * Rnd) + 1
If IsNull(DLookup("[구분번호]", "임시1", "[구분번호]=" & a)) Then
rsi.AddNew
rsi!구분번호 = a
rsi!세부번호 = b
rsi.Update
End If
Loop
=============================================================
위와 같이 max값 min값을 구하여 그 범위 안에서 rnd로 랜덤한
if문으로 테이블에 있는 숫자중 같은 숫자가 아니면 테이블에 넣도록 했는데요..
가끔씩 똑같은 숫자 배열이 들어갑니다..
ex) 1 5 7 10 22 14 이라는 수가 발생했는데
다음에 실행했을때도 똑같이 1 5 7 10 22 14가 들어가는 경우...
max값과 min값의 범위는 보통 1~100정도 되고 그중에서 10~30개의
숫자들을 발생시키는데 똑같은 배열이 생기는건 왜그런걸까요??
그냥 우연이라고 하기에는 좀 자주 생기던데요....
다른 좋은 방법이 있으면 알려주세요... |
|
액세스에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
