Prikazi cijelu temu 16.01.2014 11:21
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Kopiranje baze (nova godina)
Molim pomoć.
Ideja mi je da pomoću koda kopiram podatke iz Q_Inventura u privremenu tablicu Invetnura.
Zatim bih izbrisao podatke iz tablica Ulaz i Izlaz i nakon toga bi u tablicu Ulaz kopirao podatke koji su predhodno spremljeni u tablicu Inventura.
Prvi dio, kopiranje u tablicu Inventura odradi se kako treba ali kada želim iz tablice Inventura prenijeti podatke u tabllicu Ulaz javlja se greška "Record is Deleted"
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Inventura_Click()
  2. Dim Baza As Database
  3. Dim Sl_Pocetna As Recordset
  4. Dim Sl_Prelazna As Recordset
  5. Dim Sl_Zavrsna As Recordset
  6. Dim Kolicina As Double
  7. Set Baza = CurrentDb()
  8.  
  9. Set Sl_Pocetna = Baza.OpenRecordset("Q_Inventura", dbOpenDynaset)
  10. Set Sl_Prelazna = Baza.OpenRecordset("Inventura", dbOpenDynaset)
  11. Set Sl_Zavrsna = Baza.OpenRecordset("Ulaz", dbOpenDynaset)
  12.  
  13. MsgBox "podaci e biti kopirani", vbOKCancel
  14.  
  15. If vbOK Then
  16. CurrentDb.Execute "DELETE*FROM [Inventura]"
  17.     If Sl_Pocetna.RecordCount > 0 Then
  18.         Sl_Pocetna.MoveFirst
  19.         While Not Sl_Pocetna.EOF
  20.         Kolicina = Sl_Pocetna![Ulaz]
  21.             With Sl_Prelazna
  22.                  .AddNew
  23.         ![Sifra] = Sl_Pocetna![Sifra]
  24.         ![Datum] = Sl_Pocetna![Datum]
  25.         ![Skl] = Sl_Pocetna![Skl]
  26.         ![IDdokumenta] = 4
  27.         ![Predatnica] = ""
  28.         ![Dobavljac] = 1
  29.         ![Nalog] = ""
  30.         ![Regal] = ""
  31.     If Kolicina < 0 Then
  32.         ![Ulaz] = 0
  33.     Else
  34.         ![Ulaz] = Sl_Pocetna![Ulaz]
  35.     End If
  36.         .Update
  37.     End With
  38.          Sl_Pocetna.MoveNext
  39.         Wend
  40. End If
  41. CurrentDb.Execute "DELETE*FROM [Ulaz]"
  42. CurrentDb.Execute "DELETE*FROM [Izlazi]"
  43.     If Sl_Prelazna.RecordCount > 0 Then
  44.         Sl_Prelazna.MoveFirst
  45.         While Not Sl_Prelazna.EOF
  46.             With Sl_Zavrsna
  47.                  .AddNew
  48.         ![Å ifraUlaz] = Sl_Prelazna![Sifra]
  49.         ![Datum] = Sl_Prelazna![Datum]
  50.         ![Skl] = Sl_Prelazna![Skl]
  51.         ![Ulaz] = Sl_Prelazna![Ulaz]
  52.         ![IDdokumenta] = Sl_Prelazna![IDdokumenta]
  53.         ![Predatnica] = Sl_Prelazna![Predatnica]
  54.         ![Dobavljac] = Sl_Prelazna![Dobavljac]
  55.         ![Nalog] = Sl_Prelazna![Nalog]
  56.         ![Regal] = Sl_Prelazna![Regal]
  57.         .Update
  58.             End With
  59.          Sl_Prelazna.MoveNext
  60.         Wend
  61.    End If
  62. Kraj:
  63.     Set Baza = Nothing
  64.     DoCmd.OpenTable "Ulaz", acViewNormal, acEdit
  65. End If
  66. End Sub


Prilozi:
Primjer.rar
Preuzimanja:328
Velicina datoteke:30.12 KB

Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 18.01.2014 16:21 od strane pmiroslav.