Question

我需要在Access中更新列表框，显示通过组合框输入过滤的数据。组合框有三列：

ID Tipo di prodotto
Tipo di Prodotto
ID分类

第一个是我需要的过滤器，第二个是显示的文本，第三个我稍后会用它。

我的代码如下：

Private Sub Prodtypelistcb_AfterUpdate()
Dim myquery As String
myquery = "SELECT Prodotto.[ID Prodotto], Prodotto.[Nome prodotto],Prodotto.[ID Tipodiprodotto]" & _
"FROM Prodotto WHERE (Prodotto.[ID Tipodiprodotto]=Maschere!Brand!Prodtypelistcb.Value)"

Me.Brandprodel.Visible = True
Me.Brandprodel.RowSource = myquery
Me.Brandprodel.Requery

End Sub

prodtypelistcb是要作为输入操作更新的组合框，而Brandprodel是在操作后要更新的列表框。如果我把WHERE = 1一切正常，那么代码应该可以排除查询。

这个没什么。我哪里错了？

更新

如果我在组合框上设置值并使用访问接口进行纯查询，它会显示我需要的内容。所以问题可能在于我更新后检索组合框值，但无法理解为什么。

Answer 1

我认为问题出在SQL中。

Deposit = int(input("Enter your amount =)")

if Deposit > 100:
  print("you got a tosteer")

elif Deposit > 1000:
  print("you got a t.v")

对列表框上的数据进行Access-Query

1 个答案: