Prikazi cijelu temu 21.06.2016 21:48
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: After update problem
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub ID_Artikl_AfterUpdate()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim IDArt As Integer
  5. Dim Rs1 As Recordset
  6. Dim Trazi As String
  7.  
  8. Set Rs1 = Forms![frmRadniList]![subfrmQueryRadniListStavke].Form.RecordsetClone
  9. IDArt = Me.ID_Artikl
  10. Set Db = CurrentDb
  11.  
  12. Set Rs = Db.OpenRecordset("SELECT ID_ArtiklStavke FROM TblArtiklStavke WHERE ID_Artikl=" & IDArt)
  13. Do While Not Rs.EOF
  14. Trazi = "ID_ArtiklStavke=" & Rs.Fields(0)
  15.    With Rs1
  16.    If Rs1.RecordCount > 0 Then
  17.         .MoveLast
  18.      End If
  19.         .FindFirst Trazi
  20.         If .NoMatch Then
  21.         Forms![frmRadniList]![subfrmQueryRadniListStavke].SetFocus
  22.         Rs1.AddNew
  23.         Rs1!ID_RadniList = Me.ID_RadniList
  24.         Rs1!ID_ArtiklStavke = Rs.Fields(0)
  25.         Rs1.Update
  26.         End If
  27.    End With
  28. Rs.MoveNext
  29. Loop
  30. End Sub

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 2 puta. Posljednja izmjena 21.06.2016 21:56 od strane zxz.