Prikazi cijelu temu 12.04.2019 11:46
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


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):
  1. Function ProknjiziMS(ID As String) 'Medjuskladusnaotpremnica
  2. On Error GoTo Err_ProknjiziMS
  3. Dim db As Database
  4. Dim rs1 As Recordset
  5. Dim rs2 As Recordset
  6. Dim rs3 As Recordset
  7. Dim Rs4 As Recordset
  8. Dim SQL As String
  9. Dim SQL1 As String
  10.  
  11. Set rcs = Nothing
  12.  
  13. Set db = CurrentDb()
  14.  
  15. SQL = "SELECT * FROM tblDokumenti WHERE ID='" & ID & "'"
  16. SQL1 = "SELECT * FROM tblDokumentiStavke WHERE ID='" & ID & "'"
  17.  
  18. Set rs1 = db.OpenRecordset(SQL)
  19. Set rs2 = db.OpenRecordset("tblTransakcije")
  20. Set rs3 = db.OpenRecordset(SQL1)
  21. Set Rs4 = db.OpenRecordset("tblUlazIzlaz")
  22.  
  23.  ' Upis u tbl_Transakcije
  24.  
  25. Do While Not rs1.EOF
  26. rs2.AddNew
  27. rs2!Datum = rs1!Datum
  28. rs2!Skladiste = rs1!Skladiste ' Veleprodja
  29. rs2!IDdokumenta = rs1!IDdokumenta
  30. rs2!BrDokumenta = rs1!ID
  31. rs2!PartnerID = rs1!PartnerID
  32.  
  33. rs2!StatusTR = 2 'Izlaz
  34.  
  35. rs2.Update
  36. rs1.MoveNext
  37. Loop
  38.  
  39. Do While Not rs1.EOF
  40. rs2.AddNew
  41. rs2!Datum = rs1!Datum
  42. rs2!Skladiste = rs1!Skladiste_2
  43. rs2!IDdokumenta = rs1!IDdokumenta 'Maloprodaja
  44. rs2!BrDokumenta = rs1!ID
  45. rs2!PartnerID = rs1!PartnerID
  46.  
  47. rs2!StatusTR = 1 'ULAZ
  48.  
  49. rs2.Update
  50. rs1.MoveNext
  51. Loop
  52.  
  53. rs1.Close
  54. rs2.Close
  55.  
  56.  
  57. ' Upis u Tbl_UlazIzlaz
  58.  
  59. Do While Not rs3.EOF
  60. Rs4.AddNew
  61. Rs4!IDTransakcije = DLookup("[IDtransakcije]", "TblTransakcije", "[BrDokumenta] ='" & ID & "'")
  62. Rs4!Sifra = rs3!Sifra
  63. Rs4!Izlaz = rs3!Kolicina
  64. Rs4.Update
  65. rs3.MoveNext
  66. Loop
  67. rs3.Close
  68. Rs4.Close
  69.  
  70. Set db = Nothing
  71.  
  72. Izlaz:
  73. Exit Function
  74. Err_ProknjiziMS:
  75. MsgBox "Greska broj " & err.Number & vbCrLf & err.Description & vbCrLf & "u funkciji ProknjiziMS()"
  76.  
  77. Kraj:
  78. MsgBox "Niste popunili sve podatke"
  79. End Function


Prilozi:
Proba.rar
Preuzimanja:282
Velicina datoteke:103.82 KB

Pozdrav