To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=103880
User atjensen changed the following:
What |Old value |New value
================================================================================
Status|UNCONFIRMED |RESOLVED
--------------------------------------------------------------------------------
Resolution| |WORKSFORME
--------------------------------------------------------------------------------
------- Additional comments from [email protected] Thu Jul 30 15:55:29
+0000 2009 -------
your always allowed to open an issue. Sorry if I made it sound like that wasn't
true.
Ok - well let me help you here then.
In your first example database replace the macro
BASETEST.Standard.AccesBase.ConnecterSource
with the following:
Sub ConnecterSource()
Dim login As String, password As String
Dim maSource As Object, monDbContext As Object
Dim leDoc As Object
'leDoc = ThisDataBaseDocument
'nomSource = left(leDoc.Title,len(leDoc.title) - 4)
'monDbContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
'maSource=monDbContext.getByName(NomSource)
'Les paramètres de connexion
login = ""
password = ""
ThisDatabaseDocument.CurrentController.connect(login, password)
'maConnexion = maSource.getConnection(login, password)
maConnexion = ThisDatabasedocument.CurrentController.ActiveConnection
if IsNull(maConnexion) then
' MsgBox("Connexion non établie", 16)
End if
if NOT IsNull(maConnexion) = False then
leDoc.unlockControllers
MsgBox("Problème de connection : la connexion n'est pas établie")
End if
if NOT IsNull(maConnexion) = True then
' MsgBox(" la connexion est établie")
End if
End Sub
With the changes your menu form will work as expected.
Regarding why the chagnes and what exactly your earlier code was doing - well my
Francais is a bit rusty (ok very rusty) but if you are game I'll try to bursh it
off and go over the details at the forum with you..or we can talk via mailing
list at [email protected]
With regards to this issue I am setting as WORKSFORME
---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
