ต้องการสุ่มผู้ป่วย 150 คน
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 260   2
URL.หัวข้อ / URL
ต้องการสุ่มผู้ป่วย 150 คน

ผมมีฐานข้อมูลที่ต้องลงรหัสโรคแต่ด้องการสุ่มตรวจว่าลงข้อมูลครบถ้วนหรือไม่ 150 ข้อมูลจาก 3000 ข้อมูล จากทะเบียนผู้ป่วยที่กลับบ้าน(กระดาษ) ไม่ทราบว่าต้องใช้คำสั่งอะไรจึงจะเป็นการสุ่ม ผมลองใช้ RND ก็จะออกมาแค่ record เดียว

2 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R05463
ลองปรับใช้ดูนะครับ

Sub GetRandomHN()
Dim rst As Object, strHN As String, I As Integer, X As Integer
Set rst = CreateObject("ADODB.Recordset")
rst.Open "Select HN From Sheet1", CurrentProject.Connection
If Not rst.EOF Then
For X = 1 To 50
rst.MoveFirst
I = Int((49 - 0 + 1) * Rnd + 0)
rst.Move I
strHN = strHN & "'" & rst(0) & "',"
Next
' Remove extra , out.
If Len(strHN) <> 0 Then
strHN = Left(strHN, Len(strHN) - 1)
End If
Debug.Print strHN
rst.Close
rst.Open "select * from sheet1 where hn in (" & strHN & ")", CurrentProject.Connection, 1, 3
Debug.Print rst.RecordCount
Do While Not rst.EOF
' Do something here.
rst.MoveNext
Loop
End If
rst.Close
Set rst = Nothing
End Sub
2 @R05491
รบกวนข้อดูตัวอย่างหน่อยครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0611s