在Access窗体中显示指定路径的图片-程序输写jlac

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《在Access窗体中显示指定路径的图片-程序输写jlac》，欢迎阅读！

在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.dy1993.cn/WBO4.html