设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 5667|回复: 3
打印 上一主题 下一主题

请教:运行过程中出现:"无效使用Null"提示,请问问题出在哪里哟?

[复制链接]
跳转到指定楼层
1#
发表于 2010-10-12 12:18:48 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请教:运行过程中出现:"无效使用Null"提示,请大侠帮我看一下问题出在哪里哟?
我是新手刚学使用ACCESS哟!
Option Compare Database
Option Explicit
Public YHMC As String
Public SRYHMC As String
Public SRYHMM As String
Public SRMMTS As String
Public SRMMDA As String

Private Sub 确认_Click()
On Error GoTo Error_确认_Click
  SRYHMC = " "
  SRYHMM = " "
  SRMMTS = " "
  SRMMDA = " "
  If IsNull(Me![用户名称]) Then
     MsgBox "请输入用户名称!", vbExclamation, "输入用户名称"
     Me![用户密码].SetFocus
  ElseIf IsNull(Me![用户密码]) Then
     MsgBox "请输入用户密码!", vbExclamation, "输入用户密码"
     Me![用户密码].SetFocus
  ElseIf IsNull(Me![确认密码]) Then
     MsgBox "请输入确认密码!", vbExclamation, "输入确认密码"
     Me![确认密码].SetFocus
  ElseIf Len(Me![用户密码]) > 8 Or Len(Me![确认密码]) > 8 Then
     MsgBox "您输入用户密码或者确认密码太长,最多可以输入8个字符!", vbExclamation, "密码太长"
     Me![用户密码] = " "
     Me![确认密码] = " "
     Me![用户密码].SetFocus
  ElseIf Trim(Me![用户密码]) <> Trim(Me![确认密码]) Then
     MsgBox "您输入用户密码和确认密码不一致,请重新输入!", vbExclamation, "两次密码不一致"
     Me![用户密码] = " "
     Me![确认密码] = " "
     Me![用户密码].SetFocus
  Else
     SRYHMC = Me![用户名称]
     SRYHMM = Me![用户密码]
     SRMMTS = Me![密码提示]
     SRMMDA = Me![密码答案]
       DoCmd.Close
       DoCmd.OpenForm "面板 011用户注册", acNormal, , , , acWindowNormal
  End If
Exit_确认_Click:
  Exit Sub
Error_确认_Click:
  MsgBox Err.Description
  Resume Exit_确认_Click
End Sub
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2010-10-13 00:15:31 | 只看该作者
把“ ”改成Null
3#
 楼主| 发表于 2010-10-18 08:07:47 | 只看该作者
谢谢,上面的两位!我发现问题出在哪里,已经解决了呢
4#
发表于 2010-10-17 18:26:27 | 只看该作者
同意楼上的观点
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-17 07:38 , Processed in 0.076122 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表