如何检查字段值是否与组合框值相同?

时间:2017-01-23 16:35:31

标签: mysql sql vba combobox access-vba

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

我得到了这个:

enter image description here

 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

表和关系: enter image description here

1 个答案:

答案 0 :(得分:0)

继续@ 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