在表中保存相片的存放路径,如:
D:\Pic\保安组\吴**.BMP
然后在窗体中显示出来
代码如下:
Dim path As String
Sub showErrorMessage()
If Not IsNull(Me!相片) Then
错误信息.Visible = False
Else
错误信息.Visible = True
End If
End Sub
Function IsRelative(fName As String) As Boolean
' 如果文件名中包含驱动器名称或 UNC 路径,返回 False
IsRelative = (InStr(1, fName, ":") = 0) And (InStr(1, fName, "\\") = 0)
End Function
Sub hideImageFrame()
'隐藏图像控件
Me![照片图像].Visible = False
End Sub
Sub showImageFrame()
'显示图像控件
Me![照片图像].Visible = True
End Sub
'添加/更改相片
Private Sub Command93_Click()
On Error Resume Next
Me.ActiveXCtl94.CancelError = True
Me.ActiveXCtl94.DialogTitle = "添加/更改相片"
Me.ActiveXCtl94.FileName = ""
Me.ActiveXCtl94.Filter = "图片文件(.bmp)|*.bmp"
Me.ActiveXCtl94.Flags = cdlOFNCreatePrompt + cdlOFNHideReadOnly
Me.ActiveXCtl94.ShowOpen
If Err = cdlCancel Then Exit Sub
Me.照片路径 = Me.ActiveXCtl94.FileName
Form_Current
End Sub
'删除图片
Private Sub Command95_Click()
Me.照片路径 = Null
Form_Current
End Sub
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
End Sub
1、首先需要打开ACCESS点击这个想要设置的窗体的属性表。
2、然后就能在这里看到这个【图片】属性。
3、接下来可以点击这个小三点按钮。
4、有时候会看到这个报错页面,点击确定即可。
5、点击确定后,就能正常进行插入图片。
6、点击打开接下来就能点击打开,进行图片的嵌入。
7、如图所示即可读取并显示图片,即代表解决了ACCESS读取并显示图片的问题。
可以,存放图片是很费控件的,一般是存放路径的。Sub getPhoto()' 显示一个 OFFICE 打开文件对话框,为当前的员工记录选择一个文件名
' 如果用户选择了一个文件
' 则将它显示到图片控件中去
On Error GoTo Err_e
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "请选择员工照片"
.Filters.Add "所有文件.", "*.*" '对像显示 “文件选择器”对话框,并在消息框中显示每个选定的文件
.Filters.Add "JPG文件.", "*.jpg"
.Filters.Add "BMP文件.", "*.bmp"
.FilterIndex = 1 '返回或设置一个 long 类型,表示对话框的默认文件筛选
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path '设置或返回一个 string 类型 ,表示对话框中初始显示的路径和/或文件名
result = .Show '显示文件对话框并返回一个 long 类型,表明用户按下的 *** 作按钮(-1)还是取消按钮(0)。
If (result <>0) Then
fileName = Trim(.SelectedItems.Item(1))
'Item返回一个string类型,对应用户从问价对话框选择的文件路径,该对话框由FileDialong对象的Show方法显示。
Me.照片.Visible = True
Me.照片.SetFocus
Me.照片.Text = fileName
Me.员工信息ID.SetFocus
Me.照片.Visible = False
Me.LblError.Visible = False
End If
End With
Exit_e:
Exit Sub
Err_e:
MsgBox Err.Description
Resume Exit_e
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)