Text1.Enabled funktioniert nicht

[JOKIO]

Wenn ein hacken bei der Checkbox is soll man was in die 3 text felder eintippen können wenn nicht dann soll man nicht reinschreiben können

was stimmt daran nicht

Private Sub Check1_Click()
If Check1.Value = 1 Then
Text2.Enabled = True
Text6.Enabled = True
Text10.Enabled = True
End If
If Check1.Value = 0 Then
Text2.Enabled = False
Text6.Enabled = False
Text10.Enabled = False
End If
End Sub

als error bekomme ich
Fehler beim Kompilieren:
Methode oder Mitgliedsdaten nicht gefunden
wäre sehr dankbar über hilfe

lg JOKIO



edit:

hab da noch ein problem das ich früher auch schon hatte und keiner eine lösung hatte
ich möchte aus einer Combobox ein Feld auslessen in meinem fall Combo1.List
wenn ich aber z.B mache
If Combo1.list = bla then
msgbox ("bla")
end if
if combo1.list = blu then
msgbox ("blu")
end if
da wird dann immer nur bla ausgegeben egal was ich auswähle
ich hab da irgendwas gelesen von Combo1.list(1) oder so aber das kapirre ich nicht kann mir da vielleicht auch jemand helfen?
thx

 

[JensG]

Hallo Jokio,

also an dem ersten Codestück ist kein Fehler zu erkennen.
Vorausgesetzt es gibt alle Controls.

Das zweite Problem kannst du so lösen.

If Combo1.List(Combo1.ListIndex) = "bla" Then
        MsgBox ("bla")
End If

Jens

 

[JOKIO]

ah thx funktioniert
vielen vielen dank

das heisst beim ersten code kanns nur an mir liegen das ich irgendwas falsch gemacht habe? alles was in dem code vorkommt gibt es :/

 

[red_mowl]

Hallo!

Es kann nur an deinem Compiler liegen (Falscheinstellung - obwohl selbst das fast unmögli ist)
Falls du's doch noch hingrigst, solltest du ins Form_Load die Text Boxes auf deaktiviert setzen;
damit funktioniert auch deine Checkbox Funktion (bei Klick aktiviert und umgekehrt)

LG,

red_mowl


Probier ein komplett neues Projekt anzulegen, vielleicht hilft es

 

[JOKIO]

mh wenn ich ein neues projekt mache gehts
aber bei meinem jetzigen funkts einfach ned :/
nochmal thx für eure hilfe