ต้องการส่ง line notify ไปหาหลายคนจากการกดครั้งเดียว

[aek]

ตามหัวข้อนะครับ ผมมีตารางบริษัทตัวอย่าง 3 ที่
ลำดับ    บริษัท   สินค้า1   สินค้า2     สินค้า3      รหัส Token
  1      A             1            1            1       aaaaaaaaaa
  2      B             2            2            2       bbbbbbbbbb
  3      C             3            3            3       ccccccccccc
ผมทำ Line notify แจ้งจำนวนสินค้าให้แต่ที่ได้ครับ แต่ต้องกดส่งแต่ละลำดับที่ ถ้าผมต้องการกดครั้งเดียวแล้วส่งแจ้งแต่ละที่พร้อมกันจะต้องทำอย่างไรครับ ขอบคุณครับ

ตามตัวอย่างนี้ครับ แต่อันนี้เป็น Excel
https://www.facebook.com/ExcelApirak/videos/522604525030580/

[chai]

Loop RecordSet ครับ อาจเก็บสถานะไว้ 1 ฟิวด์ว่าส่งแล้ว เช่น status=0 ยังไม่ส่ง 1=ส่งแล้ว ครั้งต่อไปเวลากดก็ให้ส่งเฉพาะที่สถานะใหม่เท่านั้น
ตัวอย่าง เช่น
dim db as dao.database
dim rs as dao.recordset
dim sqlStr as string
dim ms as String 'Message


sqlStr = "SELECT * FROM table_dataxxx as c WHERE status=0"

set db = currentDb
set rs = db.openRecordset(sqlStr)

rs.movefirst

do while not rs.EOF
  ms=rs!fieldName & xxx... 'สร้าง Message
  call LineNotify(ms,rs!token) 'เรียกใช้ Sub พร้อมกับส่ง Argument
  docmd.runsql "๊Update table_dataxxx Set status=1 Where id=rs!id"
  rs.movenext
loop

ผิดพลาดประการใดต้องขออภัยด้วยครับ

[aek]

ขอบคุณมากๆครับ เดี๋ยวจะพยายามทำดูครับ(มือสมัครเล่น) อาจารย์ท่านไหนมีตัวอย่างหรือทำเป็นแนวทางรบกวนขอหน่อยนะครับ ขอบคุณครับ

[sjs]

ลองดูครับแบบนี้ได้ไหม ลองดูที่ Query : Query1-SendLine

[aek]

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