nevsad | 15.07.2014 14:05 |
---|---|
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 |
zxz | 15.07.2014 14:13 |
---|---|
Predmet:Re: BeforeUpdate Zakaci primjer. |
zxz | 16.07.2014 09:26 |
---|---|
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. |
nevsad | 16.07.2014 00:04 |
---|---|
Predmet:Re: BeforeUpdate evo primjera |
|
Prilozi: primjer_findfirst.zip (Velicina datoteke:454.24 KB) |
nevsad | 18.07.2014 13:03 |
---|---|
Predmet:Re: BeforeUpdate i poslije dodavanja koda u ovj formi to ne raadi pozdrav ramic |
zxz | 18.07.2014 13:12 |
---|---|
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. |
nevsad | 18.07.2014 14:53 |
---|---|
Predmet:Re: BeforeUpdate kursor ide u drugo polje |
nevsad | 18.07.2014 14:53 |
---|---|
Predmet:Re: BeforeUpdate ne pojavi se napomena ali kursor ode na slijedece polje |
zxz | 18.07.2014 18:03 |
---|---|
Predmet:Re: BeforeUpdate Evo moj primjer. I ako budes rijesio ostani na ovoj temi jer imam jos nesto dodati. |
|
Prilozi: primjer_findfirstzxz.zip (Velicina datoteke:376.60 KB) |
nevsad | 18.07.2014 21:29 |
---|---|
Predmet:Re: BeforeUpdate nisam riješio probaj sa šifrom 85A i vidjet ćeš |