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

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”图片，这三者必须在同一目录下，这一点很重要～～～