access中的VB代码老提示缺少表达式,请高手给指导一下?
代码如下:
Public Sub name()
Dim Par As Single
Par = Val(InputBox("请输入成绩:", "输入提示"))
If Par <= 100 Then
MsgBox "成绩值有效", vbOKOnly + vbInformation, "计算结果"
Else
MsgBox "成绩无效", vbOKOnly + vbInformation, "错误无效"
End If
End Sub
[解决办法]
你的sub名起的跟系统既有的保留字冲突了吧。
改一下名字,比如说
Public Sub name111()
[解决办法]
试试看改一个sub名字