มันใช่ปัญหาการถูก Lock ไฟล์ เมื่อนำไฟล์จำพวกที่มีการรันโค้ดไปเปิดที่เครื่องอื่นหรือป่าวครับ
ลองดูคลิปนี้ของ อ.TTT หรือยังครับ

ลองดูคลิปนี้ของ อ.TTT นะครับ

น่าจะเขียนโค้ดไม่ครบนะครับ ไม่รู้ว่าเราดูคลิปเดียวกันป่าว ตามที่ผมเข้าใจอาจารย์บอกในคลิปว่า หากวันที่น้อยกว่าวันที่ปัจจุบันให้ลบออก 1 เดือน แต่หากเท่ากันหรือมากกว่าก็ไม่ต้องลบเดือน แต่คุณใช้โค้ดนี้

วัน : IIf(Day([ptts1_Exp])-Day(Date())<0,DateDiff("d",DateAdd("m",DateDiff("m",Date(),[ptts1_Exp])-1,Date()),[ptts1_Exp]),Day([ptts1_Exp])-Day(Date()))

มันหมายถึงวันที่เป้าหมายน้อยกว่าวันที่ปัจจุบันเท่านั้น ในคลิปมันต้องเขียนต่อด้วยว่าหากวันที่เท่ากันหรือมากกว่าต้องมีเขียนต่อนะครับ ไม่รู้ผมเข้าใจถูกหรือป่าว หรือ จขกท ดูคลิปไม่จบ ผมดูในคลิปโค้ดมันยาวกว่านี้เยอะเลยอะครับ

คือผมมีตารางสมมุติ TabelA แล้วผมต้องการสำเนาลงใน TableB ที่มีฟิลด์ทุกอย่างเหมือนกัน ผมใช้คำสั่ง SQL Insert Into ก็ไม่ได้ ลองใช้เป็น DAO ก็ไม่ได้ แต่ถ้าตัดฟิดล์ที่เป็น Attachment ออกไป มันจะใช้ได้ ก็เลยรู้ว่าฟิลด์ Attachment ไม่รองรับ ผมต้องเขียนคำสั่งยังไงหากต้องการก๊อปปี้ข้อมูลฟิลด์ Attachment จากตาราง A ไฟตาราง B ครับ

อัปเดตเพิ่มเติมนะคะ ตอนนี่สามารถอัปเดตข้อมูลได้แล้ว โดยการสร้าง temp table รองรับข้อมูลจาก oracle ก่อน แล้วจึงใช้คำสั่งอัปเดตค่ะ

ทำยังไงอะครับ ขอวิธีคร่าวๆหน่อยได้มั้ยครับ

สำหรับ Gmail ใช้อันนี้ได้ครับ
https://wellsr.com/vba/2020/excel/vba-send-email-with-gmail/
แล้วก็เปิด App password gmail นำพาสที่ได้มาใช้ครับ

อันนี้ใช้งานได้จริง ลองแล้วครับ ติดอย่างเดียวครับ ในส่วนเนื้อหา Textbody ไม่รองรับภาษาไทย แก้ไขยังไงได้บ้างครับ

แนะนำให้ดูคลิปนี้ครับ สูตรนี้คำนวณแล้วไม่พลาดครับ ทดสอบลองใช้แล้ว

อันนี้สร้างได้ทั้งบนฟอร์มและรายงานเลยครับ


เครดิต อ.TTT

ขอโทษนะครับ ใช้โปรแกรแท้หรือเถื่อนอะครับ ผมเคยใช้ที่เค้าแจกกันแบบเถื่อนบางตัวก็ใช้ได้บางตัวก็จะมีปัญหาแบบนี้อะครับ ผมเลยไปใช้ 365 แนะนำนะครับ