Private Sub command1_click()
Dim myday As workdays
myday = workdays.saturday
If myday < workdays.monday Then
MsgBox "it's the weekend . invaild work day!"
End If
End Sub
我觉得应该是这样
你生成了一个新的实例,但赋值和比较时缺少对枚举名的引用.
发现二义性的名称：saturday
这就是你的代码中有申明了两次saturday，你搜索一下，删除其中一处就可以了。
这个申请过程可在你的整个过程与模块中。找一找。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024