Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

录入窗体部分控件填空值时运行错误的解决方案

时 间:2011-04-04 00:00:00
作 者:都市侠影   ID:18593  城市:
摘 要:在Access录入窗体中,如果采用窗体不绑定数据源,而是在“确认添加”按钮的单击事件中用SQL的INSERT语句来处理,常出现的一个问题就是,因为并非每个字段都是必填项,用户在录入数据的时候可能有某些字段没有填,这样来在运行INSERT语句的时候会出现错误,因为INSERT向每个字段都赋值,并且每个控件都采取如下的引用方式:"'" & Me.控件名.Value & "'" & ",",问题就出在这一对单引号把空值也引起来了。怎么解决呢?
正 文:

在Access录入窗体中,可以采用窗体绑定数据源的方式添加新记录,但此法直接操作表里的数据,可能会无意间造成数据的修改,本人常用的做法是窗体不绑定数据源,而是在“确认添加”按钮的单击事件中用SQL的Insert语句来处理,但是有一个问题就是,因为并非每个字段都是必填项,用户在录入数据的时候可能有某些字段没有填,这样来在运行Insert语句的时候会出现错误,因为Insert向每个字段都赋值,并且每个控件都采取如下的引用方式:"'" & Me.控件名.Value & "'" & ",",问题就出在这一对单引号把空值也引起来了。怎么解决呢?方法有三:

一、把表里的所有字段都设置为必填字段,显然此法通常情况下不现实。

二、利用Nz函数,在引用控件值的时候采用Nz( Me.控件名),而不是Me.控件名.Value 的形式。此法详细请参考网友见字如面的帖子http://www.accessoft.com/bbs/showtopic.asp?id=12084

三、根据控件值是否空值动态的决定是否为此字段赋值,这是本文要介绍的方法,下面是实例:

设录入窗体界面如下,代码里的控件名可根据名称与窗体上文本框相对应。

大致思路:在Insert INTO 后面,如果相应控件非空值,则增加相应字段,否则在Insert INTO 后面的属性组中就没有此字段。

       Dim strSQL As String 

       strSQL = "Insert INTO 学生基本情况表(学生姓名,性别编号,年级编号,补习科目编号,"
        '根据各控件是否为空值动态决定对哪些字段赋值
        If Not IsNull(Me.School) Then
            strSQL = strSQL & "就读学校,"
        End If
        strSQL = strSQL & "单次补习时长,上课时间安排,工资水平,"
        If Not IsNull(Me.TelStudent) Then
            strSQL = strSQL & "学生电话,"
        End If
        strSQL = strSQL & "家长电话,地址,登记日期,状态) VALUES("
       
        '动态的对各字段赋值
        strSQL = strSQL & "'" & Me.NameStu.Value & "'" & ","
        If IsNull(Me.Sex) Then
            '如果性别未填,默认为“未知”,其性别编号为0
            strSQL = strSQL & "0,"
        Else
            strSQL = strSQL & Me.Sex.Column(1) & ","
        End If
        strSQL = strSQL & Me.Grade.Column(1) & ","
        strSQL = strSQL & Me.Course.Column(1) & ","
        If Not IsNull(Me.School) Then
            strSQL = strSQL & "'" & Me.School.Value & "'" & ","
        End If
        strSQL = strSQL & "'" & Me.TimesEveryday.Value & "'" & ","
        strSQL = strSQL & "'" & Me.WayStudy.Value & "'" & ","
        strSQL = strSQL & "'" & Me.Wage.Value & "'" & ","
        If Not IsNull(Me.TelStudent) Then
            strSQL = strSQL & "'" & Me.TelStudent.Value & "'" & ","
        End If
        strSQL = strSQL & "'" & Me.TelParents.Value & "'" & ","
        strSQL = strSQL & "'" & Me.Adress.Value & "'" & ","
        strSQL = strSQL & "'" & Date & "'" & ","
        strSQL = strSQL & True & ");"
        DoCmd.RunSQL strSQL

运行结果非常理想。

比较而言,方案二是最佳方案,不过本人最初解决这个问题的时候还不知道有Nz函数,所以就冥思苦想出了方案三,虽然笨拙,但不失为一精巧的借鉴,列于此,供后继者参考。



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助