Office中国论坛/Access中国论坛

标题: 请帮我看看这句语句该怎么写 [打印本页]

作者: bonbonkiss 时间: 2006-1-11 01:11
标题: 请帮我看看这句语句该怎么写
我在预览中加了删选条件,也能实现当前功能(如预览当前记录,打印当前记录等)

在运动处方窗体中，我也想实现预览和打印，编的代码出错（其中memberNO是字符型编号是数字型）

请帮我看看以下这句话语法错在哪里?我想实现的是两个条件同时满足,可是出错了,说"操作符丢失在查询表达式中"

Private Sub 预览_Click()
On Error GoTo Err_预览_Click

Dim stDocName As String

stDocName = "运动处方"
DoCmd.OpenReport stDocName, acPreview, , "memberNO =" & "'" & memberno & "'" & "编号=" & "'" & 编号 & "'"

Exit_预览_Click:
Exit Sub

Err_预览_Click:
MsgBox Err.Description
Resume Exit_预览_Click

End Sub

作者: fan0217 时间: 2006-1-11 03:13
两个条件应该用AND连接

作者: bonbonkiss 时间: 2006-1-11 23:22
我改了一下

DoCmd.OpenReport stDocName, acPreview, , "memberNO =" & "'" & memberno & "'" And "编号=" & "'" & 编号 & "'"

结果说"类型不匹配" 编号这个字段在表中是数字型问题是不是在这里啊但我不知如何表达

[此贴子已经被作者于2006-1-11 15:24:05编辑过]

作者: sgrshh29 时间: 2006-1-11 23:28
DoCmd.OpenReport stDocName, acPreview, , ,"memberNO ='" & memberno & "'" & " And " & "编号=" 编号

作者: bonbonkiss 时间: 2006-1-11 23:42

以下是引用sgrshh29在2006-1-11 15:28:00的发言：
DoCmd.OpenReport stDocName, acPreview, , "memberNO ='" & memberno & "'" & " And " & "编号=" & 编号

OK了,谢谢!!!

但还得再加一个条件 [会员姓名]='"& 会员姓名&"' 可不可以再加一个 AND ?

会员姓名是字符型的. 再加的话这些引号之类的又出错了.求助谢谢!

作者: sgrshh29 时间: 2006-1-11 23:45
DoCmd.OpenReport stDocName, acPreview, , "memberNO ='" & memberno & "'" & " And " & "编号=" & 编号 & " and " & "[会员姓名]='" & 会员姓名 & "'"

作者: bonbonkiss 时间: 2006-1-11 23:57

以下是引用sgrshh29在2006-1-11 15:45:00的发言：
DoCmd.OpenReport stDocName, acPreview, , "memberNO ='" & memberno & "'" & " And " & "编号=" & 编号 & " and " & "[会员姓名]='" & 会员姓名 & "'"

结果弹出了一个对话框　要求输入会员姓名的参数值．

现在我把东西发上来给您看看．请运行窗体member３　出现会员＂７０１００１　沈晰晰＂　选＂第二次计划＂　然后点预览．如果第三个条件不加　则出现的报表在姓名这一栏中会有　＂＃错误　＂　加了之后就出现参数值对话框．

多谢sgrshh29！！！！[attach]15290[/attach]

作者: sgrshh29 时间: 2006-1-12 00:11
你的第三个报表的数据源中没有"会员姓名"这个字段,你加上了第三个条件就成了参数,而且永远也填不对这个参数.

姓名这一栏中会有　＂＃错误　＂,也是这个原因.

把这个文本框的数据源改为 =[Forms]![member3]![membername]

同时把第三个条件去掉(这是多余的)

[此贴子已经被作者于2006-1-11 16:14:18编辑过]

作者: bonbonkiss 时间: 2006-1-12 00:19
谢谢！成功了！！！！！多谢指点啊

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