请帮我看看这句语句该怎么写

bonbonkiss

我在预览中加了删选条件,也能实现当前功能(如预览当前记录,打印当前记录等)

在运动处方窗体中，我也想实现预览和打印，编的代码出错（其中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

两个条件应该用AND连接

bonbonkiss

我改了一下

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

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

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

sgrshh29

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

bonbonkiss

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

OK了,谢谢!!!

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

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

sgrshh29

DoCmd.OpenReport stDocName, acPreview, , "memberNO ='" & memberno & "'" & " And " & "编号=" & 编号 & " and " & "[会员姓名]='" & 会员姓名 & "'"

bonbonkiss

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

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

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

多谢sgrshh29！！！！

sgrshh29

你的第三个报表的数据源中没有"会员姓名"这个字段,你加上了第三个条件就成了参数,而且永远也填不对这个参数.

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

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

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

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

bonbonkiss

谢谢！成功了！！！！！多谢指点啊