Prikazi cijelu temu 01.04.2011 19:10
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Provjera duplog unosa
PreuzmiIzvorni kôd (Visual Basic):
  1. Function UnosStavki(TransakcijaID As Integer, Order As Integer)
  2. Dim Db As Database
  3. Dim Rs1 As Recordset
  4. Dim Rs2 As Recordset
  5. Dim SQL As String
  6.  
  7.  
  8. If TransakcijaID = 0 Or Order = 0 Then GoTo Kraj
  9. Set Db = CurrentDb()
  10. SQL = "SELECT * FROM tblProdajaStavke WHERE OrderID=" & Order
  11. Set Rs1 = Db.OpenRecordset(SQL)
  12. Set Rs2 = Db.OpenRecordset("TblUlazIzlaz")
  13.  
  14. Do While Not Rs1.EOF
  15. Rs2.AddNew
  16. Rs2!IDTransakcije = TransakcijaID
  17. Rs2!Sifra = Rs1!Sifra
  18. Rs2!Skl = DLookup("[skladiste]", "TblProdaja", "[orderID] =" & Order)
  19. Rs2!Status = -1
  20. Rs2!Izlaz = Rs1!Kolicina
  21. Rs2.Update
  22. Rs1.MoveNext
  23. Loop
  24. Rs1.Close
  25. Rs2.Close
  26. Set Db = Nothing
  27. Izlaz:
  28. Exit Function
  29. Kraj:
  30. MsgBox "Niste popunili sve podatke"
  31. End Function

Ovu proceduru kopirja u neki modul.
Na formi izlaz napravi komandni taster i na njega ovaj kod.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Uvoz_Click()
  2. Me.frmIzlazSub.SetFocus
  3. UnosStavki Me.IDTransakcije, Me.BrDokumenta
  4. Me.frmIzlazSub.Requery
  5. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.