更改后访问级联组合框清除

Question

我有一些代码可以在Access中创建级联的Combobox，它可以正常工作;组合框过滤到我需要的列表。但是，当我更换组合框时，它会自动清除，因此我无法使用它。

Private Sub cobVehType_Change()

    If CycleType(DLookup("VehicleType", "tblVehicleType", "VehicleTypeID =" & Me.cobVehType)) = "Miles" Then
        Me.cobMainType.RowSource = "SELECT tblMainType.MainCycle FROM tblMainType WHERE (tblMainType.MainType)='Miles' And (tblMainType.SimilarTo)=False"
    Else
        Me.cobMainType.RowSource = "SELECT tblMainType.MainCycle FROM tblMainType WHERE (tblMainType.MainType)='Hours' And (tblMainType.SimilarTo)=False"
    End If

End Sub

我还应该检查什么？

Answer 1

你的意思是组合框列表中没有任何项目？尝试刷新组合框：

Me.cobMainType.Requery

不应该需要DLookup，因为cobVehType应该具有提供车辆类型所需的所有信息。