Predmet:Re: Spajanje arhiviranih baza
Vezano uz tvoju sugestiju o zatvaranju godine pokušavam napisati proceduru koja bi mi iz Q_Stanje prepisala podatke u tblUlazIzlaz.
Jedan dio sam napravio ali sam tu zapeo.
U tablicu 'tblVrstaTransakcije' dodao sam 'Završna inventura.
Napravio sam kod koji ću popuniti podatke u tblTransakcije za novu transakciju 'ZavrÅ¡na inventura' za svako skladiÅ¡te koje se pojavi u 'Q_Stanje'
Taj dio am napravio i to radi:
PreuzmiIzvorni kôd (vbnet):Private Sub CmdTransakcije_Click()
Dim db As Database
Dim rs1 As Recordset
Dim rs2 As Recordset
Dim rs3 As Recordset
Dim rs4 As Recordset
Set db = CurrentDb()
Set rs1 = db.OpenRecordset("SELECT Skladiste FROM Q_Stanje GROUP BY Skladiste", dbOpenDynaset)
Set rs2 = db.OpenRecordset("tblTransakcije", dbOpenDynaset)
Set rs3 = db.OpenRecordset("Q_Stanje", dbOpenDynaset)
Set rs4 = db.OpenRecordset("tblUlazIzlaz", dbOpenDynaset)
Do While Not rs1.EOF
rs2.AddNew
rs2!Datum = Now()
rs2!Skladiste = rs1!Skladiste
rs2!IDdokumenta = 16
rs2!BrDokumenta = "n/a"
rs2!PartnerID = DLookup("PartnerID", "tblPartneri", "Firma ='" & "Skladište " & rs1!Skladiste & "'")
rs2!Radninalog = "n/a"
rs2!OperID = "Operater"
rs2!StatusTR = 2
rs2.Update
rs1.MoveNext
Loop
rs1.Close
rs2.Close
Kraj:
Set db = Nothing
DoCmd.OpenTable "tblTransakcije", acViewNormal, acEdit
End Sub
Zapeo sam na upisu u tblUlazIzlaz, tu mi treba da se podaci o stanju za svako skladiše pridruže uz IDtransakcije iz predhodnog koda.
Kod za upis u tblUlazIzlaz bi trebao biti ovako nekako:
PreuzmiIzvorni kôd (vbnet):Dim db As Database
Dim rs3 As Recordset
Dim rs4 As Recordset
Set Baza = CurrentDb()
Set rs3 = db.OpenRecordset("Q_Stanje", dbOpenDynaset)
Set rs4 = db.OpenRecordset("tblUlazIzlaz", dbOpenDynaset)
Do While Not rs3.EOF
rs4.AddNew
rs4![IDtransakcije] = "IDtransakcije iz tblTransakcija
rs4![Sifra] = rs3![Sifra]
rs4![Ulaz] = 0
rs4![Izlaz] = rs3![Stanje]
rs4![Status] = 1
rs4![DatumU] = Date
rs4.Update
rs4.MoveNext
Loop
rs3.Close
rs4.Close
Kraj:
Set Baza = Nothing
Prilozi:
Prodaja_2011_be.rar
Preuzimanja:228
Velicina datoteke:158.81 KB
Pozdrav