如何定义当前文件夹？

cyber-bobo · 发表于 2007-12-12 15:59:05

以下语句：
Me.Image3.Picture = "c:\" & Me.姓名 & ".jpg"

我想将c盘改为数据库所在的当前的文件夹下，该如何改？

andymark · 发表于 2007-12-12 16:11:42

CurrentProject.Path

cyber-bobo · 发表于 2007-12-12 19:33:31

ok! thank you:
Me.Image3.Picture = CurrentProject.Path & "\" & Me.姓名 & ".jpg"

tmtony · 发表于 2007-12-12 19:51:04

再改进一下, 如果 CurrentProject.Path  &  "\"  & Me.姓名 & ".jpg" 文件不存在的话, 程序会出错,而image3不能设置为空图片路径,所以要判断一下.
首先在当前程序路径建立一个空白的图片文件叫 empty.jpg
if dir(CurrentProject.Path  &  "\"  & Me.姓名 & ".jpg")="" then
Me.Image3.Picture = CurrentProject.Path  &  "\empty.jpg"
else
  Me.Image3.Picture = CurrentProject.Path  &  "\"  & Me.姓名 & ".jpg"
end if

cyber-bobo · 发表于 2007-12-12 22:29:29

good! 考虑周全，值得学习！

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 如何定义当前文件夹？

群介绍
主题无相 (随机显示版	同地区群块其他地区)