Ms access 需要帮助查找代码中的错误以筛选表单吗_Ms Access_Ms Access 2013

Ms access 需要帮助查找代码中的错误以筛选表单吗

ms-access

Ms access 需要帮助查找代码中的错误以筛选表单吗,ms-access,ms-access-2013,Ms Access,Ms Access 2013,这是我用来尝试根据txt框中的日期筛选表单子表单的代码。代码有一个编译错误，在第三个#处用一个“expect expression”停止，我不知道为什么。我从另一个地方得到了这段代码，并试图将其用于我的目的。我对vba一无所知 Private Sub btnDateRange_Click() Me.Filter = "[tblDeliveries].[DeliveryID] Between #" & Me.StartDate & # AND #" & Me.EndDate

这是我用来尝试根据txt框中的日期筛选表单子表单的代码。代码有一个编译错误，在第三个#处用一个“expect expression”停止，我不知道为什么。我从另一个地方得到了这段代码，并试图将其用于我的目的。我对vba一无所知

Private Sub btnDateRange_Click()
Me.Filter = "[tblDeliveries].[DeliveryID] Between #" & Me.StartDate & # AND #" & Me.EndDate & "#"
DoCmd.RunCommand acCmdApplyFilterSort
End Sub

有人能指出问题是什么吗？谢谢。

请使用正确的语法：

Private Sub bTNderance\u Click（）
Me.Filter=“[tblDeliveries].[DeliveryID]介于#”和格式（Me.StartDate，“yyyy\/mm\/dd”）&“#和#”&格式（Me.EndDate，“yyyy\/mm\/dd”）&”
Me.FilterOn=正确
端接头

为什么要引用DeliveryID字段而不是日期/时间字段？第二个#前面缺少引号。此代码在哪个表单后面？哪个表单有日期文本框？我怀疑主窗体在这两种情况下都不会筛选子窗体。尝试按ID而不是日期筛选，将其更改为DeliveryDate，添加引号，错误消失。表单设置为Mainform:tblCustomers，数据表子表单：qryDeliveries。带有代码的按钮和日期输入的文本框都位于父项上。子表单现在进行筛选，但只显示第一条记录，即与客户相关的记录，该记录出现在ParentForm上，这通常是相关表单/子表单的工作方式。仅显示相关记录。