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
, 58 mal gelesen