Office中国论坛/Access中国论坛

标题: 求助，代码寻找错误 [打印本页]

作者: qp370982 时间: 2009-6-1 21:54
标题: 求助，代码寻找错误
求助，代码寻找错误下面这段代码在语法上有错误，请各位老师帮忙改正
Dim str As String
If 曾经接受过的教育.Value = "" And 身份.Value = "" And 毕业形式.Value = "" Then
str = ""
Else
str = "select * form 档案 where 编号 in (select 编号 form 履历 where 曾经接受过的教育 = '" & Trim(曾经接受过的教育.Value) & "' and 身份 = '" & Trim(身份.Value) & "' and 毕业形式 = '" & Trim(毕业形式.Value) & "')"
档案子窗体.Form.RecordSource = str
End If
我想错误应在红色的部分，先谢了

作者: asklove 时间: 2009-6-2 08:52
感觉你这个STR是先做个查询，然后把SQL粘贴过来的吧。
如果你这个查询没问题的话，那就换行格式的问题了。
str = "select * form 档案" & _
　　　" where 编号 in (select 编号 form 履历" & _
   " where 曾经接受过的教育 = '" & Trim(曾经接受过的教育.Value) & "' " & _
      " and 身份 = '" & Trim(身份.Value) & "' " & _
      " and 毕业形式 = '" & Trim(毕业形式.Value) & "')"

作者: zyp 时间: 2009-6-2 08:58
select * form 档案
select 编号 form 履历

不是form 而是FROM

作者: ycxchen 时间: 2009-6-2 11:40
应是3楼说的吧

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