taj combo...(nije ni change,click,dblclick...)

taj combo...(nije ni change,click,dblclick...) 19.05.2010. u 21:55 · pre 200 meseci #1

pokusavam da nadjem resenje za sledece ali mi ne uspeva.
Na Form_load imam ucitavanje itema u combo
Na Combo1_clicki Combo1_change imam dogadjaj izvlacenje iz baze i prikazivanje u textbox-ove
Sve to lepo radi, medjutim:

Kada se radi Form_load po defaultu mi ne prikaze PRVO pocetno stanje vec moram da rucno kliknem na PRVI item da bi se rezultati prikazali u textboxove

Code:
Private Sub Form_Load()
combo1_popunjavanje
End Sub

Code:
Sub combo1_popunjavanje()
Dim SQL As String
Dim BrojacArtikala As Long
openconn
SQL = "SELECT * FROM baza_imenika ORDER BY redni_broj DESC;"
Set rs = conn.Execute(SQL)...

Code:

Private Sub Combo1_Click()
    combo1_klik
End Sub
Private Sub Combo1_Change()
    combo1_klik
    Combo1.SetFocus
End Sub

Code:
Sub combo1_klik()
On Error Resume Next
Dim SQL As String
    openconn
    SQL = "SELECT * FROM baza_imenika WHERE maticni_broj='" & Combo1.ItemData(Combo1.ListIndex) & "'"
    Set rs = conn.Execute(SQL)
    If rs.EOF Then

    closeconn
    Exit Sub
    End If
    Do Until rs.EOF
        Smaticni = rs.Fields.Item(0)
        Spib = rs.Fields.Item(4)
        Smobilni = rs.Fields.Item(5)
        Sposao = rs.Fields.Item(5)
        Sfax = rs.Fields.Item(6)
        Semail = rs.Fields.Item(7)

        Text3.Text = Smaticni
        Text4.Text = Spib
        Text5.Text = Smobilni
        Text6.Text = Sposao
        Text7.Text = Sfax
        Text8.Text = Semail ...

Re: taj combo...(nije ni change,click,dblclick...) 19.05.2010. u 23:37 · pre 200 meseci #2

Zar ne mozes u form_load eventu da selektujes prvi item nakon popunjavanja combobox-a?

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: taj combo...(nije ni change,click,dblclick...) 20.05.2010. u 02:29 · pre 200 meseci #3

mogu ja njega da selektujem ali mi treba nesto sto ce da ga "okine" odnosno da potvrdi kao "enter"
meni se u comboou prvi item pojavi ali textboxove ne napuni podacima sve dok ne kliknem na padajuci meni i izaberem taj prvi item ili neki drugi nebitno, dakle sve sto hocu je da mi napuni texboxobe na osnovu upita iz comboa ali ne na klik nego na Form_Load!?

Re: taj combo...(nije ni change,click,dblclick...) 20.05.2010. u 02:35 · pre 200 meseci #4

Pa napravi neku funkciju koja ce da uzme podatak tog elementa i potrazi podatke po bazi...
To posle mozes da iskoristis na vise nacina. Npr, kada promenis podatke, a on odma' lepo ucita te promenjene.

Potpis

Sedam sutlijasa,
za sedam samuraja,
za sedam tramvaja.

Re: taj combo...(nije ni change,click,dblclick...) 20.05.2010. u 02:46 · pre 200 meseci #5

e to sam i uradio, klik na listview, on odatle pokupi ime kupca, prikaze ga u combo a cim se pojavi u combo combo treba da izvrsi upiti napuni textbooxove, ne znam vise kako citav dan a i noc se ...sa tim, a problem je sto ne znam kako da kombo potovrdi daj zapis sto se sa lisview-a prebaci u njega

Re: taj combo...(nije ni change,click,dblclick...) 20.05.2010. u 02:56 · pre 200 meseci #6

Ne znam sta radis i kako radis (a i da znam nista mi ne vredi :) )...ranije sam isto to radio u nekom drugom programskom okruzenju i imao isti problem, a resio sam ga bas tako kako sam rekao.
Napravio sam funkciju koja se zove recimo Popuni-polja. I onda je to radilo otprilike ovako

1. Ucitaj formu
2. Selektuj prvi (ili nulti) element
3. Procitaj sta pise u njemu
4. Daj to sto pise funkciji Popuni-polja

