เรียนอาจารย์ทุกท่านและผู้รู้ครับทุกคนครับ
ขอสอบถามเรื่องการเลือกข้อมูลจาก ListBox แล้ว นำรายการที่เลือกมาต่อกันครับ
คือ ผมมี Listbox ที่มีรายการ ID และ Email 2 คอลัมน์ ต้องการการเขียน Code
เมื่อคลิกเลือกข้อมูลใน Listbox ลงใน Tx01 หากเลือกมากกว่า 1 รายการก็ให้เอา Email มาต่อกัน
เช่น A@hotmail.com;B@hotmail.com;C@hotmail.com
ตรงคำสั่ง SQL จะเขียนแบบไหนครับ
ผมทดลองทำตามตัวอย่างอาจารย์สันติสุข แต่ติดตรงจะเอามาต่อข้อความกันยังไงครับ รบกวนแนะนำด้วยครับ
คือผมจะทำการเลือก Email เพื่อส่งหลายๆคนครับ
Private Sub ListBox_Click()
Dim dbs As Object, rst As Object
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select * From TB_Email Where ID =" & Me.Listbox)
If Not rst.EOF Then
Me.TX01 = rst("Email")
Else
MsgBox "ไม่พบข้อมูล", vbOKOnly, "No data"
End If
rst.Close
dbs.Close
Set rst = Nothing
Set dbs = Nothing
End Sub
ขอบคุณครับ