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

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\#") & _

剩余的日期比较需要连接起来，格式类似。

附录 - 给出了不起眼的字段名称：

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

需要该格式才能在 SQL 中为日期值创建有效的字符串表达式。这与用于显示的格式无关。