组合框依赖于另一个组合框

Question

我有两个组合框，一个病房的其他房间号的形式。病房医疗单位，而房间的房间号码（如GMU-01）。

我试图限制基于病房值的房间名称，即列出所有特定单元的床号。

SELECT DISTINCT [TblWards].[Wards] FROM TblWards ORDER BY [TblWards].[Wards]; 

从病房组合框的行源（一箱）

Private Sub Wards_AfterUpdate()
Dim txt As String
txt = "SELECT TblWards.Room FROM TblWards WHERE (TblWards.Wards)= '" & 
Me.Wards.Column(0) & "' ORDER BY TblWards.Room;"
Me.RoomN.RowSource = txt
End Sub

SELECT [TblWards].[Room] FROM TblWards WHERE ((([TblWards].[Wards])=AMU)); 

从第二个下拉框间行源

我得到一个错误，当我试图可供选择沃兹组合框中的值。如果我行了更新后的代码，我可以选择的值。该错误是意外的错误，访问需要关闭。

然后，我得到一个错误，如果我试图从第二个组合框的值。询问的AMU参数。

我继承了这个代码，并试图决定如何去了解它，改写或试图挽救它。

Answer 1

从我从你的信息了解，你可以试试这个：

私人小组cboWard_AfterUpdate（）昏暗STRSQL作为字符串

strSQL = "SELECT * FROM tblRooms WHERE rWardID = " & Me.cboWard

Me.cboRoom.RowSource = strSQL

结束小组

Answer 2

尝试以下事项

1. 清除控件和ComboBox“RoomN”手动的RowSorce性能。
2. 试试下面的代码中的“病房”组合框AfterEvent

   Private Sub Wards_AfterUpdate()
   Dim txt As String
   txt = "SELECT Room FROM TblWards WHERE [Wards] = '" & Me.Wards.Value & "' ORDER BY Room;"
   Me.RoomN.RowSource = txt
   End Sub