主题：快崩溃！计划管理导致的问题

代码：

计划管理

登录计划

If Forms("登录") IsNot Nothing

    If Forms("登录").Opened

        Forms("登录").Controls("Crtm").text = "当前时间:"+ Format(Date.Now,"yyyy年M月d日 HH:m:s")

'Today 只是一个值

    End If

End If

 

心血来潮，将登录窗口的名字给改过来，不得了系统就不能用了，冒泡地涌现以下的出错提示：

此主题相关图片如下：tim截图20180804221543.png

怎么解决啊，

 

备份的文件和现有的差距太大了

此主题相关图片如下：tim截图20180804224042.png

这个方法阻止不了的

多谢，多谢，终于可以了，有点后怕！