Prikazi cijelu temu 22.06.2016 17:44
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Lokacija:Knjazevac


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]![subfrmQueryRadniListStavkeovde 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.