已解决：打印报表时，如何进行对字段的条件判断，不满足的，将提示原因

luodream

在“窗体1”中，点击“打印”按钮，
1、直接打印当前记录，而不是要录入“编号2”
2、能够显示预览界面，而不直接指印
3、打印前进行判断，符合条件的正常打印，否则提示错误原因：
(1)、条件1：当“条件”=“条件1”或“条件2”时，不进行判断，直接打印
(2)、条件2：当“条件”#“条件1”或“条件2”时，再进行以下判断
     A、当“是否”=“是”时，“是否日期3”不能为空，否则提示错误原因“A”
     B、当“是否”=“否”时，“是否日期3”不能有值，否则提示错误原因“B”
     C、“日期1”、“日期2”、“文本”不能为空，“数值”不能<=0，否则，分别提示错误原因.
万分万分万分万分万分万分万分万分万分万分万分万分万分万分万分万分万分万分万分万分万分万分万分谢谢了。

[ 本帖最后由 luodream 于 2007-12-16 15:53 编辑 ]

wwwwa

1、SELECT [表1].[编号], [表1].[条件], [表1].[日期1], [表1].[日期2], [表1].[是否], [表1].[是否日期3], [表1].[文本], [表1].[数值], [表1].[编号2]
FROM 表1
WHERE 编号2=[forms]![窗体1]![编号];
2、  DoCmd.OpenReport "报表1", acViewPreview

luodream

第三点如何实现呢？再求助中

luodream

有高手出现吗？等待中。

tmtony

不错不错!

luodream

学习中......，谢谢了。

luodream

果然是高手啊，但有两个问题：
1、还没实现：当“条件”=“条件1”或“条件2”时，不进行判断，直接进行“打印提示，这点是不是要嵌套一个IF语句，具体要怎么写呢？
2、“数值”为空时，没有控制住，这点，我已依葫芦画瓢，解决了。加了：
     If IsNull(Me.数值) Then
        MsgBox "数值不能为空"
        Me.数值.SetFocus
        Exit Sub
    End If

[ 本帖最后由 luodream 于 2007-12-16 12:51 编辑 ]

luodream

我现在加了，
If Me.条件 = 1 Or 2 Then
......
End If
怎么没有效啊，我的原意是：当条件 = “条件1” Or“ 条件2”才判断值是否有空，当条件 # (“条件1” Or“ 条件2”)，直接进行打印提示，但加了上述语句后，当条件＝条件3、条件4时还是进行了判断，有什么问题是吗？

Victor_Duane

If Me.条件 = 1 Or 2 Then
这一句有问题，
If Me.条件 = 1 Or me.条件=2 Then

Victor_Duane

或者你用
If Me.条件 like "[1 ,2 ]" Then