主题：[求助]软件更新版本后，代码执行不了

2016的版本，现在升级到2022版。升级后，执行下面的代码没有反应，请问是什么原因呢？

 

With e.Form.Controls("组1")
If .FlatStyle = FlatStyle.system Then
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Dimgray
    .BorderSize = 0
Else
.FlatStyle = FlatStyle.system
End If
End With
With e.Form.Controls("组2")
If .FlatStyle = FlatStyle.system Then
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Dimgray
    .BorderSize = 0
Else
.FlatStyle = FlatStyle.system
End If
End With
With e.Form.Controls("组3")
If .FlatStyle = FlatStyle.system Then
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Dimgray
    .BorderSize = 0
Else
.FlatStyle = FlatStyle.system
End If
End With
With e.Form.Controls("组4")
If .FlatStyle = FlatStyle.system Then
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Dimgray
    .BorderSize = 0
Else
.FlatStyle = FlatStyle.system
End If
End With
With e.Form.Controls("组5")
If .FlatStyle = FlatStyle.system Then
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Dimgray
    .BorderSize = 0
Else
.FlatStyle = FlatStyle.system
End If
End With
With e.Form.Controls("组6")
If .FlatStyle = FlatStyle.system Then
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Dimgray
    .BorderSize = 0
Else
.FlatStyle = FlatStyle.system
End If
End With

此主题相关图片如下：qq截图20211206084310.jpg

With e.Form.Controls("组1")

添加了，.theme = "(none)”  也还是不行

With e.Form.Controls("组1")

试过上面代码，可以执行代码进行“选择”，但是如果再执行一次进行“取消”就不行了。原来的代码是点一下“选择”，再点一下“取消”

With e.Form.Controls("组1") if .theme = "(none)" then .theme = "Office2013Green" else .theme = "(none)"     .FlatStyle = FlatStyle.flat     .BackColor = Color.Dimgray     .BorderSize = 0 end if End With

谢谢有点蓝老师，现在可以了。但发现更新了系统后有好多地方代码都不通用了，比如：有一个保存按钮，代码是  Tables("原材料进仓新增_原材料进仓明细表盘").current.save  ，也是无法执行，请问都哪些地方改变了呢？

这个代码我测试没有问题，除非这个表是查询表