VB Check & Option

VB Check & Option 09.06.2004. u 16:39 · pre 272 meseca #1

Prvo, POZDRAV SVIMA !!!!!

Ovo je moje prvo javljanje. Duže vrijeme (cca 3-4 mjeseca) pratim ovaj forum i imam samo riječi pohvale, svaka čast i autorima i učesnicima foruma (posebno DEGOJS-u).

Drugo, naravno moje pitanje:
Kako sam početnik u VB-u skinuo sam Degojs-ove upute i proučio i sve radi odlično.
Pitanje: pokušavao sam u frmChapter35 "vrtiti" Check i Option box-ove (bezuspješno) slično kao txtField polja... Da li je to moguće kao i txt, znači u Name
polja isti naziv za sva a kontrola preko Tag-ova?

Hvala unaprijed i pozdrav svima iz sunčane Istre.

Re: VB Check & Option 09.06.2004. u 16:50 · pre 272 meseca #2

Pretpostavljam da mislis na nizove kontrola. Kontrole koje pripadaju niza imaju isti Name, ali se razlikuju po Index propertyju. Pogledaj frmChapter32 ili frmChapter33 za nizove option buttona, ili pojasni sta hoces tacno da napravis.

Potpis

Blue Man Group

Re: VB Check & Option 11.06.2004. u 08:30 · pre 272 meseca #3

Hvala Mladenovicz na brzom odgovoru.

Što se tiče pitanja, u tablicu sam dodao 4 polja (Yes/No), i to sam htio
"vrtiti" preko spomenute forme kao Check odnosno Option ...

Malo sam koristio "čarobnjaka" i na pola sam puta...

Re: VB Check & Option 11.06.2004. u 10:13 · pre 272 meseca #4

Ja ne razumem sta hoces da napravis

Potpis

Blue Man Group

Re: VB Check & Option 18.06.2004. u 10:08 · pre 272 meseca #5

Sorry, mladenovicz što se nisam prije javio.

Dakle, u db1.mdb u Tablicu tbl_Korisnici dodao sam 4 polja:

Name Type

Strucnasprema text
Bracnostanje text
Engjezik Yes/No
Taljezik Yes/No

U formi frmChapter35 dodao sam 2 Option i 2 Check

optFields za Strucnasprema (Osnovna, Srednja, Viša, Visoka)
optFields za Bracnostanje (oženjen, neoženjen, rastavljen)
chkFields za Engjezik (Govori, Ne govori)
chkFields za Taljezik (Govori, Ne govori)

Pitanje: kako napraviti da kada označim optFields, odnosno check-iram
chkFields da se to i zapiše u tbl_Korisnici naravno s codom iz frmChapter35.
Hvala

Re: VB Check & Option 19.06.2004. u 12:51 · pre 272 meseca #6

Pogledaj u frmChapter32 kako funkcionise to sa nizovima option buttona.

Code:

Private Sub optTable_Click(Index As Integer)
m_TableName = optTable(Index).Caption
End Sub

Ovde je vrednost cuvana u Captionu, a mozes da koristis Tag ili sl. Znaci promenljiva na nivou forme, koja se azurira klikom na option button.

Kad se klikne na button Save ili Update, treba updateovati i ostala polja koja na formi nisu predstavljena textboxovima. Vrednosti iz textboxova se preuzimaju u petlji, s tim sto se polje iz baze nalazi u tagu textbox kontrole (meni je tako zgodno da radim, a moze i drugacije).

Po meni, preglednije je da napravis nesto ovako:
optStrucnaSprema (niz)
optBracnoStanje (niz)
chkEngleski (nema potrebe da bude niz)
chkTalijanski (nema potrebe da bude niz)

a u kodu da imas ovako nesto:

Code:

    Dim optOption As OptionButton

    For Each optOption In optStrucnaSprema
        If optOption.Value Then
            adoRS.fields(optOption.Tag).Value = optOption.Caption
            Exit For
        End If
    Next

ili ako koristis pricu sa pocetka poruke sa promenljivom na nivou forme

Code:

Private m_StrucnaSprema As String
....
Private Sub optStrucnaSprema_Click(Index As Integer)
m_StrucnaSprema = optStrucnaSprema(Index).Caption
End Sub
...
adoRS.Fields("StrucnaSprema").Value = m_StrucnaSprema

Sto se tice check boxova, tu nema potrebe da koristis nizove kontrola

Code:

adoRS.Fields("Engjezik").Value = (chkEngleski.Value=vbChecked)

Potpis

Blue Man Group

Re: VB Check & Option 21.06.2004. u 09:10 · pre 272 meseca #7

Mladenovicz, puno HVALA,

na pomoci,

Pozdrav

Forum kao aplikacija na telefonu

Srodne teme