这句代码哪里错了

lwlhy　发表于：2016-08-11 10:05:16 　

Private Sub 打印单据_Click()
DoCmd.OpenReport "Appointment", acPreview, "SELECT * FROM 申请单查询 WHERE (((申请单查询.id)=" & Me.Child1.Form.ID & "))"
DoCmd.Close acForm, Me.Name
End Sub

在2003上没问题，2007以上报错

Top

zhaoyoulong 发表于：2016-08-11 15:12:29

dim Str as string

Str ="SELECT * FROM 申请单查询 WHERE 申请单查询.id=" & Me.Child1.Form.ID

DoCmd.OpenReport "Appointment", acPreview, Str

Top

lwlhy 发表于：2016-08-12 10:42:13

这样不行，提示语法错误

Top

zhaoyoulong 发表于：2016-08-12 11:27:56

如果申请单查询.id 是文本型的，则改成

dim Str as string

Str ="SELECT * FROM 申请单查询 WHERE 申请单查询.id='" & Me.Child1.Form.ID & "'"

DoCmd.OpenReport "Appointment", acPreview, Str

Top

lwlhy 发表于：2016-08-12 11:51:16

申请单查询.ID 是自动编号的，原来那个代码在了窗体有数据的时候是能正常执行的，没数据才会提示错误，但是在2003下面子窗体没数据也能正常打开一个空的报表

Top

zhaoyoulong 发表于：2016-08-12 12:41:24

附件传上来

Top

lwlhy 发表于：2016-08-12 15:20:23

点击下载此附件

Top

zhaoyoulong 发表于：2016-08-25 08:56:08

DoCmd.OpenReport "Appointment", acPreview, "SELECT * FROM 申请单查询 WHERE (((申请单查询.id)=" & Nz(Me.Child1.Form.ID, 0) & "))"

点击下载此附件

Top

总记录：7篇页次：1/1 9 1 :

Access交流中心

这句代码哪里错了