这样的代码能不能简化？

冷月无声　发表于：2018-11-02 18:01:22 　

如图的代码，能否归类简化而不用一个一个的写出来？

天马行空发表于：2018-11-02 20:41:25

'自定义函数

Private Function UpdateToCXZ(ReQ As Integer)

dim Num

Num = Right(Screen.ActiveControl.Name, 1)
If ReQ = 1 Then
Me("CXZ" & Num).Requery
Me("CXZ" & Num) = ""
End If
Me("CXZ" & Num).SetFocus
End Function

'调用

Call UpdateToCXZ(1)

冷月无声发表于：2018-11-06 10:38:16

谢谢！这样是需要一次调用就可以还是每个控件的更新都要单独调用？如果不是一次调用，还不是我想要的

总记录：2篇页次：1/1 9 1 :

Access交流中心