窗体选择问题

大声笑

如上图，我写了一段代码，我也不知道是哪错了,打开这个窗体，如果不先选取一下1，2，3里面的东西，我要的那个提示也没有，是哪里错了，记指点下

Private Sub cmd004_click()

On Error GoTo Err_Cmd004_Click

Dim blnExist As Boolean

Dim STemp As String

Dim stdocname As String

Dim Rs As ADODB.Recordset

If Me.Check0 = False And Me.Check2 = False And Me.Check4 = False Then

MsgBox "打印前请选一个打印项目!", vbOKOnly, "选择打印项目"

                       End If

If Me.Check0 = True Then

stdocname = "出筒与包装"

DoCmd.OpenReport stdocname, acPreview

End If

Exit_Cmd004_Click:

    Exit Sub

Err_Cmd004_Click:

    MsgBox Err.Description

    Resume Exit_Cmd004_Click

End Sub

高处不胜寒

传库

kevindeng

你没有讲清楚你的问题．

大声笑

测试后还是一样，不太明白你说的这个放哪里，还是谢谢

大声笑

嗯，去试试

高处不胜寒

应该这样吧 Me.Check0.VALUE = False