access制作校牌、学生证(批量导入照片)

使用ACCESS制作校牌、学生证等（批量导入学生信息及照片）

学校及很多单位都为了节省资金，自己制作工作证、校牌、学生证等证件，尤其是学校，每当新学年开学后，这项工作就必须去做了。由于学校学生数字庞大，因此利用Access的“报表”功能制作校牌或学生证件就方便快捷多了！下面我就和大家分享一下我制作校牌的方法：

一、校牌主要针对刚入学的学生的，入学后的新生需要建立学籍信息，我们可利用采集后的学籍照片，学生有重名的现象，为避免导入错误，照片名称我使用的是编号来进行命名的，例如2014年高一新生编号为140001、140002……（网上有许多批量命名的软件，操作简单）

二、校牌的主要信息体现三方面: 姓名、照片、编号，为减少繁多的文字，编号你可以自定义，也可以体现出学生的年级和班级（就好比考场的座位号一样）三、采用A4纸张进行彩色打印，条件好的学校或单位可以到广告公司，制作铜版纸的彩页，效果更好。我使用的是报表打印，每页10人，然后裁剪。

四、具体方法：（以我校为例）

1.建立一个EXCEL文件，整理好学生信息，里面包含主要两列姓名和编号，把照片放在一个“照片“文件夹内，其中的照片我使用的用编号命名，例如140001，可用软件批量命名（也可用姓名直接命名，但重名的容易错乱）

2.启动Access2003后新建数据库，然后导入第1步制作的Excel文件“2014级全体”，如下图：

3.制作报表，并设置页面，每页10个学生信息。姓名和编号是由库提供的：

4.导入照片的操作：首先在“工具箱”中点击“图像”控件，然后在你报表中你需要放照片的位置拖动鼠标，会弹开插入图片的对话框（先随意选择个图片插入再说，之后还要修改呢），如下图：

5.对着已插入的图片右键选择“属性”，弹开属性对话框，删除其中的图片地址“C:\Users\......”，如下图：

6.点击“视图”菜单中的“代码”命令，弹出编辑窗口，把下面一段代码复制并粘贴到窗口中，之后对红色代码做修改，就大功告成了！

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)

Dim imgpath As String

imgpath = Application.CurrentProject.Path & "\照片\" & Me!编号& ".jpg"

If Dir(imgpath) = "" Then imgpath = Application.CurrentProject.Path &

"\noimg.jpg"

Image7.Picture = imgpath

End Sub

7.最后的说明（很重要）：

①“照片”是指存放照片的文件夹名称，“编号”是指数据库中和照片名称一致的字段名，是个变量，例如我导入的数据库中有“编号”这个字段，我的照片也是用具体的编号来命名的，这样数据库才会使用“编号”这个字段中的值把“照片”文件夹中的具体照片一一对应起来。

②“Image7”是图形控件名，要与报表中的照片控件名一致（本例中是Image23，见上图）

③“noimg.jpg”是备用的一个自定义的名叫“noimg.jpg”图片，没有照片的学生就会显示这一图片，这个图片的名称可随意定义，但代码中的名称和照片的名称必须要保持一致。

④“照片”文件夹、数据库文件、“noimg.jpg”图片，这三者必须在同一目录下，这一点很重要！！！