Question

我想通过表单中的多选框过滤图表。该图表基于显示

的查询

Transportation costs: headers: Route; FrightPrice; Toll; HandlingCosts; ..

现在，我希望表单的用户能够选择所需的路线和费用。然后应弹出基于所选路线的折线图，显示所需的值/线。

我知道如何将路线连接到海图，以及如何通过命令按钮将其弹出。我的问题是过滤显示成本的图表。我尝试了多选列表框，单选按钮，复选框等。找不到解决方案。

我认为列表框是解决我的问题最有用的工具。但是如何将列表框（行源类型：“字段列表”，多选：“简单”）连接到我的图表？

这是我尝试解决的VBA代码：

Private Sub cmdGo_Click()

Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim varItem As Variant
Dim strCriteria As String
Dim strSQL As String

Set db = CurrentDb()
Set qdf = db.QueryDefs("qryPriceFile")

For Each varItem In Me!lstTypeCost.ItemsSelected
    strCriteria = strCriteria & ",'" & Me!lstTypeCost.ItemData(varItem) & "'"
Next varItem

If Len(strCriteria) = 0 Then
    MsgBox "You did not select anything from the list" _
        , vbExclamation, "Nothing to find!"
    Exit Sub

End If

strCriteria = Right(strCriteria, Len(strCriteria) - 1)
strSQL = "SELECT * From tblCost " & _
         "WHERE tblCost IN(" & strCriteria & ");"

qdf.SQL = strSQL
DoCmd.OpenForm "frmChart_MultiSelect"

Set db = Nothing
Set qdf = Nothing

DoCmd.OpenForm "frmChart_MultiSelect"

End Sub

ms access-通过多选列表框过滤图表

0 个答案: