照片模块.docVIP

Private Sub Form_Current 如果照片存在，显示当前记录雇员的照片． 如果照片文件不存在,或文件名为空，在错误信息 标签上显示适当的信息． Dim res As Boolean Dim fName As String path CurrentProject.path On Error Resume Next 错误信息.Visible False If Not IsNull Me!照片 Then res IsRelative Me!照片 fName Me![照片路径] If res True Then fName path \ fName End If Me![照片图像].Picture fName showImageFrame Me.PaintPalette Me![照片图像].ObjectPalette If Me![照片图像].Picture fName Then hideImageFrame 错误信息.Caption 该员工照片未找到。 错误信息.Visible True End If Else hideImageFrame 错误信息.Caption 单击“添加/更改”按钮，添加该员工照片。 错误信息.Visible True End If End Sub Private Sub Form_RecordExit Cancel As Integer 在不同的记录间切换时，隐藏错误信息标签，以减少闪烁． 错误信息.Visible False hideImageFrame End Sub Private Sub 删除照片_Click 清雇员记录的照片文件名，并显示错误信息标签． Me![照片路径] hideImageFrame Me![照片图像].Picture 错误信息.Visible True End Sub Private Sub 添加照片_Click 使用 Office 文件打开对话框，获取一个雇员照片的文件名 getFileName End Sub Private Sub 照片路径_AfterUpdate 在选择了一个雇员照片后，显示照片． On Error Resume Next showErrorMessage showImageFrame If IsRelative Me!照片路径 True Then Me![照片图像].Picture path Me![照片路径] Else Me![照片图像].Picture Me![照片路径] End If End Sub Dim path As String Sub getFileName 显示一个 Office 打开文件对话框，为当前的雇员记录 选择一个文件名．如果用户选择了一个文件， 则将它显示到图片控件中 Dim fileName As String Dim result As Integer With Application.FileDialog msoFileDialogFilePicker .Title 选择申科员工照片 .Filters.Add 所有文件, *.* .Filters.Add JPEGs, *.jpg .Filters.Add 位图文件, *.bmp .FilterIndex 3 .AllowMultiSelect False .InitialFileName CurrentProject.path result .Show If result 0 Then fileName Trim .SelectedItems.Item 1 Me![照片路径].Visible True Me![照片路径].SetFocus Me![照片路径].Text fileName Me![姓名].SetFocus Me![照片路径].Visible False 错误信息.Visible False End If End With End Sub