0

这段代码早些时候工作得很好,但今天它没有给我任何价值。而可能的结果值已经在相关表中可用。这是有问题的查询。

  Private Sub BR_ID_LostFocus()   
  Dim s As String
  s = "Select Seat_No.Seat_No FROM Seat_No Where Seat_No.Seat_No <= (select    br_info.Seats_Reserved from br_info where Br_info.br_id=forms!pasenger_detail!br_id) AND (Seat_No.Seat_No) NOT IN (SELECT pasenger_detail.seat_no FROM pasenger_detail);"
  Me.Seat_No.RowSource = s
  Me.Seat_No.Requery
  End Sub

在此处输入图像描述

在此处输入图像描述

4

1 回答 1

0
  1. 子查询 NOT IN (SELECT pasenger_detail.seat_no FROM pasenger_detail) 中没有过滤;可以吗?
  2. 表格 pasenger_detail 是否已打开?
  3. 'debug.print forms!pasenger_detail!br_id' 在即时窗口中打印什么?
于 2013-09-27T06:21:38.620 回答