| White Man | 24.06.2016 00:05 |
|---|---|
|
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. |
|
| dex | 24.06.2016 08:41 |
|---|---|
|
Predmet:Re: After update problem Kod za snimanje i zakljucavanje je Me.dirty = false Me.Id_Artikl.locked = true |
|
| White Man | 19.06.2016 14:00 |
|---|---|
|
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: after update.rar (Velicina datoteke:27.48 KB) | |
| Gjoreski | 19.06.2016 20:23 |
|---|---|
|
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 |
|
| White Man | 19.06.2016 20:46 |
|---|---|
|
Predmet:Re: After update problem Treba da se napise kod, da kad abdejtuje operacije, ne dozvoljava ponovni unos artikla. |
|
| zxz | 20.06.2016 22:06 |
|---|---|
|
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? |
|
| zxz | 20.06.2016 22:31 |
|---|---|
|
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 |
|
| White Man | 20.06.2016 23:57 |
|---|---|
|
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. |
|
| dex | 21.06.2016 14:08 |
|---|---|
|
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 |
|
| White Man | 21.06.2016 17:22 |
|---|---|
|
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. |
|