I onda na sve klikove ku*ce i palce sam pozivao tu funkciju koja je lepo citala sta treba...
Zato kazem...ne znam kako to tvoje radi...ja sam u samom combou imao ID elementa, pa sam lako trazio po bazi.

Probaj za pocetak samo na load da iscitas sta pise u tom elementu. Tj. da li se to uopste vidi (osim sto je vizuelno prikazano). Znaci mislim da 'text' ili 'value' property ili kako se vec zove....

Potpis

Sedam sutlijasa,
za sedam samuraja,
za sedam tramvaja.

Re: taj combo...(nije ni change,click,dblclick...) 20.05.2010. u 03:19 · pre 200 meseci #7

evo pogledaj

primer.zip15.15k

Re: taj combo...(nije ni change,click,dblclick...) 20.05.2010. u 03:55 · pre 200 meseci #8

Rekoh, radio sam u drugom okruzenju, tako da nema mnogo vajde od gledanja.
Ja mogu da ti pomognem idejom...a sad, kako to realizovati to je na tebi i eventualno nekom drugom ko ima vise iskustva sa VB.

Potpis

Sedam sutlijasa,
za sedam samuraja,
za sedam tramvaja.

Re: taj combo...(nije ni change,click,dblclick...) 21.05.2010. u 10:05 · pre 200 meseci #9

ja i dalje nemam resenje, moze li neko da mi pomogne

Re: taj combo...(nije ni change,click,dblclick...) 21.05.2010. u 13:11 · pre 200 meseci #10

Ono sto sam ti rekao i posle toga samo pozovi combo1_klik.

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: taj combo...(nije ni change,click,dblclick...) 21.05.2010. u 14:29 · pre 200 meseci #11

Nisam za svojim računarom, pa ne mogu da vidim čitav problem kako treba... kôd sam čitao preko notepada...

ali zašto ne bi u form_load pozvao i combo1_klik (ono što ti je shadowed rekao)!

npr...

Code:

Private Sub Form_Load()
combo1_popunjavanje
combo1_klik
End Sub

jer na combo1_klik ti pozivaš

Code:

SQL = "SELECT * FROM baza_imenika WHERE maticni_broj='" & Combo1.ItemData(Combo1.ListIndex) & "'"

pošto će ti combo1.text biti prazan pri učitavanju forma (form1_load) VB će ti praktično pozvati sledeće:

Code:

SQL = "SELECT * FROM baza_imenika WHERE maticni_broj='" & Combo1.ItemData(Combo1.ListIndex) & "'" ''// combo1.text ti je = ""

''// što će reći da ti poziva
SQL = "SELECT * FROM baza_imenika WHERE maticni_broj= " "

''// tako da će ti selektovati sve (bez uslova)

SQL = "SELECT * FROM baza_imenika

isti ti je Q*ac pozivao na text1_change
ili combo1_change... (ili click) !
i u jednom i u drugom slučaju, ako su objekti prazni iz baze se izvlači sve bez uslova...

samo u

Code:

SQL = "SELECT * FROM baza_imenika WHERE maticni_broj='" & Combo1.ItemData(Combo1.ListIndex) & "'"

umesto znaka jednakosti (=), stavi LIKE... nekada i to zna da pravi problem...5% slučajeva (ako radiš sa stringom), ali pravi... :)

tj.

Code:

SQL = "SELECT * FROM baza_imenika WHERE maticni_broj LIKE '" & Combo1.ItemData(Combo1.ListIndex) & "'"

Potpis

Some people, when confronted with a problem, think: "I know, I'll use regular expressions."
Now they have two problems!
-Jamie Zawinsky

Re: taj combo...(nije ni change,click,dblclick...) 21.05.2010. u 14:31 · pre 200 meseci #12

Dodaj na kraju procedure combo1_popunjavanje sledeću liniju

Code:
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0

i rešio si problem.

Potpis

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Re: taj combo...(nije ni change,click,dblclick...) 23.05.2010. u 22:37 · pre 200 meseci #13

mislim da je ovako lakse ako zelite da mi pomognete. molim vas pogledajte jer ja drugacije ne znam kako da vam obkjasnim. zelim da se na listview2_dblclick to ime kupca pojavi u combou i istovremeno prikazu podaci koji se vuku isto iz baze ali na osnovu upita iz comboa (bas kao i na jesnotavni klik direktno na combo)

primer.rar13.5k

Forum kao aplikacija na telefonu

Srodne teme