[ erc kragujevac @ 05.04.2013. 17:59 ] @
Imam Combobox koji je vezan za upit.
Vrednosti upita se azuriraju na osnovu prethodno izabranih vrednsoti u prethodna dva combo box-a na formi.
I ovaj combo box vraca vrednosti bez problema,ali bih ja hteo da se u combo box-u ispise prva vrednost iz padajuce liste.
Ovo moze da se desava na izlasku iz prethodnog polja na formi ili na ulasku u sam combo box.
Zeleo bih da korisnik samo preskoci to polje koje je vec automatski napunjeno, umesto da bita iz paqdajuce liste i kada ima samo 1 vrednost.

Probao sam sa Combobox3.text= Combobox3.columns(0)
[ SLOJ.1973 @ 05.04.2013. 20:08 ] @
Probaj na OnGotFocus tog combo boxa (u ovom slucaju je Combo2)ovako:
Code:
Me.Combo2.DefaultValue = Me.Combo2.ItemData(0)
[ erc kragujevac @ 05.04.2013. 21:09 ] @
Hvala.

Nesto ne ide

Kao da moram da aktiviram upit i u kodu
[ SLOJ.1973 @ 05.04.2013. 21:18 ] @
Kod mene hoće.Evo primera.
[ erc kragujevac @ 06.04.2013. 09:01 ] @
Nesto pravi problem.
Kao da ne funkcionise Requery.
Poenta je da izaberem PRVI i on mi upise vrednost 18,a ako promenim na DRUGI onda da upise vrednost 14 u sam combo box,a padajuca lista ostaje kao mogucnost da se vrednost menja.
Za TRECI mi je jasno da javlja problem Null.

Hvala na pomoci.

Srdacan pozdrav
[ SLOJ.1973 @ 06.04.2013. 09:30 ] @
Ne razumem. Da li moj primer radi kod tebe?
[ erc kragujevac @ 07.04.2013. 23:09 ] @
Radi,ali tako sto menja vrednosti u padajucoj list,ali ne puni automatsli CB.
I ja imam vrednosti u padajucoj list ada dodjem do CB( u mom primeru), ali mi je CB prazan dok ne izaberem vrednost,a ja bih hteo da imam vrednost u CB kada korisnik dodje do njega. Ako zeli da promeni onda bira iz liste,U suprotnom ostavlja ponudjenu vrednost.
[ SLOJ.1973 @ 08.04.2013. 04:50 ] @
Zato sto sam stavio kod da menja vrednost kada CB dobije focus (OnGotFocus). To bi trebalo da vidis iz koda.Stavi da posle update (AfterUpdate) prvog CB doda vrednost u drugi. Isti kod samo na AfterUpdate prvog CB.
[ erc kragujevac @ 08.04.2013. 10:22 ] @
Hvala. Tvoj primer radi savrseno,ali kod mene nikako.
Lepo sam vezao CB za upit i vuce ispravne vrednosti,ali ne upisuje automatski na na after update, got focus, enter ili bilo sta slicno.
Na slici u prilogu sam pokusoa da pokazem sta mi treba.
Kada se izabere vrednost za polje Linija upit se lepo refresuje( sto se vidi i iz podataka koji se nude u padajucoj listi),ali nikako da upise vrednost D3( u ovom slucaju imam jednu vrednost,a trebao bi uvek da upise prvu vrednost bez obzira koliko ih ima).

[ erc kragujevac @ 08.04.2013. 11:14 ] @
Uradio sam ME.Ute.requery
Me.linija.Defaultvalue=ME.linija.itemdata(0) na after update i to radi skoro uvek
ima kao neko usporenje

Kada isto to primenim na linija i domen nece da azurira vrednost
uradi za prvu izabranu,ali dalje ne radi

[ SLOJ.1973 @ 08.04.2013. 11:45 ] @
Okaci primer,ako mozes. Ovak tesko da mogu da pomognem.
[ erc kragujevac @ 09.04.2013. 10:37 ] @
Proradilo. HVala na pomoci.
Sada imam jos jedan mali problemcic.
Prilikom izlaska iz jednog CB upisuje se vrednost njegove 2 kolone u labelu( kao informacija za izabrani kod).
To sam postigao sa
Me.Tip_zastoja.Caption = Me.Tipzastoja.Column(1) postavljajuci na on change.
Nazalost kada pozovem slogove da ih pregledam nema ispisa u labeli.
To sam obezbedio postavljajuci
Private Sub Form_Current()
Tip_zastoja.Caption = ""
Me.Tipzastoja.Requery
Tip_zastoja.Caption = Tipzastoja.Column(1)

End Sub

Ovde imam problem kada krenem na prvi slog koji nije unet( nov slog) i tu mi javlja
Run time error 94 Invalid use of null.

