Office中国论坛/Access中国论坛

标题: 帮忙看一下这段代码错在哪里 [打印本页]

作者: 小蓓 时间: 2005-12-5 17:22
标题: 帮忙看一下这段代码错在哪里
Private Sub cmd查询_Click()
On Error GoTo Err_cmd查询_Click
   Dim strWhere As String
strWhere = ""
If Not IsNull(Me.地区) Then
      strWhere = strWhere & "([地区] like '*" & Me.地区 & "*') AND "
         End If
If Not IsNull(Me.公司名称) Then
      strWhere = strWhere & "([公司名称] like '*" & Me.公司名称 & "*') AND "
End If
   If Not IsNull(Me.公司地址) Then
      strWhere = strWhere & "([公司地址] like '*" & Me.公司地址 & "*') AND "
End If
   If Not IsNull(Me.联系人) Then
      strWhere = strWhere & "([联系人] like '*" & Me.联系人 & "*') AND "
End If
   If Not IsNull(Me.联系方式) Then
      strWhere = strWhere & "([联系方式] like '*" & Me.联系方式 & "*') AND "
End If
   If Not IsNull(Me.机型) Then
      strWhere = strWhere & "([机型] like '*" & Me.机型 & "*') AND "
End If
   If Not IsNull(Me.出厂机型) Then
      strWhere = strWhere & "([出厂机型] like '*" & Me.出厂机型 & "*') AND "
End If
   Debug.Print strWhere
Me.资料查询子窗体.Form.Filter = strWhere
Me.资料查询子窗体.Form.FilterOn = True


Err_cmd查询_Click:
MsgBox Err.Description
End Sub

这些字段都是文本型的，现在提示的是你不能将数值指定给这个对象

作者: 一点通 时间: 2005-12-5 17:44
很多时候写出的代码并一定是错的,要看实际用在什么地方,出错的问题也会多样化,单凭代码很难分析问题所在,所以,以后问问题时最好能附上例子,以便找出原因,谢谢

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