利用ACCESS制作准考证.pdfVIP

利用ACCESS 制作准考证 （批量导入考生信息及照片） 培训机构、学校经常会组织一些考试。每次考前都需要制作一批准考证。下面我就和大 家分享一下制作准考证的方法： 1、收集准考证信息。准考证上需要体现的一些信息，如考试名称、准考证号、姓名、性别、 身份证号码、单位或班级、考试名称或考试专业、考试时间、考场号、座位号、考试地 点等。 2、建立一个EXCEL 文件，将整理完成的信息录入到一张数据表格中。将考生照片放在一个 命名为“照片”文件夹内，其中考生照片使用身份证号码命名，可使用软件批量命名（也 可用编号或者能代表考生唯一身份的标识直接命名，注意：重名容易错乱）。 3、启动Access 后新建数据库，然后导入第2 步制作的Excel 文件“准考证”，如下图： 4 、制作报表，并设置页面，每页4 张准考证信息。所有数据是由库提供： 5、导入照片的操作：首先在“设计”- “控件”中选择“图像”控件，然后在你报表中你需 要放照片的位置拖动鼠标，会弹开插入图片的对话框（选择任意一张图片插入，之后需 要进行修改），如下图： 6、对着已插入的图片右键选择“属性”，弹开属性对话框，删除其中的图片地址 “C:\ Users\”，如下图： 7、点击“设计”- “工具”菜单中的“查看代码”命令，弹出编辑窗口，把下面一段代码复 制并粘贴到窗口中。 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 Image.Picture = imgpath End Sub 注意： ① “照片”是指存放照片的文件夹名称，“身份证号码”是指数据库中和照片名称一致的 字段名，是个变量，例如我导入的数据库中有“身份证号码”这个字段，我的照片也是 用考生的身份证号码来命名的，这样数据库才会使用“身份证号码”这个字段中的值把 “照片”文件夹中的相应照片对应起来。 ② “Image”是图形控件名，需要与报表中的照片控件名一致（本例中是Image）。 ③ “noimg.jpg”是备用的一个自定义的名叫“noimg.jpg”图片，没有照片的学生就会显示 这一图片，这个图片的名称可随意定义，但代码中的名称和照片的名称必须要保持一致。 ④ “照片”文件夹、数据库文件、“noimg.jpg”图片，这三者必须在同一目录下。