主题：[求助]代碼衝突，造成狐表停止工作怎麼解決

这样简化一下试试：

 

Dim r000 As Row = Tables("打辦登記表").Current

If r000 isnot nothing
     If r000("流程標記") >= 0 and r000("流程標記") < 6Then
         e.Form.Controls("CheckBox" & r000("流程標記")).Checked = e.Form.Controls("CheckBox7").Checked
     End If

     Dim nm As String = e.Sender.Name
     e.Form.Controls("ComboBox1").Value = Nothing 
     e.Form.Controls("ComboBox1").Enabled = not e.Form.Controls("CheckBox7").Checked  
     For ck As Integer = 0 To 6
          e.Form.Controls("CheckBox" & ck).Enabled = e.Form.Controls("CheckBox7").Checked

          e.Form.Controls("CheckBox" & ck).Checked = (nm = "CheckBox" & ck)
     Next
     e.Form.Controls("ComboBox1").Value = r000("編輯者")

end if

简化只在原基础上进行，现在需要您告诉这些代码用于哪一个事件？

只要是全局事件，就要判断控件名称，有的控件根本没有Checked属性，您为何没有这层判断？