Centar za edukaciju-BiH

Predmet:After update problem

---

Kako da namestim u formi frmRadniList, da kada odaberem ime artikla da u sab formi subfrmQueryRadniListStavke sve operacije vezane za taj artikl. Hvala unapred.

Prilozi:

Predmet:Re: After update problem

---

Na combo gde izaberes artikal na afterupdate sa jedan sql selektiraj sve operacije za taj artikal i prebaci na subformi.
Mozes prebacivajne isto napraviti sa insert direkno u tabelama, a na subforma uradis samo refresh

Predmet:Re: After update problem

---

Treba da se napise kod, da kad abdejtuje operacije, ne dozvoljava ponovni unos artikla.

Predmet:Re: After update problem

---

Nije mi bas jasno sta hoces, drugo i nema podataka ukucannih da bi se mogao snaci.
Imas formu koja je napravljena na osnovu tabele tblRadniList i ti imas polje šifre artikla i kako sam te razumio ti hoces kada odabere šifru artikla da ti se u subformi prepisu sve stavke iz tabele tblArtikliStavke za taj artikl.

Jesm li dobro razumio?

---

Predmet:Re: After update problem

---

Ako je to onda evo kod.
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].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
Rs1.AddNew
Rs1!ID_RadniList = Me.ID_RadniList
Rs1!ID_ArtiklStavke = Rs.Fields(0)
Rs1.Update
Rs.MoveNext
Loop
End Sub

---

Predmet:Re: After update problem

---

Da taj princip, samo sto ako se odabere jedan proizvod i on abdejtuje podatke, ako se opet odabere ta ili drugi on dodaje ispod, trebalo bi samo jednom da abdejtuje. I drugo ako se otvori sledeci radni lisr izbacuje gresku u Rs1.Update. Ako moze to da se ispravi i doradi kod. Hvala unapred.

Predmet:Re: After update problem

---

Na kraju koda dodaj

me.ID_Artikl.locked=true

na formu na on Dirty ubaci

me.ID_Artikl.locked=false

Predmet:Re: After update problem

---

Nece, da li mozete da ubacite ceo kod u bazu koju sam gore nakacio i da zakacite kad zavrsite? Hvala unapred.

Predmet:Re: After update problem

---

Pre koda je trebalo dodati

me.dirty = false

Ovako nije otvoren odgovarajuci radni list za stavke iz subforme

Prilozi:

Predmet:Re: After update problem

---

Da li bi mogli malo da objasnite postupak? Jer imam jos jednu slicnu formu koja treba da vuce jos i cene uz operacije i jos neke podatke pa da bih znao gde sta trebam da dodam u kodu. I da li imaju funkciju i kakvu ova dva Query-ija koja ste dodali? Hvala puno unapred.