Bosna i Hercegovina



#1 15.07.2014-13:05
nevsad Offline
Clan
Registrovan/a od: 01.09.2010-14:40
Komentari: 187


Subject: BeforeUpdate
Kod koji vam prezentiram na polju (interna-combobox)na event BeforeUpdate u jednoj formi radi besprijekorno tj poslije iskaza
If Rstinterna.NoMatch Then
imam poruku.
medjutim taj isti kod na istom polju(interna-combobox) u drugoj formi ne odradjuje posao poslije
If Rstinterna.NoMatch Then tj nemam poruke
nego kursor ode na slijedeće polje

ne mogu skuziti gdje je problem
polje je combo sa imenom interna
tabela je tbllproizvodi
forme su :frmulazdetalji - radi
frmizlazdetalji - ne radi

Private Sub interna_BeforeUpdate(Cancel As Integer)
Dim Rstinterna As DAO.Recordset, strinterna As String
Set Rstinterna = CurrentDb.OpenRecordset("select * from tblproizvodi", dbOpenSnapshot)
strinterna = INTERNA
Rstinterna.FindFirst ("interna = '" & strinterna & "'")
If Rstinterna.NoMatch Then
MsgBox " Nemate takavu šifru ! " & Chr(13) _
& "Želite ponovo provjeriti ?", vbInformation, "Queensland Computer" ' Define message.
Me!INTERNA.Undo
Cancel = True
SendKeys "{ESC}{ESC}"
End If
Rstinterna.Close
end sub
↑  ↓

#2 15.07.2014-13:13
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,737


Subject: Re: BeforeUpdate
Zakaci primjer.
Pozdrav
↑  ↓

#3 15.07.2014-23:04
nevsad Offline
Clan
Registrovan/a od: 01.09.2010-14:40
Komentari: 187


Subject: Re: BeforeUpdate
evo primjera

Prilozi:
Informacije o fajlu: zip  primjer_findfirst.zip
Preuzimanja: 64
Veličina: 454.24 KB

↑  ↓

#4 16.07.2014-08:26
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,737


Subject: Re: BeforeUpdate
Fali ti ovaj dio koda da bi radilo kao u frmUlazdetalji.
Cancel = True
SendKeys "{ESC}{ESC}"

Ako je to to sto hoces.
Pozdrav
↑  ↓

#5 18.07.2014-12:03
nevsad Offline
Clan
Registrovan/a od: 01.09.2010-14:40
Komentari: 187


Subject: Re: BeforeUpdate
i poslije dodavanja koda

u ovj formi to ne raadi

pozdrav

ramic
↑  ↓

#6 18.07.2014-12:12
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,737


Subject: Re: BeforeUpdate
E sad moras malo bolje pojasniti sta ne radi.
Dali ne radi event ili ne radi procedura.
Kod mene redi i jedno i drugo.
Samo u ovom slucaju kada nemas
Cancel= true
Pojavi se napomena ali kursor predje u novo polje.

Zaustavi izvrsenje koda negdje na pocetku i sam mozes sa f8 provjeriti.
Mogu i zakaciti moj mdb.
Pozdrav
↑  ↓

#7 18.07.2014-13:53
nevsad Offline
Clan
Registrovan/a od: 01.09.2010-14:40
Komentari: 187


Subject: Re: BeforeUpdate
kursor ide u drugo polje
↑  ↓

#8 18.07.2014-13:53
nevsad Offline
Clan
Registrovan/a od: 01.09.2010-14:40
Komentari: 187


Subject: Re: BeforeUpdate
ne pojavi se napomena ali kursor ode na slijedece polje
↑  ↓

#9 18.07.2014-17:03
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,737


Subject: Re: BeforeUpdate
Evo moj primjer.
I ako budes rijesio ostani na ovoj temi jer imam jos nesto dodati.

Prilozi:
Informacije o fajlu: zip  primjer_findfirstzxz.zip
Preuzimanja: 68
Veličina: 376.60 KB


Pozdrav
↑  ↓

#10 18.07.2014-20:29
nevsad Offline
Clan
Registrovan/a od: 01.09.2010-14:40
Komentari: 187


Subject: Re: BeforeUpdate
nisam riješio

probaj sa šifrom 85A i vidjet ćeš
↑  ↓

#11 18.07.2014-21:05
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,737


Subject: Re: BeforeUpdate
Evo ovako:Na formi frmUlazDetanje combo interna:
-opcija Limit to list je stavljena na jes.
Sto znaci da nista nemoze proci sto ne postoji na izbornoj listi odnosnu sto ne izbaci upit koji je postavljen na rowsource ovoga polja.

sada imas i kod istim upozorenjem na dogadjaj not list i on ti u stvari i obavlja sav posao.
Ovaj kod koji si postavio na before update ne radi ni na ovoj formi a razlog je sledeci:
Na rowsource ovog polja imas upit koji ti izbaci sve redove iz tabele proizvodi u kojima je polje prikazi cekirano.
Da napomenem da polje 85a nije sekirano.

Sada u kodu podizes rekordset iz tabele proizvodi ali bez ikakovg uvjeta sto znaci sve podatke.
Onda ides u potragu za upisanim podatkom tj. 85a i naravno da ga ovdje ima te ne ispunjava uslov no math i ne izbacuje nikakvo upozorenje.
da bi radilo trebalo bi:
Set rstinterna = dbsbaza.OpenRecordset("select * from tblproizvodi WHERE prikazi=true",dbOpenSnapshot)

Znaci isti uslov kao i u rowsource ili jos bolje podici recordsetclone iz rowseource.
Set rstinterna = Me.interna.Recordset

U formi frmIzlazDetalji Polje interna ako stvis opciju limi to list na Yes radit ce ti na obje forme isto.

Znaci sav kod na before update je bespotreba ukoliko ga imas not list.

Pitanje je sta zelis postici.
Mozda je bolje da opises sta je sve moguce upisati u to polje a sta nebi trebalo da moze.
Pozdrav
↑  ↓

#12 19.07.2014-12:46
nevsad Offline
Clan
Registrovan/a od: 01.09.2010-14:40
Komentari: 187


Subject: Re: BeforeUpdate
ovo je sada ok

85a nije cekirano i to je ok
razlog je
bio je vazeci do danas a od danas nije vise vazeci
da operator nebi unio 85a jer je sad nevazeci onda sam postavio ovaj kod kao upozorenje da tog proizvoda vise nema

pozdrav
ramic
↑  ↓

#13 19.07.2014-20:40
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,509


Subject: Re: BeforeUpdate
Pa zosto ne go resis na najprost nacin,stavi edno dlookup na beforupdate koe ke ti vraka vrednost true I false I na osnova na ovaa vrednost stavi if then I resen problem.
↑  ↓

Stranice (1): 1

All times are GMT +01:00. Current time: 22.08.2018-01:04.