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.
Nochmal danke Robert!
Leider habe ich im Moment keine Zeit möchte erst die alten Daten
übertragen und die Tabellen und Formulare erstellen.
Ich habe für PHP ein kleines Programm das überprüft und Formatiert werde
versuchen sowas auch für Basic zu machen.
Eine focus() oder setfocus() Funktion sollte es für Base auch geben.
Sobald ich was brauchbares habe werde ich es schicken.
Jürgen
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
