|
添加新记录时,如果金额为空,则提示类型不对(如果修改则不会提示),字段类型都是数字型的,我对空值做了判断,怎么没有效果呢,请各位行家帮我看一下问题出在了哪里
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
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|