[求助]值为空时提示类型不对

dukeren

添加新记录时，如果金额为空，则提示类型不对（如果修改则不会提示），字段类型都是数字型的，我对空值做了判断，怎么没有效果呢，请各位行家帮我看一下问题出在了哪里

rs.AddNew
                    rs("年月") = Me![年月]
                    rs("职工编号") = Me![职工编号]
                    rs("姓名") = Me![姓名]
                    rs("部门") = Me![部门]
                    If isnull(Me.基本工资) = True Then
                    rs("基本工资") = 0
                    Else
                    rs("基本工资") = Me![基本工资]
                    End If
                    If isnull(Me.岗位工资) = True Then
                    rs("岗位工资") = 0
                    Else
                    rs("岗位工资") = Me![岗位工资]
                    End If
                    If isnull(Me.转正补差) = True Then
                    MsgBox "必填字段对应的文本框不能为空，请重新输入！", vbOKOnly, "系统警告"
                    Else
                    rs("转正补差") = Me![转正补差]
                    End If
                    If isnull(Me.节日加班工资) = True Then
                    rs("节日加班工资") = 0
                    Else
                    rs("节日加班工资") = Me![节日加班工资]
                    End If
                    If isnull(Me.加班工资) = True Then
                    rs("加班工资") = 0
                    Else
                    rs("加班工资") = Me![加班工资]
                    End If
                    If isnull(Me.考核奖励) = True Then
                    rs("考核奖励") = 0
                    Else
                    rs("考核奖励") = Me![考核奖励]
                    End If
                    If isnull(Me.其他奖励) = True Then
                    rs("其他奖励") = 0
                    Else
                    rs("其他奖励") = Me![其他奖励]
                    End If
                    If isnull(Me.考核扣款) = True Then
                    rs("考核扣款") = 0
                    Else
                    rs("考核扣款") = Me![考核扣款]
                    End If
                    If isnull(Me.房租水电费) = True Then
                    rs("房租水电费") = 0
                    Else
                    rs("房租水电费") = Me![房租水电费]
                    End If
                    If isnull(Me.服装费) = True Then
                    rs("服装费") = 0
                    Else
                    rs("服装费") = Me![服装费]
                    End If
                    If isnull(Me.其他扣款) = True Then
                    rs("其他扣款") = 0
                    Else
                    rs("其他扣款") = Me![其他扣款]
                    End If
                rs.Update
                rs.Close
            End If

dukeren

多谢楼上，问题已经解决，另外好像还有一种办法，就是

把 if isnull(me.文本) then

改为：if me.文本="" then

都是网上高人教的

baije

If isnull(Me.其他扣款)  Then 无效时好象NZ（）也无效

试下直接=""来作判断吧

tmtony

例如: rs("其他扣款") = nz(Me![其他扣款])
或 rs("其他扣款") = nz(Me![其他扣款],0)


這樣如果其他扣款的值為空,則自動轉為0

dukeren

我不太明白，可以说地详细一些么，多谢

tmtony

可以在值加NZ函數轉換為0