Usar función Dir para saber si el archivo existe en consulta de Access

Eso es porque la función Dir es una función de VBA, no una función de Access, pero muy fácilmente puedes construirte una función propia (que pondrás en un módulo independiente) que usando Dir, te diga si existe o no, por ejemplo:

Public Function fncExiste(elArchivo As String) As Boolean
   fncExiste = Not CBool(Dir(elArchivo, vbArchive) = "")
End Function

y en la consulta la usas poniendo: 

Existe: fncExiste([RutaImagen])

o

Existe: fncExiste([Ruta] & "\" & [Categoría] & "\" & [Subcategoría] & "\" & [NombreArchivo])

Y te devolverá 0 si el archivo no existe o -1 si existe.

También puedes optar por una función de este otro tipo:

Public Function fncExiste(elArchivo As String) As String
   If Dir(elArchivo, vbArchive) = "" Then
      fncExiste="No existe"
   Else
      fncExiste="Sí existe"
   End If
End Function

y la usas del mismo modo. Te dirá: "No existe" o "Sí existe" (o el texto que le quieras poner)