Problem mit If
11.11.2003 10:27:11
Daniel O.
Ich habe mal wieder ein Problem!!!
Kann sich jemand diese Code anschauen?
Private Sub CommandButton1_Click()
If ListBox1.Text = "" Then
Label2.Caption = "Sie haben kein Monat gewählt!"
Label3.Caption = "Wählen Sie ein Monat"
End If
If ListBox1.Value > 0 Then
Label2.Caption = "Der Plan wird gespeichert"
Plan_Speichern
End If
End Sub
Private Sub CommandButton2_Click()
If ListBox1.Text = "" Then
Label2.Caption = "Sie haben kein Monat gewählt!"
Label3.Caption = "Wählen Sie ein Monat"
End If
If ListBox1.Value > 0 Then
Label2.Caption = "Der Plan wird geöffnet"
Plan_Öffnen
End If
End Sub
Private Sub CommandButton3_Click()
If ListBox2.Text = "" Then
Label2.Caption = "Sie haben keine Tabelle gewählt!"
Label3.Caption = "Wählen Sie eine Tabelle aus."
End If
If ListBox2.Value > 0 Then
Plan_Speichern1
End If
End Sub
Private Sub CommandButton4_Click()
If ListBox2.Text = "" Then
Label2.Caption = "Sie haben keine Tabelle gewählt!"
Label3.Caption = "Wählen Sie eine Tabelle"
End If
If ListBox2.Value > 0 Then
Label2.Caption = "Die Tabelle wird geöffnet"
Plan_Öffnen1
End If
End Sub
Die
Private Sub CommandButton 1 und 2 funktionieren:
wenn ListBox1.Text="" erscheinen die beide Labels
wenn ListBox1.Value>0 dann geht zu Plan speichern oder öffnen.... reibungslos!!
Die CommandButton 3 und 4 ignorieren der If und gehen gleich weiter und natürlich kommt zum Error,
da der Wert von der Listbox2 "" ist
Warum???
Kann mich jemand helfen?
Danke Daniel
Anzeige