Prikazi cijelu temu 24.01.2016 01:01
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Kopiranje iz Queria u drugu tabelu
Kompajliraj kod.
Kod mene ima jedna greska nedostaje end sub.
I imas u proceduri da dozvolis red kos on error goto kraj

Function Otvori_Godinu(Godina As String) As Boolean
Dim DB_Nova As dao.Database, DB_Stara As dao.Database
Dim Rs_Stari As dao.Recordset, Rs_Novi As dao.Recordset, RSArt As Recordset
Dim PutanjaB As String, Nova_Baza As String, SQL As String
Dim Stara_Baza As String, I As Integer, ID(2) As Integer
Dim Tdf As TableDef, Fld As Field

On Error GoTo Kraj ' ovaj dio
Set DB_Stara = CurrentDb()

e sad glavni dio.
Moras zatvoriti formu frmRacun kada otvoris formu novaGodina.
U stvari nesmije biti podignuta niti jedna tabela ili forma na kojoj je tabeli ili pak query jer se tada nemopze baza prekopirati jer se koristi.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.