Centar za edukaciju-BiH



#11 16.08.2015 19:00
Jasmin Van mreze
Moderator
Registrovan od:04.02.2009
Postovi:382


Predmet:Re: not in list
probo i isto ko i kod mene nece. stalno mi javlja gresku otvori mi se vba i ovaj code je markiran u zuto "DoCmd.Close acForm, Me.Name"
Danas je lako biti neprijatelj, al' je tesko biti prijatelj. Samo radi toga, ja, radim teske stvari!
↑  ↓

#12 16.08.2015 20:47
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,644


Predmet:Re: not in list
Da malo prvo pojasnimo sta se desava pa cemo onda rijesiti.
Imas prvu formu koja se zove frm_Example i kao sto si naveo kada u combo boxu napises neki naziv kojeg nemas u listi otvori ti se msg i pitata te hoces li dodati u listu ukoliko kliknes na yes otvara ti se forma
frm_user u kojoj imas polja key_user(automatki brojac) i polja Lat name i first name.
Kada se forma otvoru u polje last name se prenese podatak iz comba prve forme odnosno frm_example i ti tu vec imas znaci unijetu vrijednost odnosno first name i ti trebas da unsese Last name te pritisnes enter.
i tada ti se izvrsava kod
Private Sub Form_AfterUpdate()

u kome ime i red koda koji zatvara formu i to je ok sve radi bez greske.

Problem je medjutim kada ti pokusas zatvoriti formu a imas samo upisano last name.
Znaci sada se prvo opet izvrsava procedura
Private Sub Form_AfterUpdate()
u kojoj imas i red koda za zatvaranje forme.
A sta ce zatvoriti kad si ti vec kliknuo da je zatvoris i ona je vec u zatvaranju i zato javlja gresku.

ukoliko si se predomislio kako si naveo te neces nista unositi opnda moras priotisnuti taster esc da ponistis unos i tada ce ti se forma zatvoriti bez greske.

Znaci nisu tacni tvoji navodi da ne upises nista.
Naime ti ne ukucas nista ali u polje first name vec bude upisana neka vrijednost.

Nije ti dobro rjesenje sto si napravio izlaz iz forme na after update.
Bolje bi bilo da si napravio taster za izlaz a onaj taster na formi ukinuo.

Naravno moze i ovako ali to komplikuje stvar i operateru.
Nekad iz forme izlazi na enter a nekad na close.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#13 16.08.2015 22:07
Jasmin Van mreze
Moderator
Registrovan od:04.02.2009
Postovi:382


Predmet:Re: not in list
Postoji li kakva mogucnost da se upise kod, koji sprecava pokretanje vba prozora?
Danas je lako biti neprijatelj, al' je tesko biti prijatelj. Samo radi toga, ja, radim teske stvari!
↑  ↓

#14 16.08.2015 22:30
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,644


Predmet:Re: not in list
Naravno da postoji ali moras prvo rijesiti sta ces sa tim kada udjes i onda imas upisano first name i izadjes.
Jeli hoces da se vrati nazad sa napomenom da nije upisano ili da prodje tako dalje.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#15 16.08.2015 22:33
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,644


Predmet:Re: not in list
Imas tri slucaja kada otvoris formu frm_User.
1. Slucaj sa tasterom esc i i pobrise se first name koje je preneseno sa predhodne forme.
2. Pokusas izaci sa unosom samo First Name
3. Dopunis unos i pritisnes enter.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#16 17.08.2015 20:34
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,644


Predmet:Re: not in list
Nije ti ovo dobro rjesenje Jasko. Nekad izlazis na enter a nekad na krstic.
Bolje je kad je jednobrazno uvijek ali eto ti si tako htio.
evo ti kod.
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Dim Kancel As Boolean
  4. Private Sub Form_AfterUpdate()
  5.     If Me.OpenArgs & "" <> "" Then
  6.         lngNewUSerID = Me.tb_UserKey
  7.         If Format$(Me.tb_FirstName) = "" Or Format$(Me.tb_LastName) = "" Then
  8.         MsgBox "Popuni Podatke"
  9.         Kancel = True
  10.         Me.tb_LastName.SetFocus
  11.         GoTo Kraj
  12.         End If
  13.         DoCmd.Close acForm, Me.Name
  14.     End If
  15. Kraj:
  16. End Sub
  17.  
  18.  
  19. Private Sub Form_Load()
  20.    
  21.     If Me.OpenArgs & "" <> "" Then
  22.         'Open args was sent to the form.
  23.        Me.tb_FirstName = Me.OpenArgs
  24.         Me.tb_LastName.SetFocus
  25.     End If
  26. End Sub
  27.  
  28. Private Sub Form_Unload(Cancel As Integer)
  29. Cancel = Kancel
  30. Kancel = False
  31. End Sub

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#17 17.08.2015 21:33
Jasmin Van mreze
Moderator
Registrovan od:04.02.2009
Postovi:382


Predmet:Re: not in list
Ne valja, vrijednost mi ostaje zapisana u listi kad zatvorim onaj prozor na X.
Danas je lako biti neprijatelj, al' je tesko biti prijatelj. Samo radi toga, ja, radim teske stvari!
↑  ↓

#18 18.08.2015 10:21
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,644


Predmet:Re: not in list
Hoces reci ostaje ti upisano first name.
Nisi se ni izjasnio kako zelis iako sam ti ja opisao sve tri variante koje su moguce.

Ti dok otvoris formu tebi u polju bude upisan podatak i to sam ti vec napisao.
Sada ako kliknes na krstic za izlaz taj podatak ce se i upisati.
Jedini nacin je da provjeris pa ako nema upisano Last name da pobrise i firt name.
Mozda ti tako odgovara.

Rekao sam ti da si to lose postavi zbo izlaza na dva nacina.
To je lose i za korisnika.
Ti to nevidis ili jer nisi sagledao dovoljno dok si napisao kada ne uneses nista u stvari nikad se ne desi da ne uneses nista jer kada si kliknu da zelis unijeti novi podatak tebi je vec first name uneseno ili bolje reci otvori ti se forma i u polje first name unesen podatak iz comba predhopdne forme.
Znaci vec je nesto uneseno.

sad se postavlja pitanje sta ako neces da uneses nista u ovom momentu.
Rekao sam ti da tad moze priotisnuti esc taster te pobrisati (eliminisati) to sto je vec upisano i onda izaci.
Medjutim ti klikas na krstic i izlazis i naravno zapisuje se u tabelu to sto je upisano na formi.
Ukoliko ti neces da se to upise jedini je nacin da provjeravas pa ako nije i drugo polje popunjeno da se ne upise u tabelu.

Valjda si me sad razumio.

Najbolje je da izlaz napravis samo na jednom mjestu.
Napr samo na krstic ili napravis taster izlaz.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#19 19.08.2015 09:54
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: not in list
Jas vo vakov slucaj stavam tri butona izlezi odkazi i prifati i na sekoj od niv soodvetna funkcija ili moze dva prifati i odkazi
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 7: 20 pm.