Ne zanam zasto se zamaras uporedjivanjem.
Ako su ti podaci u tabeli1 ispravni, mnogo je jednostavnije sve podatke iz tabele2 zameniti podacima iz tabele1

Zato sto mi je tabela 2 ciljna tabela u koju rucno upisujem podatke koji nemaju veze sa tabelom 1. Sve sto mi je potrebno je da mi se azurira tabela 2 sa podacima iz tabele 1 koje tabela 2 neposeduje.

Jednostavnije, ako zapis iz tabele 1 vec sadrzi tabela 2, onda se zapis ignorise, a ako ne upisuje se.

Ovde se izgleda radi o lopovskom programu kase za korisnike koji varaju drzavu pa imaju prave račune i one ispod ruke račune pa se treba da vodi ovakva evidencija ;-)

Ovde se radi o amaterskom programu za licnu upotrebu koji nema nikakve veze sa gore pomenutim. Ovo je vodjenje evidencije o dugovanjima korisnika. Jesam maher za kase ali nisam za access, pa mi treba pomoc.

Hvala!!!

Pa čitao bi prvu tablicu od pošetka do kraja i usporedjivao drugu tablicu

Dim d1 As Database
Set d1 = CurrentDb
Dim e1 As Recordset
Dim g1 As Recordset

Set e1 = d1.OpenRecordset("select * from prvatablica)

Do While Not e1.EOF

naziv1 = e1.Fields("naziv")
cena1 = e1.Fields("cena")
kolicina1 = e1.Fields("kolicina")

Set g1 = d1.OpenRecordset("select * from drugatablica where naziv='" & naziv1 & "'")

If g1.EOF() Then

g1.AddNew ' ako nema
g1.Fields("naziv") = naziv1
g1.Fields("cena") = cena1
g1.Fields("kolicina") = kolicina1
g1.update
Else
g1.Edit 'mjenjanje
' ako postoji u prvoj onda napravis sto ti treba, oduzme od druge, pa razliku upises, to ti znas
' npr
novakol=g1.Fields("kolicina") - kolicina1
g1.Fields("kolicina")=novakol
g1.update

End If
g1.close
e1.MoveNext
loop

e1.close

Set d1 = Nothing

To je to sto mi treba!


Hvala!!!