Vba 如何在选择记录时填充复选框？
我将鼠标光标放在“记录选择区域”上。Vba 如何在选择记录时填充复选框？,vba,ms-access,Vba,Ms Access,我将鼠标光标放在“记录选择区域”上。 我强调了几个条目 更新-1 情况1-imk_。 我从上到下（4、5、6）进行选择。 结果：复选框填写正确-4、5、6 情况2-问题。 我向下执行选择（6、5、4）。 结果：复选框按镜像6、7、8填充。 复选框以镜像方式填写。 问题。 如何使复选框正确填充，而不考虑选择记录的方向 您可以使用RecordsetClone执行此操作： Private Sub Form_MouseUp（按钮为整数，移位为整数，X为单个，Y为单个） Dim记录作为DAO.Re
我强调了几个条目
更新-1 情况1-imk_。
我从上到下（4、5、6）进行选择。
结果：复选框填写正确-4、5、6 情况2-问题。
我向下执行选择（6、5、4）。
结果：复选框按镜像6、7、8填充。
复选框以镜像方式填写。
问题。
如何使复选框正确填充，而不考虑选择记录的方向 您可以使用RecordsetClone执行此操作：
Private Sub Form_MouseUp（按钮为整数，移位为整数，X为单个，Y为单个）
Dim记录作为DAO.Recordset
低矮如长
暗顶和长顶一样
变暗偏移等于长
不算长
高度=Me.SelHeight
如果高度>1，则
Top=Me.SelTop
Me.SelHeight=0
如果Me.CurrentRecord>Top，则
偏移=高度-1
如果结束
Set Records=Me.RecordsetClone
记录。先移动
记录。移动偏移，Me。书签
对于计数=0到高度-1
记录，编辑
记录！PurchaseArea.Value=True
记录，更新
记录，下一步
下一个
记录，结束
如果结束
端接头
更新-1