このコードは以前は完全に機能していましたが、今日は値がありません。可能性のある結果の値は、関連するテーブルで既に利用可能です。これが問題のあるクエリです。
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