Office中国论坛/Access中国论坛

标题: HELP:关于INPUTBOX()点击取消后仍然出现窗体的疑惑 [打印本页]

作者: aries1912 时间: 2010-5-10 16:20
标题: HELP:关于INPUTBOX()点击取消后仍然出现窗体的疑惑

现有表“AMERICAN LINE (IM)”，表中有字段[Part #],[BP1]。现做窗体1如下，窗体1代码如下：

Public str As String
Private cd As String

Private Sub Form_Load()
   cd = InputBox("请输入产品代码:")
   str = "SELECT * FROM [AMERICAN LINE (IM)] WHERE [PART #] Like '*" & cd & "*' "
   Forms!窗体1.RecordSource = str

End Sub

小弟现在的困惑是当点击取消按钮后，“窗体1”仍然会跳出来，求高手解惑，先谢过！

作者: sgrshh29 时间: 2010-5-10 17:12
...........................
cd = InputBox("请输入产品代码:")
If cd = "" Then
DoCmd.Close acForm, Me.Name
Exit Sub
End If
...........................

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