Prikazi cijelu temu 22.02.2015-01:07
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Lokacija: Tuzla


Subject: 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.
DownloadIzvorni kod (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

Pozdrav