Je renvoie ce message en espérant qu'un professionnel de la macro me
trouvera une solution.
J'ai besoin d'aide et n'étant pas un pro de la macro, je m'adresse aux
professionnels de l'informatique.
J'ai créé des formulaires à partir d'une base de données et lorsque je
les utilise ils ne s'ouvrent pas complètement sur la fenêtre.
J'aimerai, si s'est possible, les agrandir à l'ouverture. Je suppose
qu'il faut une macro et je ne suis pas assez compétent pour la réaliser,
c'est la raison pour laquelle je m'adresse à la communauté.
Merci d'avance pour votre aide car je n'arrive pas à concrétiser malgré
l'aide apporter par la communauté près avoir testé les deux macros jointes.
APACHE 46 a écrit :
Tu vas me trouver un peu pénible je te remercie une nouvelle fois pour
ton aide.
J'ai mis les macro l'une à la suite de l'autre. La première étant a
macro d'ouverture du formulaire.
A cette ligne openMode = "open" j'ai le message suivant erreur de
syntaxe.
[EMAIL PROTECTED] a écrit :
APACHE 46 a écrit :
Effectivement j'ai testé la macro mais je me heurte à un problème au
niveau du lancement du formulaire j'ai cette erreur qui apparait
REM ***** BASIC *****
Sub ChangeTaillePositionFenetre
dim oCadre as Object
dim oFenetre as Object
dim oRect as Object
dim nHauteur as Integer
dim nLargeur as Integer
dim nPosX as Integer
dim nPosY as Integer
oCadre = StarDesktop.getCurrentFrame()
oFenetre = oCadre.getContainerWindow()
oRect = oFenetre.getPosSize() nPosX = oRect.X
nPosY = oRect.Y
nHauteur = 550
nLargeur = 800
oFenetre.setPosSize(nPosX, nPosY, nLargeur, nHauteur, 15)
End Sub
A tout hasard, il manque sans doute la macro d'ouverture du formulaire :
Function OpenForm( formContainer as variant, oConnection as variant,
sFormName as string, optional strMode as string ) as variant
Dim aProp(1) As New com.sun.star.beans.PropertyValue
dim openMode as string
if ismissing( strMode ) then
openMode = "open"
else
openMode = strMode
endif
aProp(0).Name = "ActiveConnection"
aProp(0).Value = oConnection
aProp(1).Name = "OpenMode"
aProp(1).Value = strMode
OpenForm =
formContainer.loadComponentFromURL(sFormName,"_blank",0,aProp())
End Function
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
