From 8393014898d67795f44835791aa0d9ed535be5d3 Mon Sep 17 00:00:00 2001 From: Jean-Pierre Ledure Date: Tue, 12 Aug 2014 12:08:48 +0200 Subject: Access2Base - non-Base components So far the first call to the API was a call to the OpenConnection method. Without an OpenConnection some methods issued a cryptic "Object variable not set" Basic run-time message. It is now intercepted to make it clearer. A number of features are not database related: error handling, events handling, windows move/resize, dialogs, ... They have been identified and adapted to be callable without database connection. As such they are callable from any LO component, not only Base. Change-Id: I99f408c8404a6192149747228b2b8493b9df5ae3 Reviewed-on: https://gerrit.libreoffice.org/10883 Reviewed-by: Jean-Pierre Ledure Tested-by: Jean-Pierre Ledure --- wizards/source/access2base/L10N.xba | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'wizards/source/access2base/L10N.xba') diff --git a/wizards/source/access2base/L10N.xba b/wizards/source/access2base/L10N.xba index ff1ce5bcc29e..b5f99a0d7b95 100644 --- a/wizards/source/access2base/L10N.xba +++ b/wizards/source/access2base/L10N.xba @@ -25,7 +25,7 @@ Dim sLocal As String Select Case psLocale Case "EN", "DEFAULT" Select Case UCase(psShortlabel) - Case "ERR" & ERRDBNOTCONNECTED : sLocal = "Connection to the database is not active" + Case "ERR" & ERRDBNOTCONNECTED : sLocal = "No active connection to a database found" Case "ERR" & ERRMISSINGARGUMENTS : sLocal = "Arguments are missing or are not initialized" Case "ERR" & ERRWRONGARGUMENT : sLocal = "Argument nr. %0 [Value = '%1'] is invalid" Case "ERR" & ERRMAINFORM : sLocal = "Document '%0' does not contain any form" @@ -129,7 +129,7 @@ Dim sLocal As String End Select Case "FR" Select Case UCase(psShortlabel) - Case "ERR" & ERRDBNOTCONNECTED : sLocal = "Pas de connexion active à la banque de données" + Case "ERR" & ERRDBNOTCONNECTED : sLocal = "Pas de connexion active trouvée à une banque de données" Case "ERR" & ERRMISSINGARGUMENTS : sLocal = "Des arguments sont manquants ou non initialisés" Case "ERR" & ERRWRONGARGUMENT : sLocal = "L'argument n° %0 [Valeur = '%1'] n'est pas valable" Case "ERR" & ERRMAINFORM : sLocal = "Le document '%0' ne contient aucun formulaire" -- cgit