ใส่โค้ดนี้เข้าไปแล้วไม่สามารถทำงานได้ค่ะ แล้วก็มีแจ้งเตือนแสดงค่ะ รบกวนด้วยค่ะ

[S'Saifon SB B'Banjongjairak]

Private Sub next_Click()
    On Error GoTo myerror
        DoCmd.GoToRecord , , acNext
    Exit Sub
myerror:
    MsgBox "End Record"
End Sub

แจ้งเตือน
A problem occured while Microsoft Access was communicating with the OLE server or Activex control

[สันติสุข]

เข้า VBA Editor แล้วเลือ Debug > Compile และดูที่ Tools > Reference ดูว่ามีบรรทัดไหนที่ทำเครื่องหมายเลือกไว้ แต่มีคำว่า Missing นำหน้าบ้าง  ถ้ามีก็แปลว่า ไลบรารี่ ตัวนั้นหายไปจากระบบ ถ้าไม่ได้ใช้ก็ไม่ต้องทำเครื่องหมาย แล้ว Compile อีกที

ลองอ่านอันนนี้ด้วยครับ ไม่แน่ใจว่าเกี่ยวข้องหรือไม่
https://www.thai-access.com/yeadram_view.php?topic_id=2120

[S'Saifon SB B'Banjongjairak]

เข้า VBA Editor แล้วเลือ Debug > Compile และดูที่ Tools > Reference ดูว่ามีบรรทัดไหนที่ทำเครื่องหมายเลือกไว้ แต่มีคำว่า Missing นำหน้าบ้าง  ถ้ามีก็แปลว่า ไลบรารี่ ตัวนั้นหายไปจากระบบ ถ้าไม่ได้ใช้ก็ไม่ต้องทำเครื่องหมาย แล้ว Compile อีกที

ลองอ่านอันนนี้ด้วยครับ ไม่แน่ใจว่าเกี่ยวข้องหรือไม่
https://www.thai-access.com/yeadram_view.php?topic_id=2120

ลองทั้งสองวิธีแล้วใช้ไม่ได้ค่ะ T^T
เราไใช้ Access 365 เกี่ยวกันไหม

[S'Saifon SB B'Banjongjairak]

ขออนุญาติ แนบไฟล์ค่ะ

[สันติสุข]

1. ในรูปผมเห็น Missing Library ตามที่คาดเอาไว้เลย ให้เอาออกครับ เสร็จแล้ว Compile แล้ว Save และออกจาก Access ไปเลย


2. เข้า Access ใหม่ สร้างฐานข้อมูลเปล่าตัวใหม่ แล้ว Import ทุกอย่างจากไฟล์เก่า โดยไปที่ External Database > Access > ใส่ File Name > คลิก Import > เลือกทุกอย่างจาก Table, Query, ... > คลิก OK แล้วใช้ไฟล์ใหม่แทน