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


Predmet:Re: Run-Time error 3464
Evo ti tvoj kod popravljen, mada je ovo prekomplikovano i neznam kako ce to raditi.
Mislim da bilo kakvo rjesenje sa brebacivanjem podataka iz tabele u tabelu nije dobro.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command142_Click()
  2.     DoCmd.OpenForm "radim"
  3.     Dim SQL, SQL1, SQL2, SQL3, SQL4, SQL5 As String
  4.     Dim stDocName As String
  5.     Dim konto As String
  6.     Dim aop As String
  7.     Dim godina As String
  8.     Dim period As String
  9.     Dim i      As Integer
  10.  
  11.     godina = "TS.godina = " & Forms![bilans aop arhiva ru
  12. ni unos podataka bu]!Text7 - 1
  13.     period = "TS.PERIOD = '" & Forms![bilans aop arhiva ru
  14. ni unos podataka bu]!Text24 & "'"
  15.     konto = "stavgk.konto Alike '60*'"
  16.     aop = "TS.aop = 202"
  17.  
  18.     SQL = "INSERT INTO [bilans aop arhiva uspjeha] ( [redni broj], aop, [Grupa konta], Opis, zabiljeÅ¡ka, [tekuca godina], [Predhodna godina], firma_ID, ObracinskiPeriod, godina ) "
  19.     SQL1 = SQL & "SELECT AOP_NAZIV.aop AS [redni broj], AOP_NAZIV.aop, AOP_NAZIV.Grupakonta, AOP_NAZIV.[Naziv polja], AOP_NAZIV.BiljeÅ¡ka, Sum(STAVGK!Potrazuje)-Sum(STAVGK!Duguje) AS [tekuca godina], TS.[Predhodna godina], AKTIV.firma, AKTIV.ObracinskiPeriod, AKTIV.godina "
  20.     SQL2 = SQL1 & "FROM STAVGK, AKTIV INNER JOIN ([T sintetika] AS TS INNER JOIN AOP_NAZIV ON TS.aop = AOP_NAZIV.AOP) ON AKTIV.firma = TS.firma "
  21.     SQL3 = SQL2 & "WHERE " & godina & " And " & period
  22.    
  23.  
  24.     Me.Visible = True
  25.     DoEvents
  26.     Me.PBar.Visible = True
  27.     For i = 1 To 100
  28.         PBar = i
  29.         Select Case i
  30.             Case 1
  31.                 'aop 202
  32.                                konto = "stavgk.konto Alike '60*'"
  33.                                 aop = "TS.aop ALIKE 202"
  34.                                 SQL4 = " AND " & konto & "AND " & aop & " GROUP BY AOP_NAZIV.aop, AOP_NAZIV.aop, AOP_NAZIV.Grupakonta, AOP_NAZIV.[Naziv polja], AOP_NAZIV.BiljeÅ¡ka, TS.[Predhodna godina], AKTIV.firma, AKTIV.ObracinskiPeriod, AKTIV.godina;"
  35.                                 SQL5 = SQL3 & SQL4
  36.                                 DoCmd.RunSQL SQL5
  37.                                 Rem Forms![Form1]![t] = SQL5
  38.  
  39.             Case 2
  40.             'AOP 203
  41.                                konto = "stavgk.konto like '60*'"
  42.                                 aop = "TS.aop = 202"
  43.                                 SQL4 = " AND  " & konto & " AND " & aop & " GROUP BY AOP_NAZIV.aop, AOP_NAZIV.aop, AOP_NAZIV.Grupakonta, AOP_NAZIV.[Naziv polja], AOP_NAZIV.BiljeÅ¡ka, TS.[Predhodna godina], AKTIV.firma, AKTIV.ObracinskiPeriod, AKTIV.godina;"
  44.                                 SQL5 = SQL3 & SQL4
  45.                                 Rem Forms![Form1]![t] = SQL5
  46.                                 DoCmd.RunSQL SQL5
  47.  
  48.                 'added to show progress bar
  49.        End Select
  50.  
  51.     Next i
  52.     DoCmd.Close
  53.     Requery
  54.     DoCmd.GoToRecord , , acLast
  55.     'Me.PBar.Visible = False
  56. End Sub

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.