求助！关于鼠标移动事件出错的问错，希望还能得到小宝版的帮助，先谢谢了！！

sxb2007

求助！关于鼠标移动事件出错的问错，希望还能得到小宝版主的帮助，先谢谢了！！

t小宝

Private Sub Form_Load()
Call ButtonEffectInit(Me)
End Sub

Private Function ButtonEffectInit(Formolll As Form)
   
    Dim ctl As Control
   
    For Each ctl In Formolll.Controls
        If ctl.ControlType = acCheckBox Then
            If Left(ctl.Name, 3) = "qxz" Then
                ctl.OnMouseMove = "= zxzhiduanppp([form], [" & ctl.Name & "])"
            End If
        End If
    Next
   
End Function

Private Function zxzhiduanppp(cc As Form, cd As Control)

    If Nz(cc.Parent.qx2) <> cc(cd.Name & "_Label").Caption Then
        cc.Parent!List5.Requery
        cc.Parent.qx2 = cc(cd.Name & "_Label").Caption
    End If

End Function

t小宝

补充：   
引用当前窗体可直接用[Form]，中括号前后不要留空
原来的Private sub zxzhiduanppp() 是过程，把sub 改为 Function 变成函数，方可在控件的事件属性中引用

sxb2007

感谢小宝的帮助谢谢了！！

我那个筛选问题能不能也帮解决一下啊，谢谢了！！！！！！