Hallo Jürgen,
>
> Was man noch nicht optimal ist das man auch kurze Zahlen eingeben kann.
> Wenn ich wider Zeit habe kontrolliere ich das noch mit einem Makro und
> einem Dialog an den Benützer was er falsch macht.
Hier ein Makro-Kurzvorschlag:
Sub Telefonnummer
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm AS OBJECT
DIM oText AS OBJECT
DIM vInhalt AS VARIANT
oDoc=thisComponent
oDrawpage=oDoc.Drawpage
rem Lage des Feldes in dem entsprechenden Formular aufsuchen
oForm=oDrawpage.Forms.getByName("Standard")
oText=oForm.getByName("PatternField")
vInhalt=oText.Text()
IF len(vInhalt) < 12 THEN
msgbox "Bitte das ganze Textfeld ausfüllen"
ENDIF
End Sub
Die Textlänge müsste 12 sein, da die Bindestriche mitgezählt werden. Noch
besser wäre jetzt natürlich, wenn der Cursor anschließend zurück in das Feld
gesetzt würde. Dafür kenne ich mich mit Makros leider nicht genug aus.
Gruß
Robert
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
