[es] - [Excel VBA] Onemogućen unos u tekstualnim kontrolama na formularu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w90-28.abo.wanadoo.fr.

Profil

[Excel VBA] Onemogućen unos u tekstualnim kontrolama na formularu

^{19.12.2007. u 18:13 - pre 199 meseci}

Pozdrav za sve.
Opet novi problem koji nikako neshvatam iz kog razloga nastaje pa da pitam za pomoc.
Da bih izbegao pogrešno kucanje u pojedine TBoxove stavio sam ih na Enabled, kada izaberem opciju "Broj Carte Sim" funkcionise kako treba
(oslobodimi TBoxove koje trebam modificirati 14 - 27). Medjutim, ako izaberem opciju "Broj Centrale" onda nesto nefunkcionise neoslobodjava mi TBoxove 14 - 27
Samo da napomenem da oslobodjavanje TBoxova je dozvoljeno ukoliko ComboBox poseduje neku vrednost ako ne onda svi TBoxovi ostaju na .Enabled

Zahvaljujemse unapred na vasoj pomoci.

_{[Ovu poruku je menjao Jpeca dana 19.12.2007. u 19:27 GMT+1]}

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Prikačeni fajlovi

Controle_TBox_Enabled.zip - 18.33k

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
*.bisinter.net.

Sajt: www.gowi.rs

+109 Profil

Re: [Excel VBA] Onemogućen unos u tekstualnim kontrolama na formularu

^{19.12.2007. u 20:04 - pre 199 meseci}

U prilogu koji si postavio ne radi ni slučaj sa Broj Carte Sim ni Broj centrale. Uslov nisi dobro napisao. Umesto dva IF koje si koristio:

Code:

If Me.ComboRechercherModif.Value = True Then
    For TBox = 21 To 27
        Me.Controls("Textbox" & TBox).Enabled = True
   Next
End If
If Me.ComboRechercherModif.Value = "" Then
    For TBox = 14 To 27
        Me.Controls("Textbox" & TBox).Enabled = False
    Next
End If

logički je ispravnije koristiti IF .. THEN ...ELSE strukturu. Takođe nije mi jasno zašto u jednom slučaju koristiš 21 do 27 a u drugom 14 do 27?
Ako sam dobro razumeo trebalo bi nešto ovako:

Code:

If Me.ComboRechercherModif.Value <> "" Then
    For TBox = 14 To 27
        Me.Controls("Textbox" & TBox).Enabled = True
   Next
Else
    For TBox = 14 To 27
        Me.Controls("Textbox" & TBox).Enabled = False
    Next
End If

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w86-219.abo.wanadoo.fr.

Profil

Re: [Excel VBA] Onemogućen unos u tekstualnim kontrolama na formularu

^{20.12.2007. u 09:55 - pre 199 meseci}

Re,
Ponekad me strasno nervira da ispadnem ovakva budala, jer sada vidim da pravim neke greske totalno glupe.
Napisaosam ovako kodu prvi put

Code:
If Me.ComboRechercherModif.Value = "" Then
    For TBox = 14 To 27
        Me.Controls("Textbox" & TBox).Value = ""
            Me.Controls("Textbox" & TBox).Enabled = False
Else
    For TBox = 21 To 27
        Me.Controls("Textbox" & TBox).Enabled = True
            Next
                End If

naravno nije funkcionisalo jer nisam nikako ukapirao damije falio Next pre linije Else
Inace zasto 14-27 i 21-27 iz razloga jer zelim dozvoliti modifikaciju samo za TBox 21-27 naravno sa kondicijom akoje Combo popunjen
Jos jednom hvala na pomoci

PS: jedno malo dopunsko pitanje za liniju kojusi napisao

Code:
If Me.ComboRechercherModif.Value <> "" Then

zasto koristis kondiciju <> zar nije dovoljno ""
nemojse smejati vidi moj potpis

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
212.200.27.*

Sajt: www.gowi.rs

+109 Profil

Re: [Excel VBA] Onemogućen unos u tekstualnim kontrolama na formularu

^{20.12.2007. u 10:17 - pre 199 meseci}

Citat:

Zašto koristis kondiciju <> zar nije dovoljno ""

Pa zavisi kako želiš da postaviš uslov

Code:

If Me.ComboRechercherModif.Value <> "" Then

znači ako nije prazno (različiti od praznog), a ovo bi bilo ako jeste prazno:

Code:

If Me.ComboRechercherModif.Value = ""

U principu svejedno, zavisi šta ti je logičnije i da ostale linije koda prate usvojenu logiku.

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w86-219.abo.wanadoo.fr.

Profil

Re: [Excel VBA] Onemogućen unos u tekstualnim kontrolama na formularu

^{20.12.2007. u 10:52 - pre 199 meseci}

Ok razumeosam logicnoje kad bolje razmislim posle tvog obrazlozenja hvalati i budi pozdravljen.

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Odgovor na temu