【问题标题】:How to check if field value is same as combobox value?如何检查字段值是否与组合框值相同?
【发布时间】:2017-06-08 05:56:20
【问题描述】:

所以我正在做一个 SQL 查询,其中组合框 (cboVU) 的值应该与表 O klima uredaju 中名为 Vrsta uredaja 的表中的字段相同。我正在 Access 2016 中进行此查询。

我得到了这个:

 strRowsource2 = "SELECT " & _
                 "  Vlasnik.ID_VU, " & _
                 "  Vlasnik.[Naziv tvrtke], " & _
                 "  Vlasnik.[Ime korisnika], " & _
                 "  Vlasnik.[Prezime korisnika], " & _
                 "  Vlasnik.[Adresa korisnika], " & _
                 "  Vlasnik.Telefon, " & _
                 "  Vlasnik.Mail, " & _
                 "  [O klima uredaju].[Vrsta uredaja], " & _
                 "  Narudzba.Datum " & _
                 "FROM Vlasnik " & _
                 "INNER JOIN ([O klima uredaju] " & _
                 "INNER JOIN Narudzba " & _
                 "  ON [O klima uredaju].ID_KU = Narudzba.ID_KU) " & _
                 "  ON Vlasnik.ID_VU = Narudzba.ID_VU WHERE ([O klima uredaju].[Vrsta uredaja] = " & cboVU & ")) "
       List1.RowSource = strRowsource2

表和关系:

【问题讨论】:

  • 链接到的图像似乎没有错误。它似乎只是一个对话框。
  • 是你需要的比较文本值的地方 =" & """ & cboVU & """"
  • 测试你的 sql 作为查询
  • @Charles,这不是错误,而是不想要的结果。
  • 你的连接语法看起来很狡猾。

标签: mysql sql vba ms-access combobox


【解决方案1】:

继续@Nathan_Sav 的评论:

    Private Sub cboVU_Change()

    strRowsource2 = "SELECT " & _
                     "  Vlasnik.ID_VU, " & _
                     "  Vlasnik.[Naziv tvrtke], " & _
                     "  Vlasnik.[Ime korisnika], " & _
                     "  Vlasnik.[Prezime korisnika], " & _
                     "  Vlasnik.[Adresa korisnika], " & _
                     "  Vlasnik.Telefon, " & _
                     "  Vlasnik.Mail, " & _
                     "  [O klima uredaju].[Vrsta uredaja], " & _
                     "  Narudzba.Datum " & _
                     "FROM Vlasnik " & _
                     "INNER JOIN ([O klima uredaju] " & _
                     "INNER JOIN Narudzba " & _
                     "  ON [O klima uredaju].ID_KU = Narudzba.ID_KU) " & _
                     "  ON Vlasnik.ID_VU = Narudzba.ID_VU " & _
                     "WHERE [O klima uredaju].[Vrsta uredaja] = " & "'" & cboVU.Value & "'" & " "

Debug.Print strRowsource2
Debug.Print List1.RowSource

List1.RowSource = strRowsource2

End Sub

【讨论】:

    猜你喜欢
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 2022-11-22
    • 2018-03-31
    • 2015-10-16
    相关资源
    最近更新 更多