Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (4):1,2,3,4

#11 21.06.2016 21:48
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 2 puta. Posljednja izmjena 21.06.2016 21:56 od strane zxz. ↑  ↓

#12 21.06.2016 22:26
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: After update problem
Da li su obavezna ona dva Query-ija iz primera koji je postavio dexxxl? Hvala unapred.
↑  ↓

#13 21.06.2016 22:27
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: After update problem
Ja sam samo popravio moju proceduru.
Nisam stigao da analiziram sta je @dexxxl radio.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#14 21.06.2016 23:06
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


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.
↑  ↓

#15 21.06.2016 23:17
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: After update problem
Zakaci formu i napisi gdje sta treba da se zapise.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#16 21.06.2016 23:38
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:625


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.
↑  ↓

#17 22.06.2016 10:57
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: After update problem
Da ti si to dobro odradio samo na drugi nacin.
Tvoja ideja je jednostavnija.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#18 22.06.2016 12:36
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


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.
↑  ↓

#19 22.06.2016 16:24
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:625


Predmet:Re: After update problem
Samo u propertis za subformu u kartici data postavi Allow Additions na No
↑  ↓

#20 22.06.2016 16:59
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: After update problem
hvala. Niste mi jos odgovorili, da li oni upiti koje ste dodali imaju veze sa kodom? I gde da dodam u onom kodu jos neko polje kad ubacim na subformu jos dve stavke? Hvala unapred.
↑  ↓

Stranice (4):1,2,3,4

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 1: 56 pm.