Gjoreski | 29.03.2015 00:32 |
---|---|
Predmet:Recordser od Query so parametri Imam edno Query koe e sostaveno od poveke Query ja na koi ima razni parametri od razliciti mesta. Mene mi treba da napravam recordset DAO ili ADO od ova queri. so DAO dobivam error 3061. Prasajneto mi e kao da se napravi recordset od query koe e sostaveno od poveke query ja i parametrite ne mozat da se dodadat kako uslov ( Tie veke se zadadeni od nekoi formi ili konstanti) Pozdrav |
zxz | 29.03.2015 02:09 |
---|---|
Predmet:Re: Recordser od Query so parametri Najbolje okaci primjer. Tesko je ovako. |
Gjoreski | 29.03.2015 11:17 |
---|---|
Predmet:Re: Recordser od Query so parametri Eve primer |
|
Prilozi: Pr.rar (Velicina datoteke:200.22 KB) |
zxz | 29.03.2015 19:54 |
---|---|
Predmet:Re: Recordser od Query so parametri Koji je to Query da ne lutam? |
Gjoreski | 29.03.2015 22:09 |
---|---|
Predmet:Re: Recordser od Query so parametri qryPopis_Razliki frmPopis mora da bidi otvorena i postavena od nea se zemaat parametri za querijata. Na formata frmPopis ima button KNIZI POPISNI RAZLIKI i na nego mi treba toj rekordset od ova queri |
zxz | 29.03.2015 23:44 |
---|---|
Predmet:Re: Recordser od Query so parametri Mozes da pises SQL u kodu ali ti to neces jer mislis da vec imas. Morao bi sve uslove prenijeti kodom. Ako neces to onda mozes ovako. Naprvais neku formu koja se zove napr. F. Sada mozes napraviti ovakav kod. Dim Db As Database Dim Frm As Form Dim Rs As Recordset Dim Podatak DoCmd.OpenForm "F" Set Frm = Forms("F") Frm.Visible = False Frm.RecordSource = "qryPopis_Razliki" Set Rs = Frm.RecordsetClone Do While Not Rs.EOF Podatak = Rs.Fields(1) Rs.MoveNext Loop |
Gjoreski | 30.03.2015 00:22 |
---|---|
Predmet:Re: Recordser od Query so parametri Jas ke go resam ova inaku. ova sto mi imas ti predlozeno ne mi odgovara. Ke napravam tabela koja ke gi ima istite polijan kako i querito i ke ja polnam so naredbata Docmd.RunSQL a potoa ke izvadam recordset od nea. Ne e nesto profesionalno no ke funkcionira |
zxz | 30.03.2015 00:37 |
---|---|
Predmet:Re: Recordser od Query so parametri Pa evo mozes napraviti i na toj formi jedan list box i staviti ga da je nevidljiv. i onda bi isao kod: Dim Rst As Recordset Dim list1 As ListBox Dim Podatak Set list1 = Forms!FrmPopis.list1 list1.RowSource = "qryPopis_Razliki" Set Rst = list1.Recordset Rst.MoveLast Rst.MoveFirst Do While Not Rst.EOF Podatak = Rst.Fields(8) Rst.MoveNext Loop Profesionalno ako hoses mozes odraditi ali to ti je ono gore prvo stao sam ti napisao. Mogu ti i napraviti kod za jedan sql da vidis kako izgleda ali mislim da ti to znas. |
zxz | 30.03.2015 00:51 |
---|---|
Predmet:Re: Recordser od Query so parametri A mozes i ovako: Ovo je za "qryPopis_Izlez" Dim SQL As String Dim Data As String Dim Magacin As Integer Dim Db As Database Dim Rs As Recordset Magacin = [Forms]![frmPopis]![Magacin] Data = "#" & Format([Forms]![frmPopis]![Data], "dd-mm-yyyy") & "#" SQL = "SELECT tblFaktura_Stavki.Stavka, Sum(tblFaktura_Stavki.Kolicina) AS Vk_Izlez " _ & "FROM tblFakturi INNER JOIN tblFaktura_Stavki ON tblFakturi.ID_Faktura = tblFaktura_Stavki.Faktura_Br " _ & "WHERE (((tblFakturi.Data) <=" & Data & ") And ((tblFakturi.Magacin) =" & Magacin & ")) " _ & "GROUP BY tblFaktura_Stavki.Stavka, tblFakturi.Tip_Faktura " _ & "HAVING (((tblFakturi.Tip_Faktura)=1 Or (tblFakturi.Tip_Faktura)=7))" Set Db = CurrentDb Set Rs = Db.OpenRecordset(SQL) |
Gjoreski | 30.03.2015 02:27 |
---|---|
Predmet:Re: Recordser od Query so parametri Ima mnogu resenija , no memne mi treba naj ednostavno . Ova e operacija sto se izveduva nedelno mesecno ili mozebi godisno taka sto nema potreba da se kompliciraat rabotite.. Programot e raboten del vo VB 6 ,bazata e rabotena vo ms sql server daka sto ne e problem za mene da napravam nekolku funkcii ili stored proceduri za da funkcionira ova ,celta mi bese da bajdam resenie kako od vakvo query da gi izvadam podatocite. |