我需要vba函数来限制用户在访问表单数据表视图中重新排序/重新排列列？

Question

我在数据表视图中的访问表单中显示表记录。我需要限制用户使用function重新排序列。请帮我解决这个问题。

Public Function mouseup()
Dim ctl As Control
Dim ictl As Integer
For ictl = 0 To me.Controls.Count - 1
Set ctl = me.Controls(ictl)
If TypeOf ctl Is Access.TextBox Then
ctl.ColumnOrder = ictl + 1
End If
Next ictl
End Function      

以上我尝试过的事情。这是mouseup事件的参考 限制用户重新排序列。在mouseup事件中， 它的工作正常。但是，当我将其作为功能时，它不起作用。 我需要做什么？？我需要修改代码吗？如果是，那么什么 将是修改？