复选框选择

cgsilicone

你的想法是可以直接实现的。添加如下代码(复选框事件)即可。
Private Sub 选择_AfterUpdate()
   Me.Refresh
   Me.Parent.Image8.Picture = CurrentProject.Path & "\图片\" & Me.Parent![管理号码] & [ID] & ".jpg"
End Sub

Private Sub 选择_BeforeUpdate(Cancel As Integer)
    CurrentDb().Execute "UPDATE 7700299 SET 选择 = false"
End Sub