求救！！！

lilishi

请大家帮忙看看
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

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改为""试试。
以上程序可以运行啊。