dex 21.06.2016 18:52
Predmet:Re: After update problem

Pre koda je trebalo dodati

me.dirty = false

Ovako nije otvoren odgovarajuci radni list za stavke iz subforme
Prilozi:
after updateDex .zip (Velicina datoteke:34.86 KB)

White Man 21.06.2016 20:37
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.

zxz 21.06.2016 21:48
Predmet:Re: After update problem

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub ID_Artikl_AfterUpdate()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim IDArt As Integer
  5. Dim Rs1 As Recordset
  6. Dim Trazi As String
  7.  
  8. Set Rs1 = Forms![frmRadniList]![subfrmQueryRadniListStavke].Form.RecordsetClone
  9. IDArt = Me.ID_Artikl
  10. Set Db = CurrentDb
  11.  
  12. Set Rs = Db.OpenRecordset("SELECT ID_ArtiklStavke FROM TblArtiklStavke WHERE ID_Artikl=" & IDArt)
  13. Do While Not Rs.EOF
  14. Trazi = "ID_ArtiklStavke=" & Rs.Fields(0)
  15.    With Rs1
  16.    If Rs1.RecordCount > 0 Then
  17.         .MoveLast
  18.      End If
  19.         .FindFirst Trazi
  20.         If .NoMatch Then
  21.         Forms![frmRadniList]![subfrmQueryRadniListStavke].SetFocus
  22.         Rs1.AddNew
  23.         Rs1!ID_RadniList = Me.ID_RadniList
  24.         Rs1!ID_ArtiklStavke = Rs.Fields(0)
  25.         Rs1.Update
  26.         End If
  27.    End With
  28. Rs.MoveNext
  29. Loop
  30. End Sub

White Man 21.06.2016 22:26
Predmet:Re: After update problem

Da li su obavezna ona dva Query-ija iz primera koji je postavio dexxxl? Hvala unapred.

zxz 21.06.2016 22:27
Predmet:Re: After update problem

Ja sam samo popravio moju proceduru.
Nisam stigao da analiziram sta je @dexxxl radio.

White Man 21.06.2016 23:06
Predmet:Re: After update problem

OK. imam jos jednu ovakvu formu ali ona treba da povuce jos dva polja, norma i radnisati. Ako moze to u isti kod da se dodaju samo jos ta dva polja, gde to treba da upisem u kodu? Hvala unapred.

zxz 21.06.2016 23:17
Predmet:Re: After update problem

Zakaci formu i napisi gdje sta treba da se zapise.

dex 21.06.2016 23:38
Predmet:Re: After update problem

Citat:
Nisam stigao da analiziram sta je @dexxxl radio.

Jednostavno, pre tvoje (prve) procedure dodao sam

me.dirty = false

da bi se podatak upisao u Tabelu tblRadniList. Bez toga je nemoguce dodavati stavke.

Na kraju procedure zakljucavam Combo, tako da je nemoguca promena i ponovo pokretanje procedure.

Kad krene na novi radni list i pocne da unosi podatke (na On Dirty) ponovo se otkljucava combo.

zxz 22.06.2016 10:57
Predmet:Re: After update problem

Da ti si to dobro odradio samo na drugi nacin.
Tvoja ideja je jednostavnija.

White Man 22.06.2016 12:36
Predmet:Re: After update problem

Ovaj zadnji kod koji je zakacio zxz, povlaci stavke ali dozvoljava da se promeni proizvod i kod posle dodaje jos stavki u sub formi. Treba da radi kao sto je dexxxl postavio u primeru, samo ako moze jos da se ispravi kod da kad povuce stavke, da ne dozvoli upis u napomenu za stavke koje nije povukao. Jer kad povuce stavke moze da se upisuje u napomenu ispod koja nema ID operacije i onda izbacuje nulu i dozvoljava da se upisuju dalje napomene pod nulom. Hvala unapred.