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):Private Sub Inventura_Click()
Dim Baza As Database
Dim Sl_Pocetna As Recordset
Dim Sl_Prelazna As Recordset
Dim Sl_Zavrsna As Recordset
Dim Kolicina As Double
Set Baza = CurrentDb()
Set Sl_Pocetna = Baza.OpenRecordset("Q_Inventura", dbOpenDynaset)
Set Sl_Prelazna = Baza.OpenRecordset("Inventura", dbOpenDynaset)
Set Sl_Zavrsna = Baza.OpenRecordset("Ulaz", dbOpenDynaset)
MsgBox "podaci e biti kopirani", vbOKCancel
If vbOK Then
CurrentDb.Execute "DELETE*FROM [Inventura]"
If Sl_Pocetna.RecordCount > 0 Then
Sl_Pocetna.MoveFirst
While Not Sl_Pocetna.EOF
Kolicina = Sl_Pocetna![Ulaz]
With Sl_Prelazna
.AddNew
![Sifra] = Sl_Pocetna![Sifra]
![Datum] = Sl_Pocetna![Datum]
![Skl] = Sl_Pocetna![Skl]
![IDdokumenta] = 4
![Predatnica] = ""
![Dobavljac] = 1
![Nalog] = ""
![Regal] = ""
If Kolicina < 0 Then
![Ulaz] = 0
Else
![Ulaz] = Sl_Pocetna![Ulaz]
End If
.Update
End With
Sl_Pocetna.MoveNext
Wend
End If
CurrentDb.Execute "DELETE*FROM [Ulaz]"
CurrentDb.Execute "DELETE*FROM [Izlazi]"
If Sl_Prelazna.RecordCount > 0 Then
Sl_Prelazna.MoveFirst
While Not Sl_Prelazna.EOF
With Sl_Zavrsna
.AddNew
![Å ifraUlaz] = Sl_Prelazna![Sifra]
![Datum] = Sl_Prelazna![Datum]
![Skl] = Sl_Prelazna![Skl]
![Ulaz] = Sl_Prelazna![Ulaz]
![IDdokumenta] = Sl_Prelazna![IDdokumenta]
![Predatnica] = Sl_Prelazna![Predatnica]
![Dobavljac] = Sl_Prelazna![Dobavljac]
![Nalog] = Sl_Prelazna![Nalog]
![Regal] = Sl_Prelazna![Regal]
.Update
End With
Sl_Prelazna.MoveNext
Wend
End If
Kraj:
Set Baza = Nothing
DoCmd.OpenTable "Ulaz", acViewNormal, acEdit
End If
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.