在vba中的两个日期之间的访问2010年

我有一个窗体有多个组合框，根据我的组合框中的值打开一个报告。这有效，但我被要求给生效日期字段提供一个选项，因此可以输入日期范围。在vba中的两个日期之间的访问2010年

我为开始和结尾添加了两个文本框（txtReqCreationStartDate和txtReqCreationEndDate）。

我试着在...和查询之间进行操作，但后来我的组合框不起作用。

我从来没有使用SQL，但发现这个在线，并在单击按钮上的应用过滤器的代码中输入它，但我得到的所有记录。其他人试图帮助，但我总是得到所有的记录。

以下是On Click事件的所有代码。

Private Sub cmdVacanciesWithNoRequisitionParameters_Click() 
On Error GoTo cmdVacanciesWithNoRequisitionParameters_Click_Err 

strSQL = "SELECT * FROM qryVacanciesWithNoRequisition WHERE " _ 
     & "DateValue([Effective Date]) Between #" & Format([txtReqCreationStartDate], "yyyy-mm-dd") & "# And #" & Format([txtReqCreationEndDate], "yyyy-mm-dd") & "#;" 

'Person Number 
    If Not IsNull(Me.cboPersonNumber) Then 
     strFilter = strFilter & " AND [Person Number] Like """ & Me.cboPersonNumber & """ " 
    End If 

      'Person Name 
    If Not IsNull(Me.cboPersonName) Then 
     strFilter = strFilter & " AND [Person Name] Like """ & Me.cboPersonName & """ " 
    End If 

      'Job Code 
    If Not IsNull(Me.cboJobCode) Then 
     strFilter = strFilter & " AND [Job Code] Like """ & Me.cboJobCode & """ " 
    End If 

     'Person Number 
    If Not IsNull(Me.cboBusinessUnit) Then 
     strFilter = strFilter & " AND [Business Unit] Like """ & Me.cboBusinessUnit & """ " 
    End If 

     'Department 
    If Not IsNull(Me.cboDepartment) Then 
     strFilter = strFilter & " AND [Department] Like """ & Me.cboDepartment & """ " 
    End If 

     'Supervisor 
    If Not IsNull(Me.cboSupervisor) Then 
     strFilter = strFilter & " AND [Supervisor] Like """ & Me.cboSupervisor & """ " 
    End If 

     'Job Title 
    If Not IsNull(Me.cboJobTitle) Then 
     strFilter = strFilter & " AND [Job Title] Like """ & Me.cboJobTitle & """ " 
    End If 

      'If the report is closed, open the report 
    If SysCmd(acSysCmdGetObjectState, acReport, "rptVacanciesWithNoRequisition") <> acObjStateOpen Then 
     DoCmd.OpenReport "rptVacanciesWithNoRequisition", acPreview, qryVacanciesWithNoRequisition 
    End If 

     'if report was open, use filter 
    With Reports![rptVacanciesWithNoRequisition] 
     .Filter = Mid(strFilter, 6) 
     .FilterOn = True 
    End With 

cmdVacanciesWithNoRequisitionParameters_Click_Exit: 
    Exit Sub 

cmdVacanciesWithNoRequisitionParameters_Click_Err: 
    MsgBox Error$ 
    Resume cmdVacanciesWithNoRequisitionParameters_Click_Exit 

End Sub

在此先感谢您的帮助。

来源

2016-07-11 ann v

*（你需要清理一下你的格式。并不是所有的'sub'都显示为“code”。）###这就是说，我建议你在完全生成它后''Debug.print''strFilter'，这样你就可以*看到*什么完成的字符串包含。 ##另外，为什么你使用'Mid（strFilter，6）'？ ##如果您“获取所有记录”，那么您的过滤器一定有问题。继续努力......你应该*基本上处于正确的轨道上。 –

它应该为你工作 - 你只是做了一个复制/粘贴而不使用过滤器使用的相同变量名称。

变化

strSQL = "SELECT * FROM qryVacanciesWithNoRequisition WHERE " _ 
     & "DateValue([Effective Date]) Between #" & Format(Me.txtReqCreationStartDate, "yyyy-mm-dd") & "# And #" & Format(Me.txtReqCreationEndDate, "yyyy-mm-dd") & "#;"

编辑 - 现在知道，生效日期为文本字段

将其更改为：

If (IsDate(Me.txtReqCreationStartDate) AND IsDate(Me.txtReqCreationEndDate)) then 
     strFilter = strFilter & " CDate([Effective Date]) Between #" & 
    CDate(Me.txtReqCreationStartDate) & "# And #" & _ 
    CDate(Me.txtReqCreationEndDate) & "#" 
End If

来源

2016-07-12 01:09:58 dbmitch

嗨，感谢您的帮助。我喜欢那个有Null的人，因为我知道我必须检查它。我尝试了两种方法，但在表达式中同时收到了“Undefined function'Value'。它似乎不喜欢DateValue中的Value。 –

对不起，我假定您已经检查过SQL - 如果EffectiveDate字段是日期字段可以删除DateValue - 我甚至没有检查过它是否是真实函数。回答 – dbmitch

[生效日期]是一个文本数据类型，表中的数据显示为yyyy-mm-dd。 –

在vba中的两个日期之间的访问2010年

回答

相关问题