Centar za edukaciju-BiH

Predmet: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

Predmet:Re: BeforeUpdate

---

Zakaci primjer.

---

Predmet:Re: BeforeUpdate

---

evo primjera

Prilozi:

Predmet:Re: BeforeUpdate

---

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

Ako je to to sto hoces.

---

Predmet:Re: BeforeUpdate

---

i poslije dodavanja koda

u ovj formi to ne raadi

pozdrav

ramic

Predmet: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.

---

Predmet:Re: BeforeUpdate

---

kursor ide u drugo polje

Predmet:Re: BeforeUpdate

---

ne pojavi se napomena ali kursor ode na slijedece polje

Predmet:Re: BeforeUpdate

---

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

Prilozi:

---

Predmet:Re: BeforeUpdate

---

nisam riješio

probaj sa šifrom 85A i vidjet ćeš