Random ข้อมูล



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

22 พ.ค. 64 , 09:36:24
อ่าน 423 ครั้ง

naekkhung

Random ข้อมูล
« เมื่อ: 22 พ.ค. 64 , 09:36:24 »


ผมมี ฟิวส์ชื่อ TCC เก็บรหัสพนักงาน TCC001-TCC010 ความต้องการคืออยากให้ใน คิวรี่ Random ข้อมูลฟิวส์ TCC ตามตัวอย่างในรูปชื่อฟิวส์ TCC Randow ต้องเขียนในคิวรี่แบบไหนครับแล้วมันสามารถทำให้มันไม่ซ้่ำข้อมูลเดิมได้ไหม

 

24 พ.ค. 64 , 09:54:46
ตอบกลับ #1

PNR

: Random ข้อมูล
« ตอบกลับ #1 เมื่อ: 24 พ.ค. 64 , 09:54:46 »
ถ้าใช้การสร้างปุ่มแทนได้ไหมครับ
สมมุติมีตารางตารางชื่อ table1 เก็บข้อมูลตามในรูปของคุณ
ที่ปุ่มใส่โค๊ดนี้เข้าไปครับ


Private Sub Command1_Click()
Dim rstRandom As Recordset
Dim rstOut As Recordset
Set rstRandom = CurrentDb.OpenRecordset("SELECT Table1.TCC, Rnd(Val(Right([TCC],3))) AS ID FROM Table1 ORDER BY Rnd(Val(Right([TCC],3)));", dbOpenDynaset)
Set rstOut = CurrentDb.OpenRecordset("table1", dbOpenDynaset)

rstRandom.MoveFirst
rstOut.MoveFirst
Do Until rstRandom.EOF
rstOut.Edit
rstOut!TCCRANDOM = rstRandom!TCC
rstOut.Update
rstRandom.MoveNext
rstOut.MoveNext
Loop
End Sub

วิธีนี้ใช้ ฟังชั้น RND() เพื่อสุ่มข้อมูลที่ต้องการ แล้วนำไปวางสุ่มในฟิลล์ที่ต้องการครับ
« แก้ไขครั้งสุดท้าย: 24 พ.ค. 64 , 10:03:34 โดย PNR »
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa, naekkhung

24 พ.ค. 64 , 11:54:30
ตอบกลับ #2

naekkhung

: Random ข้อมูล
« ตอบกลับ #2 เมื่อ: 24 พ.ค. 64 , 11:54:30 »
ปุ่มก็ได้ครับ ขอถามเพิ่มครับแล้วถ้าเกิดผมมีเงื่้อนไขเพิ่ม กรณีผมมีฟิวส์ชื่อ monthly เก็บข้อมูลเดือน Jan-Dec และฟิวส์ sex เก็บเพศ ชาย หญิง ความต้องการคือให้กรองข้อมูลเฉพาะเดือน May เพศเลือก ชาย ให้เอาข้อมูล TCC มา Random เขียนแบบไหนครับ

 

24 พ.ค. 64 , 14:01:06
ตอบกลับ #3

PNR

: Random ข้อมูล
« ตอบกลับ #3 เมื่อ: 24 พ.ค. 64 , 14:01:06 »
ปุ่มก็ได้ครับ ขอถามเพิ่มครับแล้วถ้าเกิดผมมีเงื่้อนไขเพิ่ม กรณีผมมีฟิวส์ชื่อ monthly เก็บข้อมูลเดือน Jan-Dec และฟิวส์ sex เก็บเพศ ชาย หญิง ความต้องการคือให้กรองข้อมูลเฉพาะเดือน May เพศเลือก ชาย ให้เอาข้อมูล TCC มา Random เขียนแบบไหนครับ

ไม่ยากครับ สร้าง control ไว้ระบุ Criteria ที่ต้องการ เช่นมี คอมโบบ๊อกเลือกเพศ และ เดือน ไว้ระบุเงื่อนไขที่เราต้องการ
แล้วกำหนด recordset ทีหลัง

สร้างข้อมูลตัวอย่างมาครับ
เดี่ยวผมปรับโค๊ดให้
« แก้ไขครั้งสุดท้าย: 24 พ.ค. 64 , 14:14:07 โดย PNR »
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: naekkhung

24 พ.ค. 64 , 16:23:49
ตอบกลับ #4

naekkhung

: Random ข้อมูล
« ตอบกลับ #4 เมื่อ: 24 พ.ค. 64 , 16:23:49 »
ข้อมูลตัวอย่างครับ

 

25 พ.ค. 64 , 12:35:35
ตอบกลับ #5

PNR

: Random ข้อมูล
« ตอบกลับ #5 เมื่อ: 25 พ.ค. 64 , 12:35:35 »
ลองดูนะครับ
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: naekkhung

25 พ.ค. 64 , 18:15:29
ตอบกลับ #6

naekkhung

: Random ข้อมูล
« ตอบกลับ #6 เมื่อ: 25 พ.ค. 64 , 18:15:29 »
ขอบคุณมากครับ  :miao:

 


บอร์ดเรียนรู้ Access สำหรับคนไทย