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

时　间: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函数，所以就冥思苦想出了方案三，虽然笨拙，但不失为一精巧的借鉴，列于此，供后继者参考。