รบกวนสอบถามฟังก์ชั่น Random ครับ

[Eik Q Sang]

คือผมต้องการสร้างปุ่มไว้ Random ฟิวในเทเบิ้ลที่เป็น Text ต้องเขียนโค้ดอย่างไรบ้างครับ ขอบคุณมากครับผม

[ปิ่นณรงค์]

คือผมต้องการสร้างปุ่มไว้ Random ฟิวในเทเบิ้ลที่เป็น Text ต้องเขียนโค้ดอย่างไรบ้างครับ ขอบคุณมากครับผม

ผมไม่แน่ใจว่า จะเอาไปใช้ประโยชน์ในการทำงานของโปรแกรมตรงส่วนไหนนะครับ
แต่ผมได้ทำตัวอย่างการ random ข้อมูลที่เป็น text มาให้ดูเพื่อเป็นแนวทาง

ตัวอย่าง Code
Private Sub Command16_Click()
Randomize
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("table1", dbOpenDynaset)
With rs
If .EOF Then
MsgBox "ไม่พบข้อมูลในตารางที่ระบุ!!", vbOKOnly, "ระบบเช็คข้อมูล"
Else
.MoveLast
.AbsolutePosition = CLng(Rnd() * .RecordCount)
Me.text1 = !factory
End If
.Close
End With
Set rs = Nothing
End Sub

หมายเหตุ
table1 คือ ชื่อตารางที่ต้องการ Random
text1 คือ ชื่อ textbox ที่ต้องการแสดงผลการ Random
Factory คือชื่อ Field ในตารางที่ต้องการ นำมา Random

[Eik Q Sang]

คือผมต้องการสร้างปุ่มไว้ Random ฟิวในเทเบิ้ลที่เป็น Text ต้องเขียนโค้ดอย่างไรบ้างครับ ขอบคุณมากครับผม

ผมไม่แน่ใจว่า จะเอาไปใช้ประโยชน์ในการทำงานของโปรแกรมตรงส่วนไหนนะครับ
แต่ผมได้ทำตัวอย่างการ random ข้อมูลที่เป็น text มาให้ดูเพื่อเป็นแนวทาง

ตัวอย่าง Code
Private Sub Command16_Click()
Randomize
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("table1", dbOpenDynaset)
With rs
If .EOF Then
MsgBox "ไม่พบข้อมูลในตารางที่ระบุ!!", vbOKOnly, "ระบบเช็คข้อมูล"
Else
.MoveLast
.AbsolutePosition = CLng(Rnd() * .RecordCount)
Me.text1 = !factory
End If
.Close
End With
Set rs = Nothing
End Sub

หมายเหตุ
table1 คือ ชื่อตารางที่ต้องการ Random
text1 คือ ชื่อ textbox ที่ต้องการแสดงผลการ Random
Factory คือชื่อ Field ในตารางที่ต้องการ นำมา Random

ขอบคุณมากๆครับผม