最近筆者接到一個任務，要將學生的證書信息及相片打印到3 1技能證書模板上，并且還要傳到網上供用人單位查詢。原始數據分兩部分，一部分是包含學生姓名、身份證號、認證項目、證書編號等信息的Excel表;另一部分是按認證項目分類、以學生姓名為名的相片，圖片大小均為90×120像素，圖片格式均為JPG
　　考慮到時間上的緊迫性，還有用戶操作的易用性，以后上網查詢所需數據庫的兼容性，因此決定選用Access來開發。Access具有強大的窗體創建、報表打印、VBA編程功能，足以勝任大部分小型數據庫應用系統的開發。

　　創建數據庫和表

　　1. 打開Microsoft Office Access，創建一個空數據庫，與相片的分類目錄放在同一個文件夾下。

　　2. 使用“文件→獲取外部數據→導入”功能將Excel表直接導入Access中，保存為“證書信息”表。

　　創建證書信息報表

　　1. 創建“證書信息”報表，先插入一個“圖像”控件，設置其圖片屬性為證書模板圖片，設置其大小為證書模板的大小，設置其可見性為否，這樣有利于證書信息的排版，且不會打印出來；再依次插入要打印的字段列表，設置好字體和字號；最后再插入一個“圖像”控件，放置于打印相片的地方，設置其大小為相片的大小，設置其名稱為“stuimg”。

　　2. 依次點擊菜單欄“視圖→代碼”命令，進入VBA代碼編寫窗口，編寫如下代碼：

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

　　Dim imgpath As String

　　' 依據應用程序路徑、認證項目名稱、姓名得到相片路徑

　　imgpath = Application.CurrentProject.Path +"/" +認證項目.text +"/"+ 姓名.Text+".jpg"

　　' 判斷照片是否存在，如果不存在則顯示一張空白的圖片。

　　If Dir(imgpath) = "" Then imgpath = Application.CurrentProject.Path + "/noimg.bmp"

　　Stuimg.Picture = imgpath

　　End Sub