Predmet:Re: After update problem
Zonicev kod (crvenom bojom dodajem sta treba jos)
Private Sub ID_Artikl_AfterUpdate()
Dim Db As Database
Dim Rs As Recordset
Dim IDArt As Integer
Dim Rs1 As Recordset
Set Rs1 = Forms![frmRadniList]![subfrmQueryRadniListStavke
ovde stavi naziv tvoje podforme].Form.RecordsetClone
IDArt = Me.ID_Artikl
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("SELECT ID_ArtiklStavke
, Cena, NazivPoljaIzArtiklStavke FROM TblArtiklStavke WHERE ID_Artikl=" & IDArt)
Do While Not Rs.EOF
Rs1.AddNew
Rs1!ID_RadniList = Me.ID_RadniList
Rs1!ID_ArtiklStavke = Rs.Fields(0)
Rs1!Cena = Rs.Fields(1)
Rs1!NazivPolja = Rs.Fields(2)
Rs1.Update
Rs.MoveNext
Loop
End Sub
Nadam se da ces se snaci, samo stavi odgovarajuce nazive polja
Kod Rs idu nazivi kako su u tblArtiklStavke, a kod Rs1 kako su u tblRadniListStavke
Ovaj post je ureden
5
puta. Posljednja izmjena 22.06.2016 18:39 od strane dexxxl.