Prikazi cijelu temu 18.07.2013 13:34
zxz Na mrezi
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Spajanje arhiviranih baza
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Transakcije()
  2. Dim Db As Database
  3. Dim Rs1 As Recordset, Rs2 As Recordset, Rs3 As Recordset
  4. Dim IdTransakcije As Integer
  5. Dim SQL1 As String, SQL2 As String, Skladiste As String
  6.  
  7.  
  8. SQL1 = "SELECT * FROM tblTransakcije WHERE False<>false"
  9. SQL2 = "SELECT * FROM tblUlazIzlaz WHERE False<>false"
  10. Set Db = CurrentDb()
  11. Set Rs1 = Db.OpenRecordset("Q_Stanje")
  12. Set Rs2 = Db.OpenRecordset(SQL1)
  13. Set Rs3 = Db.OpenRecordset(SQL2)
  14.  
  15. Do While Not Rs1.EOF
  16.  
  17. If Skladiste <> Rs1!Skladiste Then
  18. Skladiste = Rs1!Skladiste
  19. Rs2.AddNew
  20. Rs2!Datum = Now()
  21. Rs2!Skladiste = Rs1!Skladiste
  22. Rs2!IDdokumenta = 16
  23. Rs2!BrDokumenta = "n/a"
  24. Rs2!PartnerID = DLookup("PartnerID", "tblPartneri", "Firma ='" & "Skladište " & Rs1!Skladiste & "'")
  25. Rs2!Radninalog = "n/a"
  26. Rs2!OperID = "Operater"
  27. Rs2!StatusTR = 2
  28. IdTransakcije = Rs2!IdTransakcije
  29. Rs2.Update
  30. End If
  31. Rs3.AddNew
  32. Rs3![IdTransakcije] = IdTransakcije
  33. Rs3![Sifra] = Rs1![Sifra]
  34. Rs3![Ulaz] = 0
  35. Rs3![Izlaz] = Rs1![Stanje]
  36. Rs3![Status] = 1
  37. Rs3![DatumU] = Date
  38. Rs3.Update
  39. Rs1.MoveNext
  40. Loop
  41. Rs1.Close
  42. Rs2.Close
  43. Rs3.Close
  44. Set Db = Nothing
  45. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.