Prikazi cijelu temu 17.04.2019 23:09
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Upis u tablicu
Evo valjda je to to.
Ako bude nekih greski u zapisima javi.
Nisam imao puno vremena pa nisam bas sve ni iscitao do kraja.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function ProknjiziMS(ID As String) 'Medjuskladusnaotpremnica
  2. On Error GoTo Err_ProknjiziMS_U
  3. Dim db As Database
  4. Dim rs1 As Recordset, rs2 As Recordset
  5. Dim SQL1 As String, SQL2 As String, Skladiste(2) As String
  6. Dim I As Integer, IdTransakcije(2) As Integer
  7.  
  8. Set db = CurrentDb()
  9. SQL1 = "SELECT * FROM tblDokumenti WHERE ID='" & ID & "'"
  10. SQL2 = "SELECT * FROM tblTransakcije"
  11. Set rs1 = db.OpenRecordset(SQL1)
  12. Set rs2 = db.OpenRecordset(SQL2)
  13.  
  14.  ' Upis u tbl_Transakcije
  15. Skladiste(1) = rs1!Skladiste
  16. Skladiste(2) = rs1!Skladiste_2
  17. For I = 1 To 2
  18. rs2.AddNew
  19. rs2!Datum = rs1!Datum
  20. rs2!Skladiste = Skladiste(I)
  21. rs2!IDdokumenta = rs1!IDdokumenta
  22. rs2!BrDokumenta = rs1!ID
  23. rs2!PartnerID = rs1!PartnerID
  24. rs2!OperID = "aa" 'tkoRadiIme() & " " & tkoRadiPrezime()
  25. rs2!StatusTR = I
  26. rs2.Update
  27. rs2.MoveLast
  28. IdTransakcije(I) = rs2!IdTransakcije
  29. Next I
  30. rs1.Close
  31. rs2.Close
  32. SQL1 = "SELECT * FROM tblDokumentiStavke WHERE ID='" & ID & "'"
  33. SQL2 = "SELECT * FROM tblUlazIzlaz"
  34. Set rs1 = db.OpenRecordset(SQL1)
  35. Set rs2 = db.OpenRecordset(SQL2)
  36. ' Upis u Tbl_UlazIzlaz
  37. For I = 1 To 2
  38. rs2.AddNew
  39. rs2!IdTransakcije = IdTransakcije(I)
  40. rs2!Sifra = rs1!Sifra
  41. rs2!Ulaz = rs1!Kolicina
  42. rs2.Update
  43. Next I
  44.  
  45. rs1.Close
  46. rs2.Close
  47. Set db = Nothing
  48. MsgBox "Stavke sa Dokumenta broj: " _
  49. & Format(IDdokumenta, "00-00000") & " su knjižene!", vbOKOnly, "Potvrda"
  50. Izlaz:
  51. Exit Function
  52. Err_ProknjiziMS_U:
  53. MsgBox "Greska broj " & err.Number & vbCrLf & err.Description & vbCrLf & "u funkciji ProknjiziMS()"
  54. Kraj:
  55. MsgBox "Niste popunili sve podatke"
  56. End Function

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.