Office中国论坛/Access中国论坛

标题: 求救！！！ [打印本页]

作者: lilishi 时间: 2002-7-2 21:28
标题: 求救！！！
请大家帮忙看看
1、不执行Me.总结归档.Value = Null，直接执行Else
2、month不能识别为Month
If Me.总结.Value = Null Then
Me.总结归档.Value = Null
Else
If month(Me.总结) > Me.月份.Value Then 'Or month(Me.总结) > Me.月份.Value And Day(Me.总结) > 5 Then
Me.总结归档.Value = "延期"
Me.总结归档.BackColor = 255
Else
Me.总结归档.Value = "按期"
Me.总结归档.BackColor = 8454016
End If
End If

作者: cattjiu 时间: 2002-7-2 21:48
If Me.总结.Value = "" Then
Me.总结归档.Value = Null
Else
If month(Me.总结) > Me.月份 Then 'Or month(Me.总结) > Me.月份.Value And Day(Me.总结) > 5 Then
Me.总结归档.Value = "延期"
Me.总结归档.BackColor = 255
Else
Me.总结归档.Value = "按期"
Me.总结归档.BackColor = 8454016
End If
End If
month可以识别，可能数据类型不对导致；
将Null改为""试试。
以上程序可以运行啊。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)