ที่ฟอร์มที่บันทึกข้อมูล ใส่ Event ที่ AfterUpdate ตั้งแต่ field ที่ 1-11
     Me.field11="บันทึกข้อมูลแล้ว"

เหมือนเดิมเลย
Left([ฟิลด์],InStr([ฟิลด์],'(')-1) & Mid([ฟิลด์],InStr([ฟิลด์],')')+1,Len([ฟิลด์]))

ใช้งานได้เป็นอย่างดี ประหยัดเวลาทำงานไปอีกเยอะเลยครับ
ขอบพระคุณอาจารย์มากครับ  /|\

ผมอ่านคำถามแล้วไม่รู้เข้าใจถูกป่าว
คือปุ่มคำสั่งนี้ ใช้กับคอมพิวเตอร์บางตัวได้ บางตัวไม่ได้
หรือ
ในเครื่องเดียวกัน เดี๋ยวได้เดี๋ยวไม่ได้

ถ้าเป็นอันแรก ก็ต้องดู Access ของเครื่องที่ทำได้ และที่ทำไม่ได้ด้วย
ถ้าเป็นอัน 2 ก็ต้องดูเงื่อนไขด้วย ว่าเป็นไปตามเงื่อนไขรึป่าว
เงื่อนไขนี้ If Me.TCtlrRCB > 0 Then
และคำสั่ง Visible ถ้ามี Focus ที่ปุ่มนั้น มันก็ไม่ทำงานนะครับ

Access เป็นจาก นามสกุล mdb มาเป็น accdb ตั้งแต่
Office 2007 ถ้าใช้รุ่นต่ำกว่านี้ จะเปิดไม่ได้ครับ

ถ้าอยากจะได้คำสั่งในไฟล์ที่ส่งมา ก็นำไฟล์ไปเปิดใน Office
ตั้งแต่รุ่น 2007 ขึ้นไป แล้ว copy code ใน notepad แล้ว
ค่อยเอามาเปิดในเครื่องที่มี office 2003 แล้วค่อย copy
ใส่ปุ่มคำสั่งครั้บ

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

เผื่อไม่เข้าใจที่ อ.PNR บอกนะครับ
ทำ Query ให้ใหม่ ชื่อ Query1
ทำ Report ให้ใหม่ ชื่อ Report

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

ผมส่งไฟล์ให้หลังไมค์แล้วนะครับ มันมีชื่อบุคคลอื่นอยู่ด้วย เลยไม่ได้โพสข้องหน้า

ขอบพระคุณอาจารย์มากครับ

คลิกขวาที่ตารางหรือ Query นั้น แล้วเลือกส่งออกเป็น Text ครับ