Prikazi cijelu temu 18.07.2013 14:19
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Spajanje arhiviranih baza
Ja sam se uz svoje skromno znamnje mučo sa ovim do maloprije i uspio sam neÅ¡to napraviti.
Tvoj kod je u svakom slučaju elegantniji i pregldniji.
Hvala puno.

JoÅ¡ jedino je problem da se spriječi viÅ¡e puta pokrenuti ovaj kod. Znači ako več imamo u transakcijama 'ZavrÅ¡na inventura' za određeno skladiÅ¡te trebalo bi zabraniti ponovni upis. I u mom i u tvom slučaju nakon drugog pokretanja koda u tblUlazIzlaz upisuju se nule.

PreuzmiIzvorni kôd (vbnet):
  1. Private Sub CmdTransakcije_Click()
  2. Dim Db As Database
  3. Dim Rs1 As Recordset
  4. Dim Rs2 As Recordset
  5. Dim Rs3 As Recordset
  6. Dim rs4 As Recordset
  7. Dim tempIdT As Integer
  8. Dim tempSkl As String
  9.  
  10. Set Db = CurrentDb()
  11. Set Rs1 = Db.OpenRecordset("SELECT Skladiste FROM Q_Stanje GROUP BY Skladiste", dbOpenDynaset)
  12. Set Rs2 = Db.OpenRecordset("tblTransakcije", dbOpenDynaset)
  13.  
  14. Do While Not Rs1.EOF
  15.     Rs2.AddNew
  16.     Rs2!Datum = Date
  17.     Rs2!Skladiste = Rs1!Skladiste
  18.     Rs2!IDdokumenta = 16
  19.     Rs2!BrDokumenta = "n/a"
  20.     Rs2!PartnerID = DLookup("PartnerID", "tblPartneri", "Firma ='" & "SkladiÅ¡te " & Rs1!Skladiste & "'")
  21.     Rs2!Radninalog = "n/a"
  22.     Rs2!OperID = "Operater"
  23.     Rs2!StatusTR = 2
  24.     Rs2.Update
  25.     Rs2.MoveLast
  26. tempIdT = Rs2!IdTransakcije
  27. Set Rs3 = Db.OpenRecordset("SELECT * FROM Q_Stanje WHERE Skladiste = '" & Rs1!Skladiste & "'", dbOpenDynaset)
  28. Set rs4 = Db.OpenRecordset("tblUlazIzlaz", dbOpenDynaset)
  29.  
  30. Do While Not Rs3.EOF
  31.    
  32.     rs4.AddNew
  33.     rs4![IdTransakcije] = tempIdT
  34.     rs4![Sifra] = Rs3![Sifra]
  35.     rs4![Ulaz] = 0
  36.     rs4![Izlaz] = Rs3![Stanje]
  37.     rs4![Status] = 1
  38.     rs4![DatumU] = Now
  39.     rs4.Update
  40.     Rs3.MoveNext
  41.     Loop
  42.     Rs3.Close
  43.     rs4.Close
  44.     Rs1.MoveNext
  45.     Loop
  46.     Rs1.Close
  47.     Rs2.Close
  48.    
  49. Kraj:
  50.     Set Db = Nothing
  51.    
  52. End Sub
Pozdrav