ป้องกันการปิดด้วย X
Private Sub Form_Unload(Cancel As Integer)
    Cancel = True
End Sub

ยกเลิกการป้องกันการปิดด้วย X
Private Sub Command1_Click()
   Me.OnUnload = ""
End Sub

ขออนุญาตท่าน OddyWriter เอาไฟล์มาแก้ไขปรับปรุงครับ
ตัวนี้เสร็จเลยผมจำลองฐาน Person ที่มี cid มาให้เลยในตัว
กดปุ่มเดียวนำเข้าตรวจสอบอัพเดต status จบ

โปรแกรมสำเร็จรูปที่ว่ามันอ่านทีละคน แล้วมาพักใน c:\temp ซึ่ง Cid จะเปลี่ยนไปเรื่อยๆ
พอเสร็จแล้ว CID นี้จะถูกลบไปไหม หรือมี่ไฟล์อื่นสะสมไปเรื่อยๆ
เพราะเวลาจะเขียนให้ acess กดปุ่มไปอ่านชื่อไฟล์ มันจะรู้ได้ไงว่าจะเช็คไฟล์ไหน
สมมติมีหลายไฟล์ งั้นก็ต้องกดปุ่มเพื่อ Browse ไป select เอาไฟล์นั้น ๆ
after update คือได้ชื่อไฟล์มาวางใน Text box แล้วค่อยส่งไปเช็คในตาราง

วน loop อ่านชื่อไฟล์ใน folder แล้วเอาชื่อไฟล์ตัด .txt ออก
จากนั้น ไป count record
count=DCount("*","table","[cid]="' & cid จากชื่อไฟล์ &"'")
if count=0
   msgbox
end if

แอดไลน์ผมมาครับ ID : gerbkeeb จะคุยสะดวกกว่า ผมว่าไม่น่าจะยาก

หลักการคร่าวๆ คือผมแนะนำให้สร้าง batch file เพื่อรันคำสั่งนี้
dir /s /b *.txt  > ScanCID.txt
ผลลัพธ์ที่ได้คือ มันจะ scan ชื่อไฟล์นามสกุล .txt ทั้งหมดใน Folder
ไปเขียนลงใน textfile ชื่อ ScanCID.txt จะได้ผลลัพธ์ตามภาพ
จากนั้นเขียน code เพื่อวนลูปอ่าน textfile มาทีละบรรทัดแล้วตัดสตริงเอาเฉพาะ 13 หลัก
เพื่อส่งไปตรวจสอบ cid ในตาราง person ครับ
** พอดีผมมีไฟล์ภาพ อยู่ d:\photo เลยทำเป็นตัวอย่าง **

1. ต้องใช้รูป PNG ที่ทำพื้นหลังเป็น Transparent
2. กำหนด Background เป็น Transparent

ลองทำผ่าน safe mode  และลงทะเบียน Comdlg32.dll ด้วย cmd commands ครับ

สำหรับ 32บิต
cd\
C:
cd C:\windows\sysWOW64
regsvr32.exe %systemroot%\SysWOW64\Comdlg32.dll

หรือ สำหรับ 64บิต
cd\
C:
cd C:\windows\System32
regsvr32.exe %systemroot%\System32\Comdlg32.dll

#If Win64 Or VBA7 Then
    Private Declare PtrSafe Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
#Else
    Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
#End If

ใส่  PtrSafe   กับไม่ใส่