Guten Morgen,
in einer UF ComboBox4 habe ich folgenden Code:
'Auswahl Einnahmen/Ausgaben
<pre>Private Sub ComboBox4_Change()
If ComboBox4 = "Einnahmen" Then
TextBox4.Enabled = True
TextBox4.SetFocus
Me.TextBox4.SelStart = 0
Me.TextBox4.SelLength = Len(Me.TextBox4)
TextBox5.Enabled = False
End If
If ComboBox4 = "Ausgaben" Then
TextBox5.Enabled = True
TextBox5.SetFocus
Me.TextBox5.SelStart = 0
Me.TextBox5.SelLength = Len(Me.TextBox5)
TextBox4.Enabled = False
End If
If ComboBox4 = "" Then
TextBox5.Enabled = False
TextBox4.Enabled = False
End If
End Sub</pre>
Wenn ich in der ComboBox4 die Auswahl "Einnahmen" wähle, bekomme ich eine Fehlermeldung bei der Zeile "
TextBox4.SetFocus".
Die Fehlermeldung lautet:
Laufzeitfehler '-2147467259 (80004005)': Nicht näher bezeichneter Fehler
Könnt ihr mir bitte helfen, diesen Fehler zu beseitigen.
Grüss
Peter