在社区的帮助下,我现在有了一个很棒的输入表格,需要进行一些调整: 请注意六个记录的样本:
如果我一次一个地通过记录前进(下一个记录按钮)或备份(上一个记录按钮),或者转到第一个记录(使用“第一个记录”按钮),它们都会正常显示。
但是,如果我从“查找成员”组合中选择任何成员,则除了始终显示最后一张图像的第一条记录外,所有图片都会正确显示。
以下是代码:
Private Sub Form_Current()
Dim strPath As String
If IsNull(Me!MemPicturePath) Then
strPath = "C:\MEMBER DATA BASE\IMG.jpg"
Me!MemPicturePath = strPath
Me.Refresh
MemberImage.Picture = Me.MemPicturePath
End If
Me.MemberImage.Picture = Me!MemPicturePath

有什么想法吗?
答案 0 :(得分:0)
Solved ....将Me.Refresh添加为最后一行。