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