Office中国论坛/Access中国论坛

标题: 按月份查询生日，报错了，请高手们相助 [打印本页]

作者: lif973238 时间: 2009-6-16 16:27
标题: 按月份查询生日，报错了，请高手们相助
Private Sub 查询_Click()
If IsNull(Me.月份) Then
DoCmd.OpenReport "客户生日报表", acViewPreview
DoCmd.Close acForm, "每月生日", acSaveYes
Else
DoCmd.OpenReport "客户生日报表", acViewPreview, , " 月份= " & Me.月份 & " "
DoCmd.Close acForm, "每月生日", acSaveYes
End If

End Sub

Private Sub 月份_AfterUpdate()

      Me.每月生日查询子窗体.Form.Filter = "月份=" & Me.月份 & ""
      Me.每月生日查询子窗体.Form.FilterOn = True

End Sub
烦劳高手们看看为什么 "月份=" & Me.月份 & "" 这句不行啊

作者: koutx 时间: 2009-6-16 17:29
"月份='" & Me.月份 & "'"

作者: lif973238 时间: 2009-6-16 22:10
按楼上的这位高手写还是不可以，数据类型不匹配好像

作者: koutx 时间: 2009-6-16 22:51
看来你表中的月份字段是数字型，那就
"月份=" & Me.月份
或"月份=" & CInt(Me.月份)

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