|
本帖最后由 Henry D. Sy 于 2019-11-10 02:24 编辑
这是你的原代码,注释是我加上的,用来说明问题的
- Private Sub cmd查询_Click()
- On Error GoTo Err_cmd查询_Click
- Dim rs As New ADODB.Recordset
- '你根本不需要ADO记录集
-
- Dim ssql As String
-
- ssql = "select * from 最适型材查询 where [高度] > = " & Me.高度 And [宽度] >= " & Me.宽度 order by [高度] - " & Me.高度 + [宽度] - " & Me.宽度 "
- 'SQL语句写错,>=之间没有空格,要用&号连接变量
-
- rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
- '没必要用ADO记录集,那就更不需要打开了
-
- Me.最适型材查询子窗体.Form.Filter = ssql
- 'SQL查询语句是用来作为窗体的记录源的,而不是用来筛选的,如果要过滤记录,需要用不带WHERE的条件子句
-
- Me.最适型材查询子窗体.Form.FilterOn = True
- rs.Close: Set rs = Nothing
- Exit_cmd查询_Click:
- Exit Sub
- Err_cmd查询_Click:
- MsgBox Err.Description
- Resume Exit_cmd查询_Click
-
- End Sub
复制代码 |
|