连续表格 - 图像控制点击事件以识别当前记录

时间:2015-10-02 11:08:24

标签: ms-access access-vba ms-access-2007 ms-access-2010 ms-access-2013

我有一个看起来像这样的子表单,我想用作任务列表:

enter image description here

使用名为 TaskStatus 的是/否字段在记录中将任务标记为已完成;这显示为上面屏幕截图右侧的复选框控件。

虽然不是使用此复选框,但我想做更多花哨的事情并让用户点击显示的名为 imgTaskIcon 的图片控件作为左侧的红色标记,它将适当地标记记录的 TaskStatus 字段,并将其自己的图像切换为红色标记(未完成)或绿色勾号(已完成)。

目前,我已将 imgTaskIcon 的控制源设置为查看记录中另一个(隐藏)字段,该字段存储了相应的已完成/的路径没完成的图像。

然后我在 imgTaskIcon 点击事件上运行此代码,该事件实际上切换 TaskStatus 从是(-1)到否(0):

Private Sub imgTaskIcon_Click()

    If _
        Me.TaskStatus = -1 _
    Then
        Me.TaskStatus = 0
    Else
        Me.TaskStatus = -1
    End If

    toggleTaskStatusIcon

End Sub

然后toggleTaskStatusIcon,它为记录设置正确的图像路径:

Public Sub toggleTaskStatusIcon()

    If _
        Me.TaskStatus = -1 _
    Then
        Me.TaskStatusIcon = "P:\myPath\CompletedIcon.png"
    Else
        Me.TaskStatusIcon = "P:\myPath\NotCompletedIcon.png"
    End If

End Sub

切换第一条记录时,此方法正常:

enter image description here

但是,单击第二条记录上的图像,只需再次切换第一条记录:

enter image description here

首先点击记录中的其他控件,然后我可以单击图像控件,切换在适当的记录上工作。因此,当点击图像控件时,它似乎不会将当前记录更改为自己的记录。

有没有办法让图像控件对它的生活位置不那么矛盾?

0 个答案:

没有答案