Predmet:Re: After update problem
PreuzmiIzvorni kôd (Visual Basic):Private Sub ID_Artikl_AfterUpdate()
Dim Db As Database
Dim Rs As Recordset
Dim IDArt As Integer
Dim Rs1 As Recordset
Dim Trazi As String
Set Rs1 = Forms![frmRadniList]![subfrmQueryRadniListStavke].Form.RecordsetClone
IDArt = Me.ID_Artikl
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("SELECT ID_ArtiklStavke FROM TblArtiklStavke WHERE ID_Artikl=" & IDArt)
Do While Not Rs.EOF
Trazi = "ID_ArtiklStavke=" & Rs.Fields(0)
With Rs1
If Rs1.RecordCount > 0 Then
.MoveLast
End If
.FindFirst Trazi
If .NoMatch Then
Forms![frmRadniList]![subfrmQueryRadniListStavke].SetFocus
Rs1.AddNew
Rs1!ID_RadniList = Me.ID_RadniList
Rs1!ID_ArtiklStavke = Rs.Fields(0)
Rs1.Update
End If
End With
Rs.MoveNext
Loop
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.