Centar za edukaciju-BiH

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

Predmet:Re: RecordSource u subformi

---

Odakle pozivas, iz modula forme ili nekog drugog modula

Pravila za referenciranje imas na
http://www.elitesecurity.org/t221799-0#1601367

Meni je sumnjiva WHERE klauzula.
Moguce da tu nije dobro izreferencirano.
Sta su godina() i IDOrg()?
Neke tvoje funkcije?

Pogledaj i
http://access.mvps.org/access/forms/frm0031.htm

Predmet:Re: RecordSource u subformi

---

Najbolje bi bilo da zakacis taj primjer.
Brze bi islo.

---