Prikazi cijelu temu 06.01.2016 22:35
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Kopiranje iz Queria u drugu tabelu
Jeste ovaj kod bi trebalo da uradi sve.
E sad vjerovatno nesto nije isto kao ovo kod mene.
Kazes samo opet javlja gresku.
Mozes li mi reci koju gresku i na kojem mjestu.
Nadji ovu proceduru u onom modulu sto sam ti poslao:
ption Explicit
Const Ime_Baze = ""
Const Sufiks = "_Be"
Const Baza_Dir = "Baze"
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 ''-----------------------vidis ispred ovog reda napisi REM
Set DB_Stara = CurrentDb()
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.