Jasno mi je da je u tom slucaju Tipzastoja.Column(1) ,ali nisam uspeo u kod da napravim neku varijantu IF Tipzastoja.Column(1) is null then Tipzastoja.Column(1)=" "( nadam se da u labelu upise prazan string,a na promenu ce upisati pravu vrednost) else Tip_zastoja.Caption = Tipzastoja.Column(1).

Mozda on form current nije najsrecnije izabrani dogadjaj,ali na on open i on active nije radilo.
[ SLOJ.1973 @ 09.04.2013. 10:44 ] @
Nisam siguran,mozda Nz funkcija pomogne.
Code:
Tip_zastoja.Caption = nz(Tipzastoja.Column(1),"")

A sto se tice: IF Tipzastoja.Column(1) is null then Tipzastoja.Column(1)=" "( nadam se da u labelu upise prazan string,a na promenu ce upisati pravu vrednost) else Tip_zastoja.Caption = Tipzastoja.Column(1),trebalo bi da stoji If IsNull(Tipzastoja.Column(1))then Tipzastoja.Column(1)=" ".
[ erc kragujevac @ 09.04.2013. 12:55 ] @
reseno pod on current,ali sa IF not me.new record.
Kako bese ide postavljanje curosra u konretno polje prilikom pregleda i unosa.
Mislim da onu varijantu kada otvorim formu,a kursor u polju datum.
KAda kliknem na sledeci da bude isto u tom polju.
[ erc kragujevac @ 09.04.2013. 14:29 ] @
Hvala.
Pozdrav
[ erc kragujevac @ 09.04.2013. 17:26 ] @
namestio sam da je Access database window hide,ali ga spusta u taskbar.
Postoji li mogucnost da i tu sakrije.
Da stvarno bude kao exe.
[ Getsbi @ 09.04.2013. 18:36 ] @
Možda te ovo zanima. http://www.elitesecurity.org/t158645-0#1036963
ili ovo pomogne http://www.elitesecurity.org/t382555-0#2447075
[ erc kragujevac @ 10.04.2013. 08:29 ] @
Hvala na pomoci.
U Access-u 2010 sve lepo funkcionise.
Na sredini desktopa otvori main form( display form koja je definisana) i to je OK.
Problem je sto glavni access prozor (gde sam decekirao navigation panel i sve ostalo) spusti na taskbar odakle moze da se pokrene i vidi se prozor Access-a sa opcijom File.
Ja bih zeleo da bude otvorena samo ova forma koja je definisana kao glavna i da ne postoji mogucnost prilaska Database window .
[ Getsbi @ 10.04.2013. 09:10 ] @
Nisam siguran ali mislim da u Top temi o gotovim programima postoji primer upravo kako je opisano kodiranjem u temama koje sam ti preporučio. S druge strane potraži i teme koje se bave sprečavanjem otvaranja Database prozora uz držanje Shift tastera. To bi trebalo da ti pomogne. Pravljenje .mde verzije umesto mdb je takođe korisno sa aspekta onog što želiš da postigneš, a to je sakrivanje objekata od korisnika.
[ erc kragujevac @ 10.04.2013. 14:35 ] @
Hvala.
U ovom slucaju je accde umesto accdb,ali princip je isti.
IZ nekog razloga nece,ali nije problem.
Nije mi bas resenje da stavim to sa shift jer u tom slucaju ni ja necu moci da pridjem bazi. Jedino da ima dve verzije.
Napravio sam accde,ali se ponasa isto.

[ Zidar @ 10.04.2013. 15:19 ] @
Pre engo sto napravis accde, probaj d au Options postavis "Hide databse window". Obicno accde zapamti te postavke, barem u ranijim verzijama, pre 2007.
[ erc kragujevac @ 11.04.2013. 09:15 ] @
Primenio sam modul iz priloga i komandu CAll fSet AccessWindow(SW_HIDE). Postavio sam da se ovo desava na On Load forme koja je setovana kao main form ( Display).
Problem je sto u ovom slucaju ne mogu da primenim nista cime bih usao u prozor baze i nesto sredjivao.
Ne mislim na ulazak kada je aplikacija vec startovana , vec na novi start( Shift+ Enter).
Drugi problem je sto Access.exe ostaje aktivan u pozadini i moram dfa ga ubijam kroz task mng.
[ erc kragujevac @ 18.04.2013. 08:10 ] @
Sve sljaka super. Reseni svi problemi.
Sada jedno novo pitanje.

Zelim da pomocu Makro-a saljem mejl iz Access-a.
To radi na click on button,ali bih ja zeleo da na neki nacin automatizujem da se salje u odredjenom trenutku u toku dana.
Ima li sanse da se definise pokretanje makro-a na neki takav dogadjaj.
Da li bi on open form bilo resenje,a onda u nekom skriptu an serveru da pokrecem i gasim bazu.