Predmet:RecordSource u subformi
Evo patim se kako da izmjenim query u RecordSource u subformi
evo moj kod, mislim da je greška negdje tu "Form_MPArtikalTrazi!Izbor.Form.RecordSource" al ne mogu da je skontam
If Frame65 = 1 Then
Form_MPArtikalTrazi!Izbor.Form.RecordSource = "SELECT ZFArikal.SifArt, ZFArikal.SifArtOrg, ZFArikal.NazivArtikla, RMCjenovnik.PC FROM (ZFArikal INNER JOIN RMCjenovnik ON ZFArikal.IDArtikal = RMCjenovnik.IDArtikal) INNER JOIN ZFGrupa ON ZFArikal.IDGrupa = ZFGrupa.IDGrupa WHERE (((RMCjenovnik.IDPeriod)=godina()) And ((RMCjenovnik.IDOrgJed)=IDOrg()) And ((ZFGrupa.UG)=False) And ((ZFArikal.SifArt) Like Forms!MPArtikalTrazi!ArtTrazi.Text & " * ")) GROUP BY ZFArikal.SifArt, ZFArikal.SifArtOrg, ZFArikal.NazivArtikla, RMCjenovnik.PC; "
ElseIf Frame65 = 2 Then
Form_MPArtikalTrazi!Izbor.Form.RecordSource = "SELECT ZFArikal.SifArt, ZFArikal.SifArtOrg, ZFArikal.NazivArtikla, RMCjenovnik.PC FROM (ZFArikal INNER JOIN RMCjenovnik ON ZFArikal.IDArtikal = RMCjenovnik.IDArtikal) INNER JOIN ZFGrupa ON ZFArikal.IDGrupa = ZFGrupa.IDGrupa WHERE (((RMCjenovnik.IDPeriod)=godina()) And ((RMCjenovnik.IDOrgJed)=IDOrg()) And ((ZFGrupa.UG)=False) And ((ZFArikal.SifArtOrg) Like Forms!MPArtikalTrazi!ArtTrazi.Text & " * ")) GROUP BY ZFArikal.SifArt, ZFArikal.SifArtOrg, ZFArikal.NazivArtikla, RMCjenovnik.PC; "
ElseIf Frame65 = 3 Then
Form_MPArtikalTrazi!Izbor.Form.RecordSource = "SELECT ZFArikal.SifArt, ZFArikal.SifArtOrg, ZFArikal.NazivArtikla, RMCjenovnik.PC FROM (ZFArikal INNER JOIN RMCjenovnik ON ZFArikal.IDArtikal = RMCjenovnik.IDArtikal) INNER JOIN ZFGrupa ON ZFArikal.IDGrupa = ZFGrupa.IDGrupa WHERE (((RMCjenovnik.IDPeriod)=godina()) And ((RMCjenovnik.IDOrgJed)=IDOrg()) And ((ZFGrupa.UG)=False) And ((ZFArikal.NazivArtikla) Like Forms!MPArtikalTrazi!ArtTrazi.Text & " * ")) GROUP BY ZFArikal.SifArt, ZFArikal.SifArtOrg, ZFArikal.NazivArtikla, RMCjenovnik.PC; "
ElseIf Frame65 = 4 Then
Form_MPArtikalTrazi!Izbor.Form.RecordSource = "SELECT ZFArikal.SifArt, ZFArikal.SifArtOrg, ZFArikal.NazivArtikla, RMCjenovnik.PC FROM (ZFArikal INNER JOIN RMCjenovnik ON ZFArikal.IDArtikal = RMCjenovnik.IDArtikal) INNER JOIN ZFGrupa ON ZFArikal.IDGrupa = ZFGrupa.IDGrupa WHERE (((RMCjenovnik.IDPeriod)=godina()) And ((RMCjenovnik.IDOrgJed)=IDOrg()) And ((ZFGrupa.UG)=False) And ((RMCjenovnik.PC) Like Forms!MPArtikalTrazi!ArtTrazi.Text & " * ")) GROUP BY ZFArikal.SifArt, ZFArikal.SifArtOrg, ZFArikal.NazivArtikla, RMCjenovnik.PC; "
End If
Me.ArtTrazi = Null