Access挑战Excel第十五期：图片浏览

roych

出于减少代码量的考虑，这里不打算自定义文件夹（所以解压后不要改变相对路径哦），连按钮都省掉了，点击下方的导航器即可跳转记录。
代码不多，加上错误处理也就7行。

1. Private Sub Form_Current()
   
2.     On Error GoTo Err_Handler
   
3.     Me.imgPicture.Picture = CurrentProject.Path & "\img" & Me.UserName & ".jpg"   
   
4. Err_Exit:
   
5.     Exit Sub
   
6. Err_Handler:
   
7.     MsgBox "无图片"
   
8.     GoTo Err_Exit
   
9. End Sub

复制代码

当然，也可以强行忽略错误，即改为（不过不太建议这么做）：

1. Private Sub Form_Current()
   
2.     On Error Resume Next
   
3.     Me.imgPicture.Picture = CurrentProject.Path & "\img" & Me.UserName & ".jpg"
   
4. End Sub

复制代码

此外，我还写了一个宏。显然，宏在错误处理方面比较弱，进入新纪录时会弹出无法打开文件夹的错误提示。

-------------------------------------------------------------------------------------------------------------------

Excel据说是可以做到的，不过需要一点小技巧。

游客，如果您要查看本帖隐藏内容请回复

这里使用了定义名称和引用，不过当然是做不到子窗体模式的效果的。

roych

纸鸽 发表于 2016-4-7 16:28
谢谢

不过我想的不是批量插入图片，是动态插入图片，比如根据文件夹内的图片，每次打开工作簿，添加新 ...

大概需要执行一个插入图片的操作吧。
方法1、增删改时，先删除所有旧的图片，然后批量插入（链接已经给过了）。
方法2、由于图片没有filename属性，因此需要在单元格存储，然后通过历遍单元格来插入图片。

roych

pureshadow 发表于 2016-4-11 16:58
这东东用Excel做无代码版，确实可以，但现实中不太主张这样做，那么多张图片在一个工作簿里，要慢出人命的 ...

不过这功能的确很常见的，例如，工牌的打印，员工档案打印什么的。这里只做了窗体的，不过报表也是可以实现的。

roych

纸鸽 发表于 2016-4-12 09:33
妖姐，有邮件合并的教程链接吗，我一点都不懂。。。

邮件合并的玩法，基本是把word作为模板来用，以域字段的形式读取由Excel（或者Access）来提供的其它数据。
最常见的应用就是HR的劳动合同。每个人的身份证、底薪等数据都不尽相同，这时候就可以把这些数据存储在Excel或者Access表里，然后通过邮件合并的做法，对不同的员工打印每个员工的劳动合同。

做起来并不难，先按一定格式排版好，留出这些位置（例如身份证号码什么的），然后按Word的邮件合并向导，引入数据，再把这些字段填充到预留的位置就完成了。不过我没试过图片部分。