试图在访问错误中查找重复的记录

Question

我正在为体育俱乐部制作数据库，填写表格时，他们输入设施ID，开始时间，结束时间和日期。我要尝试做的是当他们输入结束时间框时，该功能会扫描“预订”表上的条目，该表中的所有数据都存储在该表中，以查看此时是否已预订该设施。 （为了确定是否在某个特定时间将其预订，表上的开始时间或结束时间是否介于表格中所填内容之间，将引发错误代码如下所示：

Private Sub EndNon_AfterUpdate()
    Dim criteria As String
   criteria = _
      "Non-PlayingFacilityID= " & Me.NonPlayID.Value & " " & _
      "Date(Non-PlayingFacility)= " & Me.DateNon.Value & _
      " " & "AND [StartTime(Non-PlayingFacility)] Between Me.StartNon.Value And Me.EndNon.Value OR [EndTime(Non-PlayingFacility)] Between Me.StartNon.Value And Me.EndNon.Value "

   If DCount("*", "Bookings", criteria) > 0 Then
      MsgBox "Unfortunately, this facility is booked at this time"
      Me.Undo
   End If

End Sub

运行此命令时会引发语法错误，不知道为什么。任何帮助将不胜感激

Answer 1

它可能会突出显示此无效语法：

"Date(Non-PlayingFacility)= " & Me.DateNon.Value & _

也许你是说：

"DateValue([Non-PlayingFacility])= " & Format(Me!DateNon.Value, "\#yyyy\/mm\/dd\#") & _

剩余日期比较需要类似的连接和格式化。