Predmet:Upis u tablicu
PokuÅ¡avam iz tablice "tblDokumenti" i "tbldokumentiStavke" pomoću koda kopirati podatke u "tblTransakcije" i "tblUlazIzlaz"
Kako se radi o međuskladiÅ¡noj otpremnici trebam automatski napraviti Izlaz sa skladiÅ¡ta 020 i ulaz na skladiÅ¡te 025.
Zato bi u trebalo da se jedan zapis iz tablice tblDokumenti" i vezani zapis iz "tbldokumentiStavke" dve puta upiše u "tblTransakcije" i "tblUlazIzlaz". Ralika kod ova dva upisa treba biti u oznaci sklasišta:
rs2!Skladiste = rs1!Skladiste
rs2!Skladiste = rs1!Skladiste_2
Te status transakcije (1 - ulaz, 2 - Izlaz)
Ja sam poušao sa priloženim kodom ali ne radi
PreuzmiIzvorni kôd (vbnet):Function ProknjiziMS(ID As String) 'Medjuskladusnaotpremnica
On Error GoTo Err_ProknjiziMS
Dim db As Database
Dim rs1 As Recordset
Dim rs2 As Recordset
Dim rs3 As Recordset
Dim Rs4 As Recordset
Dim SQL As String
Dim SQL1 As String
Set rcs = Nothing
Set db = CurrentDb()
SQL = "SELECT * FROM tblDokumenti WHERE ID='" & ID & "'"
SQL1 = "SELECT * FROM tblDokumentiStavke WHERE ID='" & ID & "'"
Set rs1 = db.OpenRecordset(SQL)
Set rs2 = db.OpenRecordset("tblTransakcije")
Set rs3 = db.OpenRecordset(SQL1)
Set Rs4 = db.OpenRecordset("tblUlazIzlaz")
' Upis u tbl_Transakcije
Do While Not rs1.EOF
rs2.AddNew
rs2!Datum = rs1!Datum
rs2!Skladiste = rs1!Skladiste ' Veleprodja
rs2!IDdokumenta = rs1!IDdokumenta
rs2!BrDokumenta = rs1!ID
rs2!PartnerID = rs1!PartnerID
rs2!StatusTR = 2 'Izlaz
rs2.Update
rs1.MoveNext
Loop
Do While Not rs1.EOF
rs2.AddNew
rs2!Datum = rs1!Datum
rs2!Skladiste = rs1!Skladiste_2
rs2!IDdokumenta = rs1!IDdokumenta 'Maloprodaja
rs2!BrDokumenta = rs1!ID
rs2!PartnerID = rs1!PartnerID
rs2!StatusTR = 1 'ULAZ
rs2.Update
rs1.MoveNext
Loop
rs1.Close
rs2.Close
' Upis u Tbl_UlazIzlaz
Do While Not rs3.EOF
Rs4.AddNew
Rs4!IDTransakcije = DLookup("[IDtransakcije]", "TblTransakcije", "[BrDokumenta] ='" & ID & "'")
Rs4!Sifra = rs3!Sifra
Rs4!Izlaz = rs3!Kolicina
Rs4.Update
rs3.MoveNext
Loop
rs3.Close
Rs4.Close
Set db = Nothing
Izlaz:
Exit Function
Err_ProknjiziMS:
MsgBox "Greska broj " & err.Number & vbCrLf & err.Description & vbCrLf & "u funkciji ProknjiziMS()"
Kraj:
MsgBox "Niste popunili sve podatke"
End Function
Prilozi:
Proba.rar
Preuzimanja:282
Velicina datoteke:103.82 KB
Pozdrav