วันที่ผมได้ตอบคำถามไว้ที่
http://www.helptalk.net/forums/access/messages/123702.html
โดยเขาถามไว้ว่า
มีตารางชื่อ fFiles และมีฟีลด์ชื่อ Files ซึ่งเก็บชื่อไฟล์และห้องที่เก็บไฟล์นั้นไว้ด้วย ต้องการที่จะตรวจดูว่าแต่ละไฟล์ที่มีอยู่นั้นมีอยู่จริงหรือไม่
ถ้าไม่มีให้แจ้งชื่อไฟล์และห้องที่เก็บไฟล์นั้นให้ด้วย
ผมได้ตอบไว้ดังนี้
Sub CheckPath()
Dim dbs As Database, rst As Recordset
Dim I As Integer

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tblPath")
If Not rst.EOF Then
rst.MoveLast
rst.MoveFirst
For I = 1 To rst.RecordCount
If Dir(rst("Path")) = "" Then
MsgBox "The path is not correct" & vbCrLf & rst("path"), vbOKOnly, "Incorrect path"
End If
rst.MoveNext
Next I
Else
MsgBox "No data in this table", vbOKOnly, "No Data"
End If

End Sub