title image


Smiley Nur zahlen und Komma oder Punkt in textfeld zulassen ??
hallo,



kann mann das in einen Textfeld für jedes zeichen das gerade eingegeben wird prüfen?



am besten wäre wenn jedesmal sofort geprüft wird wenn ein zeichen eingegeben wird. hatte mir das so gedacht:



Private Sub txtFields_Change(Index As Integer)

If Index = 4 Then

feld_Nr = Index

'For textPosCount = 1 To Len(txtFields(feld_Nr).Text)

aktuelleCursorPos = txtFields(feld_Nr).SelStart

If aktuelleCursorPos > 0 Then

pruefZeichen = Mid(txtFields(feld_Nr).Text, aktuelleCursorPos, 1)

wertIO = False

For nullBisZehn = 0 To 9

If pruefZeichen = Str(nullBisZehn) Then

wertIO = True 'txtFields(feld_Nr).Text = Mid(txtFields(feld_Nr), 1, aktuelleCursorPos) & Mid(txtFields(feld_Nr), aktuelleCursorPos, Len(txtFields(feld_Nr)) - aktuelleCursorPos)

End If

Next

If wertIO = False Then txtFields(feld_Nr).Text = Mid(txtFields(feld_Nr), 1, aktuelleCursorPos - 1) & Mid(txtFields(feld_Nr), aktuelleCursorPos, Len(txtFields(feld_Nr)) - aktuelleCursorPos)

End If

'Next

End If



end sub







aber er löscht so IMMER jedes mal das aktuelle zeichen.



zweites problem wäre, wenn nicht per hand ein zeichen eingetippt wird, sondern beispielsweise gleich mehrere durch einfügen aus der zwischenablage. da klappt es gar nicht.



ziel ist, in einem textfeld nur zahlen un komma, oer punkt zuzulassen um die eingabe später in ein numerisches datenbankfeld zu speichern

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: