Automatska vrednost u Combobox-u

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)

Probaj na OnGotFocus tog combo boxa (u ovom slucaju je Combo2)ovako:

Potpis

Jednog dana...

Hvala.

Nesto ne ide

Kao da moram da aktiviram upit i u kodu

Kod mene hoće.Evo primera.

Potpis

Jednog dana...

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

Ne razumem. Da li moj primer radi kod tebe?

Potpis

Jednog dana...

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.

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.

Potpis

Jednog dana...

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).

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

Okaci primer,ako mozes. Ovak tesko da mogu da pomognem.

Potpis

Jednog dana...

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.

Nisam siguran,mozda Nz funkcija pomogne.
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)=" ".

Potpis

Jednog dana...

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.

Hvala.
Pozdrav

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.

Možda te ovo zanima. http://www.elitesecurity.org/t158645-0#1036963
ili ovo pomogne http://www.elitesecurity.org/t382555-0#2447075

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

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 .

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.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

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.