查询当月数据大侠们看看我这个代码错在哪里了？

datangchuanqi　发表于：2009-01-31 18:13:37 　

Private Sub Check39_Click()

    If Check39 = 1 Then

        Me.[进料记录子窗体].Form.RecordSource = "select * from 进料记录 where 日期>=#" & Date - Day(Date) + 1 & "#"
    Else
        Me.[进料记录子窗体].Form.RecordSource = "进料记录"
    End If
    Me.[进料记录子窗体].Form.Requery

End Sub

Top

ACMAIN.CHM 发表于：2009-01-31 19:45:35

语法上没有问题，请描述一下你的错误信息。

问题说明越详细，回答也会越准确！参见如何提问。（提问的智慧）
http://community.csdn.net/IndexPage/SmartQuestion.aspx

Private Sub Check39_Click()
    If Check39 = 1 Then
        Me.[进料记录子窗体].Form.RecordSource = "select * from 进料记录 where 日期>=#" & Date - Day(Date) + 1 & "#"
    Else
        Me.[进料记录子窗体].Form.RecordSource = "进料记录"
    End If
    Me.[进料记录子窗体].Form.Requery
End Sub

Top

残荷听雨发表于：2009-02-01 19:40:56

Private Sub Check39_Click()

    If Check39 = 1 Then

        Me.[进料记录子窗体].Form.RecordSource = "select 进料记录.* from 进料记录 where 日期>=#" & Date - Day(Date) + 1 & '#'"
    Else
        Me.[进料记录子窗体].Form.RecordSource = "select 进料记录.* from 进料记录;"
    End If
    Me.[进料记录子窗体].Form.Requery

End Sub

Top

残荷听雨发表于：2009-02-01 20:02:17

Private Sub Frame35_Click()

    If Frame35 = 1 Then
        Me.进料记录子窗体.Form.RecordSource = "SELECT * FROM 进料记录 WHERE (进料记录.日期)>=#" & Date - Day(Date) + 1 & "#;"
    Else
        Me.进料记录子窗体.Form.RecordSource = "SELECT * FROM 进料记录;"
    End If
        Me.进料记录子窗体.Form.Form.Requery

End Sub

此代码经过测试。http://www.accessoft.com/bbs/showtopic.asp?id=3303 附件

Top

残荷听雨发表于：2009-02-01 20:07:09

点击下载此附件在03版测试成功。请在07版中测试。

Top

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

Access交流中心

查询当月数据大侠们看看我这个代码错在哪里了？