Question

问题：

在我的表单中我需要做什么我可以使用一个comboBox并让它在表单和表格上自动填充图片？

信息：

在Microsoft Access 2007中，我有1个表和1个表单。该表格包含姓名，电话，地址和图片的所有信息，所有信息均显示在表格中。我有一个用于com，fam1，fam2和fam3的ComboBox，当我在comboBox上选择一个名字时，它会自动填充表格和com，com手机和com地址的信息，但不是图片。我想我需要为组合框的“改变”做一些VB编码。图1显示了表格的格式。图2显示了表单的格式。

Picture1 http://dplcollagentherapy.com/pic01.JPG

Picture2 http://dplcollagentherapy.com/pic02.JPG

Answer 1

我能够通过以下代码弄清楚如何更新com手机和com地址。但是comboBox没有让我将图片添加到第3列，这将使这更容易。我会在某个时候制作一份报告，让报告对图片进行查找可能会更容易。不知道我会为查找编码。再次感谢你。代码

Option Compare Database

Private Sub Combo30_Change()
Me.txtcomphone.Value = Me.Combo30.Column(1)
Me.txtcomaddress.Value = Me.Combo30.Column(2)
Me.com_picture = dlookup("name", "Elders", "Name=" & Com)
End Sub

Private Sub Combo32_Change()
Me.txtfam1phone.Value = Me.Combo32.Column(1)
Me.txtfam1address.Value = Me.Combo32.Column(2)
End Sub

Private Sub Combo48_Change()
Me.txtfam2phone.Value = Me.Combo48.Column(1)
Me.txtfam2address.Value = Me.Combo48.Column(2)
End Sub

Private Sub Combo56_Change()
Me.txtfam3phone.Value = Me.Combo56.Column(1)
Me.txtfam3address.Value = Me.Combo56.Column(2)
End Sub

Answer 2

我这样做的方法不是将实际图像放在表格中，而是将它们全部放在表格上。为每张图片指定与其关联的字段对应的唯一名称。每张照片都设置为不可见。然后在VBA中，您可以编写如下代码：

If Me.ComboBox = Name Then
Me.NamesPicture.Visible = True
Else
Me.NamesPicture.Visible = False
End If

你可以将所有图片堆叠在一起，VBA运行得非常顺利，过去我曾经用它来处理工作中的小项目。希望这有点帮助！：）

MS access 2007使用组合框来填充图片

2 个答案: