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

[ Gix_ @ 19.12.2007. 18:13 ] @

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]}

[ Jpeca @ 19.12.2007. 20:04 ] @

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

[ Gix_ @ 20.12.2007. 09:55 ] @

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

[ Jpeca @ 20.12.2007. 10:17 ] @

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.

[ Gix_ @ 20.12.2007. 10:52 ] @

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