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

时间:2017-07-13 15:10:59

标签: vba ms-access combobox listbox

我需要在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一切正常,那么代码应该可以排除查询。

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

更新

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

1 个答案:

答案 0 :(得分: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")