Centar za edukaciju-BiH

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

Predmet:Re: After update problem

---

Radi, hvala. Samo sto kad se snimi dokument i kad se ponovo vrati na prethodni on dozvoli jednom da se unese jos neki proizvod. Je l' mozete da napisete kod za command button da kad usnimi dokument, da ne dozvoli vise promenu artikla i jos jedan kod za brisanje, da kad se klikne obrise sve podatke samo iz sub forme. Hvala unapred.

Predmet:Re: After update problem

---

Odma' dodje

Prilozi:

Predmet:Re: After update problem

---

Kad obrise ne moze da se se ubace podatci u sub formu ponovo i fali kod za snimanje. Mozda me niste dobro razumeli. Treba mi dugme za snimanje save, da kad usnimi zakljuca combo box ID_Artikl, da ne mogu tada da se biraju proizvodi ako se udje ponovo u taj nalog radi pregleda pa da neko greskom ubaci jos. a dugme obrisi, treba da obrise sub formu i otkljuca combo box ID_Artikl, da bi mogli ponovo da se ubace podaci. Znaci dva koda molim, ako moze. :-) Hvala unapred.

Predmet:Re: After update problem

---

Kod mene radi kako treba (na 2003), s tim sto nema kod za snimanje, vec se automatski zakljucava posle procedure AfterUpdate, a automatski otkljucava kad pocnes da unosis podatke za novi list i posle brisanja.
Ako krenes novi list (combo se automatski otkljuca) pa se vratis na neko prethodni opet se automatski zakljuca. Jedino kad se vratis na novi zapoceti combo je zakljucan. Moras da ga otkljucas pritiskom na brisanje.

Isprobaj ovaj

Prilozi:

Predmet:Re: After update problem

---

To je to, hvala. Mozete li sada da mi uradite dugme za save, da kad snimi zakljuca combo box ID_Artikl, i kad se obrise sub forma tek tada otkljuca i dozvoli ponovni unos. Hvala unapred.

Predmet:Re: After update problem

---

Kod za snimanje i zakljucavanje je

Me.dirty = false
Me.Id_Artikl.locked = true

Predmet:Re: After update problem

---

U principu to je, ponekad hoce da zeze kad se usnimi pa obrise, mora da se izadje iz forme pa onda hoce. Pored kolone napomena u sub formi kad dodam kolinu kolicina i kada se izabere proizvod i on uvuce 5 operacija a ja za dve operacije imam kolicinu. Da li moze da se napise kod da kad stampam report on otstampa samo one koje imaju kolicinu? Hvala unapred.

Predmet:Re: After update problem

---

Samo u Query-u izvjestaja dodaj ulov da je kolicina veca od nule.

---

Predmet:Re: After update problem

---

To je to, hvala. A sta da stavim za uslov u Query-u da mi sabere operacije koje se ponavljaju vise dana? Na primer ako se jedna operacija uradi danas 10 puta a sutra 20 da mi pokaze 30. Hvala unapred.