0
表之间的关系:https://i.imgur.com/Pni922e.png我有4个表,左表是“所有者”以及有关业主信息,中左表是“订单”,它包含的信息订单,中右表连接“订单”表和“关于空调”表。 所以我做了这样的形式: 我希望当选项组中的“Nijezapočeto”被标记为只显示拥有“Status predmeta”[在Narudžba表中] =“Nijezapočeto”的所有者时。因此,当“U procesu”选项组将被标记时,我只想显示“Status predmeta”字段中具有“U procesu”的所有者。更改源时,在选项组不同的选项选中
我写了一些代码,但它不工作。
Private Sub Okvir17_AfterUpdate()
If Frame2 = 1 Then 'Nije započeto
strRowsource1 = "SELECT Vlasnik.ID_VU, Vlasnik.[Naziv tvrtke], Vlasnik.[Ime korisnika], Vlasnik.[Prezime korisnika], Vlasnik.[Adresa korisnika], Vlasnik.Telefon, Vlasnik.Mail " _
& "FROM Vlasnik " _
& "WHERE [Status predmeta] = 'Nije započeto' " _
If Frame2 = 2 Then 'U procesu
strRowsource1 = "SELECT Vlasnik.ID_VU, Vlasnik.[Naziv tvrtke], Vlasnik.[Ime korisnika], Vlasnik.[Prezime korisnika], Vlasnik.[Adresa korisnika], Vlasnik.Telefon, Vlasnik.Mail, " _
& "FROM Vlasnik " _
& "WHERE [Status predmeta] = 'U procesu' " _
If Frame2 = 3 Then 'Na čekanju
strRowsource1 = "SELECT Vlasnik.ID_VU, Vlasnik.[Naziv tvrtke], Vlasnik.[Ime korisnika], Vlasnik.[Prezime korisnika], Vlasnik.[Adresa korisnika], Vlasnik.Telefon, Vlasnik.Mail " _
& "FROM Vlasnik " _
& "WHERE [Status predmeta] = 'Na čekanju' " _
If Frame2 = 4 Then 'Fakturirati
strRowsource1 = "SELECT Vlasnik.ID_VU, Vlasnik.[Naziv tvrtke], Vlasnik.[Ime korisnika], Vlasnik.[Prezime korisnika], Vlasnik.[Adresa korisnika], Vlasnik.Telefon, Vlasnik.Mail " _
& "FROM Vlasnik " _
& "WHERE [Status predmeta] = 'Fakturirati' " _
If Frame2 = 5 Then 'Završeno
strRowsource1 = "SELECT Vlasnik.ID_VU, Vlasnik.[Naziv tvrtke], Vlasnik.[Ime korisnika], Vlasnik.[Prezime korisnika], Vlasnik.[Adresa korisnika], Vlasnik.Telefon, Vlasnik.Mail " _
& "FROM Vlasnik " _
& "WHERE [Status predmeta] = 'Završeno' " _
End If
List2.RowSource = strRowsource1
End Sub
定义*不工作*,请。 [调试VBA代码(http://www.cpearson.com/excel/DebuggingVBA.aspx) – Andre
待澄清*不*工作由@Andre的要求,在此期间,我会建议,如果你正在检查的价值的Frame2,那么这个代码应该可能在Frame2_AfterUpdate事件代码中,而不是Okvir17_AfterUpdate。 – Skippy
是的,它应该是式2,我改变了,现在我得到这个,当我打开窗体,然后选择任何选项。 –