Eingabe erzwingen in einer Textbox
28.08.2006 10:41:20
selma
ich möchte, dass in einer Textbox ein Wert eingegeben werden muss.
Die Textbox darf erst verlassen werden, wenn ein Wert drin steht.
Bisher habe ich folgenden Code.
Private Sub textbox149_AfterUpdate()
On Error Resume Next
If Not IsNumeric(CDbl(TextBox149)) Then
If TextBox149 = "" Then Exit Sub
Cancel = True
Exit Sub
End If
On Error GoTo 0
'Komma und Tausenderpunkte setzen. Prüfen obe Feld leer
Select Case CDbl(Me.TextBox149.Value)
Case Is <= 0.01
Me.TextBox149.Text = Format(CDbl(Me.TextBox149) * 100, "##,##0.00") & " %"
Case Is <= 0.1
Me.TextBox149.Text = Format(CDbl(Me.TextBox149) * 10, "##,##0.00") & " %"
Case Is <= 1
Me.TextBox149.Text = Format(CDbl(Me.TextBox149) * 1, "##,##0.00") & " %"
Case Is <= 100
Me.TextBox149.Text = Format(CDbl(Me.TextBox149), "##,##0.00") & " %"
Case Is > 100
MsgBox "Unzulässiger Prozentwert"
Me.TextBox149.Text = Format(CDbl(1), "##,##0.00") & " %"
End Select
End Sub
Was muss ich ändern, dass die "Zwangseingabe" funktioniert.
Im Voraus bereits danke
viele Grüsse
selma