Hallo,

etwa so:



Private Sub txt_REQ_Zielsetzung_sysrep_Change()

If Len(Me!txt_REQ_Zielsetzung_sysrep.Text) >= 100 Then

MsgBox "Text darf nur 100 Zeichen lang sein"

Me!txt_REQ_Zielsetzung_sysrep.SelStart = 100

End If

End Sub



Mit freundlichem Gruß

gruscho





geschrieben von gruscho , 03.05.2006, 16:37 Uhr , 59 mal gelesen