将表格中的日期与表格中的日期进行比较

时间:2016-06-25 15:13:09

标签: ms-access access-vba

在Access 2016上建立预订系统我想对新预订进行一些验证,以确保设施可用。我似乎的问题是将来自表单的日期与SQL中表中的日期进行比较。

以下是尝试和调试此代码的一些代码:

    Set rst = CurrentDb.OpenRecordset("SELECT [FacBookID],[FacilityID],[EventDate] from FacilitiesBooking where [FacilityID] = " & Me.Facilities.Column(0, facilitySelect))
    Debug.Print Me.Facilities.Column(0, facilitySelect) & " | " & Me.EventDate.Value & " | " & rst("FacilityID") & " | " & rst("EventDate") & " | " & rst("FacBookID")
    rst.Close
    Set rst = CurrentDb.OpenRecordset("SELECT [FacBookID] from FacilitiesBooking where ([FacilityID] = " & Me.Facilities.Column(0, facilitySelect) & " AND [EventDate] = " & Me.EventDate.Value & ")")
    If Not rst.EOF Then
        Debug.Print rst("FacBookID")
    Else
        Debug.Print "Did not find"
    End If
    rst.Close

当我在表格中只有一个条目并且表格数据与此条目匹配时,我得到:

3 | 2016/07/04 3 | 2016/07/04 2

没找到

这对我来说意味着我应该从第二个SQL语句中获取记录,但由于某种原因我不这样做。

道歉,如果这是愚蠢的事情,但我已经完成了一些搜索,并尝试了不同的格式化方法来处理日期。

1 个答案:

答案 0 :(得分:1)

您必须使用格式化的字符串表达式作为日期值:

myThread = threading.Thread(target=someFunction, args=(arg1,arg2,arg3))
myThread.daemon = True
myThread.start()