从表单查询读取条件

Question

我有一个查询阅读标准来自下拉表单，该表格正常。

正在检查程序版本。

即。 V6，V7，V8等。

我想添加一个＆＃34; ALL＆＃34;下拉列表的选项，以便它可以显示所有结果。很明显，版本＆＃34; ALL＆＃34;没有结果。这可能吗？如果是这样的话。

Answer 1

是的，这是可能的。使用类似的东西

Dim sql As String, strVal As String
Dim rst As New ADODB.Recordset

sql = "SELECT ProgramVersion FROM Table ORDER BY ProgramVersion "
rst.Open sql, CurrentProject.Connection, adOpenStatic, adLockOptimistic

strVal = "All;"
With rst
    .MoveFirst
    Do Until .EOF
        strVal = strVal & Nz(!ProgramVersion, "") & ";"
        .MoveNext
    Loop
End With

MyCombo.RowSourceType = "Value List"
MyCombo.RowSource = strVal