iCentar » Racunari i oprema » Programirannje i baze podataka » Access

kenan	27.07.2017 13:04
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

kenan

27.07.2017 13:04

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