Question

你好我试图在我的表单上使用一个下拉框，它会根据if语句显示两个不同的记录源，并且无法使其工作。这可能吗？？

基本上我想显示DX_Codes表的代码和描述如果日期小于10/1/2015并显示DX_Codes_ICD_10，如果它大于或等于10/1/2015。日期也是同一表格上的字段。

IIf(Me.from_date < #10/1/2015#, 
SELECT DX_Codes.dx_code, DX_Codes.dx_code_desc FROM DX_Codes ORDER BY DX_Codes.dx_code, 
SELECT DX_Codes_ICD10.dx_code, DX_Codes_ICD10.dx_code_desc FROM DX_Codes_ICD10 ORDER BY DX_Codes_ICD10.dx_code);

Answer 1

您必须使用VBA来管理控件的RowSource，如组合框。将下面放置一些事件触发器，可能与from_date控件相关。

If Me.from_date < #10/1/2015# Then
    Me.ComboBoxName.RowSource = "SELECT DX_Codes.dx_code, DX_Codes.dx_code_desc" _
                                 & " FROM DX_Codes ORDER BY DX_Codes.dx_code;"
    Me.ComboBoxName.RowSourceType = "Table/Query"
Else
    Me.ComboBoxName.RowSource = "SELECT DX_Codes_ICD10.dx_code, DX_Codes_ICD10.dx_code_desc" _
                                 & " FROM DX_Codes_ICD10 ORDER BY DX_Codes_ICD10.dx_code);"
    Me.ComboBoxName.RowSourceType = "Table/Query"
End If

是否可以在访问表单上使用2个不同的记录源作为下拉框？

1 个答案: