[求助] 实用查询操作-子窗体查询

zhacha

附件是一个供应商数据库,设计为一个窗体,有选项卡控件.页1设计为供应商输入界面,页2设计为供应商查询界面.
问题1.
供应商查询过程中,任意输入一项,点击”查询”时,出现提示”对象不支持该属性或方法”,该如何解决?
问题2.
供应商查询过程中,点击”清除” 时,包括页1中的供应商信息也会被一并清除,请问如何避免?

sundayleung

将查找键下的代码改成这样，就能用了。呵呵！

If Not IsNull(Me.InputID) Then
    strWhere = strWhere & "([ID] like '*" & Me.Text18 & "*' )  AND "
  End If
    If Not IsNull(Me.InputSupplier) Then
    strWhere = strWhere & "([Supplier] like '*" & Me.Text20 & "*' ) AND "
  End If
  If Not IsNull(Me.InputAddress) Then
    strWhere = strWhere & "([Address] like '*" & Me.Text22 & "*' )  AND "
  End If
  If Not IsNull(Me.InputProduct) Then
    strWhere = strWhere & "([Products] like '*" & Me.Text24 & "*' )  AND "
  End If

eyewitnes

me.inputid是标签,当然有问题了

谢健

问题2，将“清除”里的代码改为：

Private Sub Cmd_Delete_Click()
Text18 = Null
Text20 = Null
Text22 = Null
Text24 = Null
End Sub