Imam jedn modul u kojem vršim operacije nad dvije tablice i jednim queryem.
U kveriju dobivam rezultate koje redom upisujem u tablice.
Public Function fsaldo()
Dim tb, tb3 ,tb1 As DAO.Recordset
Dim db3 As DAO.Database
Dim stanje As Long
On Error GoTo Err_fodustani
Set db3 = CurrentDb
Set tb1 = db3.OpenRecordset("tbl_tblList")
tb.MoveFirst
Set db3 = CurrentDb
Set tb = db3.OpenRecordset("tbl_listKnjige")
'sortira po broju blagajne
tb.OrderByOn = True
tb.OrderBy = "broj_blagajne"
'order by mi izbacuje grešku da to nemoše izvršit
'Javlja da object doesn t support
tb.MoveFirst
Set tb3 = db3.OpenRecordset("qdf_glavna")
tb3.MoveFirst
'provjerava dali ima zapisa u qdf_glana i ako je nula izbacuje van
If tb3.NoMatch Then
Exit Function
Else
Problem je u tome što kad mi otvara tablicu kao record set nakon naredbe tb.movefirst on mi ode na treći zapis i onda mi nastane pomutnja u proceduri.Tablica kreće od trećeg zapsa a query od prvog.Moraju krenut od istog .
Pa sam pomoću orderBy htio posložit da svi krenu od istog,
Kako da to napravim i što koristit da si olakšam život.
Hvala unaprijed!
romano