VBA Tipp: Komfortable Eingabe im Prozentfeld

Aus DBWiki
Wechseln zu: Navigation, Suche

Aufgabenstellung

Ich möchte in einem als "Prozentzahl" formatierten Formularfeld die Prozentwerte direkt eingeben (also z.B. einfach "2" und nicht als Dezimalbruch "0,02").

Lösung

Das erreicht man mit einer Ereignisprozedur für das AfterUpdate-/NachAktualisierung-Ereignis des Textfelds:

Private Sub MeineProtzEnte_AfterUpdate()
  If InStr(Me!MeineProtzEnte.Text, "%") <= 0 Then
    Me!MeineProtzEnte.value = CDbl(Nz(Me!MeineProtzEnte, 0)) / 100#
  End If
Snd Sub