Feld beim erfassen in % umrechnen

[Thomas_Kaehler]

Hallo,

ich habe ein Feld, in dem Prozentwerte drinstehen. Das funktioniertz auch problemlos, was die Anzeige betrifft. Nun möchte ich aber dem Benutzer die Eingabe dahingehend erleichtern, daß er nicht 0,5 eintippen muß, wenn er 50% braucht, sondern, daß er einfach 50 eintippt und dies automatisch umgerechnet (durch 100 geteilt wird).

Gruß

Thomas

[Anonym]

Z.B:

Private Sub Prozentwert\_AfterUpdate()
 If Nz(Me.Prozentwert) \> 1 Then Me.Prozentwert = Me.Prozentwert / 100
End Sub

pp

[Thomas_Kaehler]

Danke!