ms-access - 使用 DoCmd.SetParameter 的问题

Question

我有一个链接表的查询，我正在尝试打开其结果。我正在使用 DoCmd.SetParameter 来设置过滤 OpenQuery 的结果。我以前在另一张 table 上用过这个，效果很好。但出于某种原因，我无法让它返回任何结果。

我的代码如下:

Dim ReportDate As Date
Dim strReportDate As String

ReportDate = DateValue(Me.FromDate.Value)

strReportDate = Format(ReportDate, "mm-dd-yyyy")

DoCmd.SetParameter "Enter ShipDate", strReportDate
DoCmd.OpenQuery "TrackingDataQuery", acViewNormal, acReadOnly

(格式在那里是因为最初，我正在检查查询中的日期字段，并认为那里可能存在问题，所以我在查询中创建了一个计算字段，该字段采用该字段并在它。)

真正让我感到困惑的是，如果我只是运行查询，它会要求我提供应有的标准，如果我输入日期(如上所示的“mm-dd-yyyy”格式) ，它给了我正确的结果集。

用于查询(现在)的 sql 是(我也仅使用实际的 ShipDate 字段尝试过此操作，仅使用 DateValue 转换(并调整上述内容)。在链接的 SQL 表中，ShipDate 是一个日期时间输入:

SELECT dbo_TrackingData.PackageID, dbo_TrackingData.TrackingNo,
dbo_TrackingData.ShipDate, dbo_TrackingData.weight, dbo_TrackingData.Ref1,
dbo_TrackingData.Ref2, dbo_TrackingData.Ref5,
Format(DateValue([ShipDate]),"mm-dd-yyyy") AS strShipDate
FROM dbo_TrackingData
WHERE (((Format(DateValue([ShipDate]),"mm-dd-yyyy"))=[Enter ShipDate]));

Answer 1

这应该有效:

Dim strReportDate As String

strReportDate = "#" & Format(Me!FromDate.Value, "yyyy\/mm\/dd") & "#"

DoCmd.SetParameter "Enter ShipDate", strReportDate
DoCmd.OpenQuery "TrackingDataQuery", acViewNormal, acReadOnly

使用此 SQL:

SELECT 
    dbo_TrackingData.PackageID, dbo_TrackingData.TrackingNo,
    dbo_TrackingData.ShipDate, dbo_TrackingData.weight, dbo_TrackingData.Ref1,
    dbo_TrackingData.Ref2, dbo_TrackingData.Ref5
FROM 
    dbo_TrackingData
WHERE
    [ShipDate] = [Enter ShipDate];