欣雨儿 2019-04-18 17:47 采纳率: 0%
浏览 682

为什么VB提示我编译错误

在VB中编辑窗体登陆界面这个代码请问哪里出错了啊?
求解!!!

Private Sub Command6_Click()
If IsNull(Trim(Me.用户名)) Then
DoCmd.Beep
MsgBox ("请输入用户名!"), vbOKOnly + vbExclamation, "错误"
Else
If IsNull(Trim(Me.密码)) Then
DoCmd.Beep
MsgBox ("请输入密码!"), vbOKOnly + vbExclamation, "错误"
Else
Me.RecordSource = "select * from 登陆表 where 用户名='" & Me.用户名 & "' and 密码='" & Me.密码 & "'"
'Set rs = GetRS(Str)
If Me.Recordset.EOF Then DoCmd.Beep
MsgBox ("用户名不存在或密码错误,请重新输入!"), vbOKOnly + vbExclamation, "错误"
Me.用户名 = ""
Me.密码 = ""
Me.用户名.SetFocus
Exit Sub
Else
DoCmd.Close
If n = 5 Then
DoCmd.Close
Else
n = n + 1
MsgBox ("欢迎进入胡大美美的查询界面!")
check = True
DomCmd.Openfform ("主查询窗体")
End If
End If
End If


  • 写回答

2条回答 默认 最新

  • threenewbee 2019-04-18 18:36
    关注

    MsgBox ("请输入用户名!"), vbOKOnly + vbExclamation, "错误"
    这里就错了
    应该是
    MsgBox "请输入用户名!", vbOKOnly + vbExclamation, "错误"

    下面还有几个类似的错误

    数据库的部分,没办法判断对错,你运行下,有错误把提示信息贴出来

    评论

报告相同问题?

悬赏问题

  • ¥15 求差集那个函数有问题,有无佬可以解决
  • ¥15 【提问】基于Invest的水源涵养
  • ¥20 微信网友居然可以通过vx号找到我绑的手机号
  • ¥15 寻一个支付宝扫码远程授权登录的软件助手app
  • ¥15 解riccati方程组
  • ¥15 display:none;样式在嵌套结构中的已设置了display样式的元素上不起作用?
  • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
  • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
  • ¥50 树莓派安卓APK系统签名
  • ¥65 汇编语言除法溢出问题