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

[Excel VBA] Onemogućen unos u tekstualnim kontrolama na formularu 19.12.2007. u 19:13 · pre 229 meseci #1

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.

Potpis

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

Controle_TBox_Enabled.zip18.33k

Re: [Excel VBA] Onemogućen unos u tekstualnim kontrolama na formularu 19.12.2007. u 21:04 · pre 229 meseci #2

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

Potpis

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

Re: [Excel VBA] Onemogućen unos u tekstualnim kontrolama na formularu 20.12.2007. u 10:55 · pre 229 meseci #3

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

Potpis

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

Re: [Excel VBA] Onemogućen unos u tekstualnim kontrolama na formularu 20.12.2007. u 11:17 · pre 229 meseci #4

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.

Potpis

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

Re: [Excel VBA] Onemogućen unos u tekstualnim kontrolama na formularu 20.12.2007. u 11:52 · pre 229 meseci #5

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

Potpis

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

Forum kao aplikacija na telefonu

Srodne teme