Listbox sichtbar/unsichtbar?!

Computer: Software & Programmierung Visual Basic
#1

Hallo,
habe ein neues Problem.

In meiner Combobox stehen sog. „Sachgebiete“.

Wenn dort „Treiber“ ausgewählt wird, soll die Listbox erscheinen, sonst nicht.
(Wenn ich einen neuen Datensatz anlege funktioniert DAS bereits!! - bei Combobox_Change).

Aber das funktioniert nicht, wenn ich das Formular ganz normal öffne und die Datensätze durchblättere.

Habs auch schon in der UserForm_Load probiert:

Me.Combobox.SetFocus

If Me.Combobox.Text = „Treiber“ Then
Befehl106.Visible = True ('Ist ein Button,d.mit sichtbar/
unsichtbar werden soll)
Me.Liste103.Visible = True
Else
Befehl106.Visible = False
Me.Liste103.Visible = False
End If

>>Wo ist mein Fehler??

MfG Sabine L.

#2

Servus Sabine

  1. Die Abfrage muss bei Combobox_Click stehen.
  2. Die Abfrage muss so lauten:
    if Combobox.List(Combobox.ListIndex) = "Treiber"

So müsste es funktionieren

MfG
Roland

In meiner Combobox stehen sog. „Sachgebiete“.
Wenn dort „Treiber“ ausgewählt wird, soll die Listbox
erscheinen, sonst nicht.
(Wenn ich einen neuen Datensatz anlege funktioniert DAS
bereits!! - bei Combobox_Change).

If Me.Combobox.Text = „Treiber“ Then
Befehl106.Visible = True ('Ist ein Button,d.mit sichtbar/
unsichtbar werden soll)
Me.Liste103.Visible = True
Else
Befehl106.Visible = False
Me.Liste103.Visible = False
End If

#3

Sabine. Noch ein allgemeiner Tipp für Dich.

Versuche alle Steuerelemente, die Du ansprechen musst, mit aussagekräftigen Namen zu versehen. Wenn Du in einem Jahr das Programm anpassen musst, machst Du die Schraube, wenn ein Control einfach „ComboBox“ heisst, die eine Liste heisst „Liste103“, die nächste „Liste104“. Der Code ist so ganz schlecht wartbar und unübersichtlich.

#4

Hallo Roland,

hat leider nicht funktioniert :frowning:

Aber MEINE Zeile geht ja wenn ich einen NEUEN Datensatz erzeuge!
(If Me.Combobox.Text = „Treiber“ Then)

Nur wenn ich das Formular öffne bzw. lade, zeigt die Listbox nichts an.

(Ich blättere die Datensätze durch u.sobald ich auf einen treffe, der als „Sachgebiet“ „Treiber“ hat, muss die Listbox daneben sichtbar werden u.den entsprechenden Eintrag markiert anzeigen)

Und wenn kein „Treiber“ als „Sachgebiet“ drin steht, bleibt die Listbox unsichtbar.

Verstehst du?

MfG Sabine L.

Servus Sabine

  1. Die Abfrage muss bei Combobox_Click stehen.
  2. Die Abfrage muss so lauten:
    if Combobox.List(Combobox.ListIndex) = "Treiber"

So müsste es funktionieren

MfG
Roland

#5

Moin Sabine L.

beim Formularstart hat .ListIndex der Combobox den Wert -1. Um beim Start der Form z.B. den ersten Eintrag anzuzeigen, musst Du ihn in der Form_Load Routine auf 0 setzen.

Hoffe, es rollt jetzt…

Cheers!
Hawky