Re: Userform TB Eingabe
27.01.2003 13:13:37
Daniel P
Hallo Klaus,ich empfehle, den OK-Button in Abhängigkeit von den zu füllenden Feldern aktiv oder inaktiv zu schalten: (Man beachte den Unterschied zwischen Text und Value, wenn das betreffende Element den Fokus hat, kann man nut Text auswerten, wenn nicht, nur Value)
Private Sub UserForm_Initialize()
Call EnableOK(Me.TextBox1.Text, Me.TextBox2.Value, Me.ComboBox1)
End Sub
Private Sub TextBox1_Change()
Call EnableOK(Me.TextBox1.Text, Me.TextBox2.Value, Me.ComboBox1)
End Sub
Private Sub TextBox2_Change()
Call EnableOK(Me.TextBox1.Value, Me.TextBox2.Text, Me.ComboBox1)
End Sub
Private Sub ComboBox1_Change()
Call EnableOK(Me.TextBox1.Text, Me.TextBox2.Value, Me.ComboBox1)
End Sub
Sub EnableOK(Inhalt1 As String, Inhalt2 As String, Inhalt3 As String)
If (Inhalt1 = "") Or (Inhalt2 = "") Or (Inhalt3 = "") Then
Me.CommandButton1.Enabled = False
Else
Me.CommandButton1.Enabled = True
End If
End Sub
Daniel