Office中国论坛/Access中国论坛

标题: 如何定义当前文件夹？ [打印本页]

作者: cyber-bobo 时间: 2007-12-12 15:59
标题: 如何定义当前文件夹？
以下语句：
Me.Image3.Picture = "c:\" & Me.姓名 & ".jpg"

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

作者: andymark 时间: 2007-12-12 16:11
CurrentProject.Path

作者: cyber-bobo 时间: 2007-12-12 19:33
ok! thank you:
Me.Image3.Picture = CurrentProject.Path & "\" & Me.姓名 & ".jpg"

作者: tmtony 时间: 2007-12-12 19:51
再改进一下, 如果 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
good! 考虑周全，值得学习！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)