在Access窗体中显示指定路径的图片-程序输写jlac 1-1.窗体显示数据库相同目录下文件夹中的图片 private sub form_current() dim photopath as string photopath= currentproject.path & ”\与Access文件相同目录下的图片存储文件夹名\” & me![图片文件名=窗体中显示的字段名=表中的字段显示名] & ”.jpg” me.image7.picture=photopath end sub 1-2.窗体显示数据库不同目录下文件夹中的图片 private sub form_current() dim photopath as string photopath=”\图片存储文件夹路径（此修改可以使数据库文件与图片文件夹不在同一目录下）\”& me![图片文件名=窗体中显示的字段名=表中的字段显示名]& ”.jpg” me.image7.picture=photopath end sub 2.如果不存在这图片，为使程序有效，定义一个无图片的图片noimg.jpg private sub form_current() dim photopath as string photopath= currentproject.path & ”\与Access文件相同目录下的图片存储文件夹名\” & me![图片文件名=窗体中显示的字段名=表中的字段显示名] & ”.jpg” if dir(photopath) = “” then photopath=currentproject.path & “\与Access文件相同目录下的图片存储文件夹名\noimg.jpg” me.image7.picture=photopath end sub 3.定义多个图片显示 private sub form_current() dim photopath as string, photopath2 as string photopath= currentproject.path & ”\与Access文件相同目录下的图片存储文件夹名\” & me![图片文件名=窗体中显示的字段名=表中的字段显示名] & ”.jpg” if dir(photopath) = “” then photopath=currentproject.path & “\与Access文件相同目录下的图片存储文件夹名\noimg.jpg” me.image7.picture=photopath photopath2= currentproject.path& ”\与Access文件相同目录下的图片存储文件夹名2\” & me![图片文件名=窗体中显示的字段名=表中的字段显示名] & ”.jpg” if dir(photopath) = “” then photopath=currentproject.path & “\与Access文件相同目录下的图片存储文件夹名\noimg.jpg” me.image9.picture=photopath2 end sub 本文来源：https://www.wddqw.com/doc/d2b31b467d21af45b307e87101f69e314232fa73.html