La modération vous a écrit: Le terme Macro est implicite dans cette section, donc inutile. Nous l'avons supprimé et remplacé par Code
Bonjour,
J'ai une macro de Démarrage d'une base qui affiche un formulaire Menu et minimise la fenêtre principale
Code : Tout sélectionner
Sub Demarrage(evt As Object)
Dim oConnexion AS Object
Dim props(0) As New com.sun.star.beans.PropertyValue
Dim oWindow As Object, oDisplayAccess As Object, oDisplay As Object
Dim aSizeMax As New com.sun.star.awt.Rectangle
ThisDatabaseDocument.CurrentController.connect("","")
oConnexion = ThisDatabasedocument.CurrentController.ActiveConnection
ThisComponent.FormDocuments.loadComponentFromURL("fMenu","", 0, props())
oDisplayAccess = CreateUnoService("com.sun.star.awt.DisplayAccess")
Xray oDisplayAccess
oDisplay = oDisplayAccess.getByIndex(0)
oWindow = thisComponent.CurrentController.Frame.getContainerWindow()
aSizeMax = oDisplay.WorkArea
' IF oWindow.IsMaximized Then
oWindow.setPosSize(((aSizeMax.Width/2)-450), (aSizeMax.Height/2), 900, 400, com.sun.star.awt.PosSize.POSSIZE)
' Else 'X=(largeur écran/2)-100, Y=(hauteur écran/2), largeur 600pix, hauteur 200pix
' oWindow.IsMaximized = True
' End if
End Sub
Code : Tout sélectionner
Erreur d'exécution BASIC.
Une exception s'est produite :
Type: com.sun.star.sdbc.SQLException
Message: Impossible d'établir la connexion à la source de données "BaseAchatsEntretienSansMdPDev"..
Code : Tout sélectionner
ThisDatabaseDocument.CurrentController.connect("","")
Je précise que Open tourne sur un PC sous W7 64 bits et Libre 64 bits sur un autre PC aussi sous W7 64 bits.
Merci