Vornamen ohne Zahlen

[45457]

Hallo zusammen
Will in meiner Datenbank definieren dass keine Zahlen als Zeichen bei Namen und Vornamen eingegeben werden dürfen.

Mit der folgenden Definition konnte ich verhindern dass wenn ich eine Zahl als Name abspeichern will das Ganze funktioniert, jedoch wenn ich der Name und dann eine Zahl dranhänge habe ich die Definition schon wieder ausgetrickst.
Kann mir da irgendjemand helfen?

(Asc([Name])<48) Oder Nicht (Asc([Name])<58)

Freundliche Grüsse

[bahasu]

Hi,

machbar mit (siehe Anhang):

Private Sub Form_BeforeUpdate(Cancel As Integer)
   Dim X As Byte
   Dim L As Byte
   
   X = 1
   L = Len(Me.Name_txt)
   Do Until IsNumeric(Mid(Me.Name_txt, X, 1)) Or X > L
       X = X + 1
   Loop
   
   Cancel = X <= L
End Sub

Harald

[Anhang gelöscht durch Administrator]

[45457]

Dankeschön