Access 中如何采集照片

我的作法是

在表中保存相片的存放路径，如：

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

---