Citat:
Dim db As Database
Dim tabla As Recordset
Set db = OpenDatabase(App.Path + "\" + "magacin.mdb")
Set tabla = db.OpenRecordset("Table1")
With tabla
.MoveLast
.AddNew
.Edit
!Tip = Trim(Combo1.Text)
!Komponenta = Trim(Text1.Text)
!Magacin = Int(Val(Trim(Text2.Text)))
!Cena = Val(Trim(Text3.Text))
!Mesto = Trim(Text4.Text)
.Update
End With
Problem u svemu ovome je taj sto ovaj deo koda, umesto da u nov slog ubaci podatke, on ubaci u zadnji slog podatke tako sto prepise one stare. Da ilustrujemo ;) Znaci ako ja imam 8 slogova upisanih u bazu, kada pokusam sa ovim parcetom koda da upisem nov slog, on umesto da sve to upise u slog 9 (novi slog) on predje preko sloga 8.
Potrebno mi je resenje za ovaj problem ali mi ne treba resenje tipa koristi ADO ili slicno, nego mi treba resenje za ovaj moj nacin pristupa bazi (DAO).
p0zdrav