Tool - Jean Pierres Access Text Manager

[Sascha Trowitzsch]

Name des Produkts:	Access Text Manager
(Evtl. Kommerzielle) Beta-Version?	Nein
Art des Produkts: (Anwendung, AddIn, Tool o.ä.)	Entwickler-Add-In
Programmautor:	Jean Pierre (JPA)
Aktueller Versionsstand:	1.50
Downloadgröße:	ca. 850 KByte
Vorgesehen(e) Betriebssystem(e):	Ab Windows NT
Vorgesehene Office-Version(en):	Access2000 und höher
Andere Systemvoraussetzungen:	Keine
Installationshinweise: (Art des Setups etc.)	Setup nicht nötig: Kopieren der Add-In-Datei acwzDUP.mda in ein Verzeichnis beliebiger Wahl (oder auch in das Standard-AddIn-Verzeichnis der jeweiligen Office-Installation). Oder einfach mit Doppelklick starten und Anweisungen folgen.
Zielgruppe:	Access-Datenbankentwickler
Enthält das Produkt den Quellcode?	Nein (MDE);
Mit welchem Entwicklungswerkzeug wurde es genau erstellt? (Mit Versionsangabe)	MS Access 2000
Webseite:	-
Download unter:	http://www.abiss.de/downloads/public/atm.zip
Bisher getestete Konfigurationen:	- Access 2000, 2002 (XP)
Kurzbeschreibung:	Tool zum Verwalten von Textausgaben in/aus VBA (Access) und Formularen/Berichten. Mehrsprachig. (Siehe readme.txt im Zip-Archiv)
Testziel: In welcher Hinsicht und unter welchen Bedingungen soll das Produkt getestet werden?	Bitte auf Qualität beurteilen. Auf Bugs testen. Weitere Anregungen erwünscht.

[Sascha Trowitzsch]

Hinweis: Demo-Datenbank im Download ist enthalten.
(Jetzt weiß ich, wozu du die mso-Konstanten in Tabellenform benötigt hast... )

Gruß, Sascha

[J_Eilers]

Hi,

gäbe es vielleicht die Möglichkeit das Tool auch für A2K zur Verfügung zu stellen?

[JPA]

Ja, kann gerne auch das Tool für die Verionen:
A2000
A2003
A97
zur Verfügungstellen, wenn interesse besteht!

Die example.mdb (enthalten in der zip-Datei) ist übrigens in Access 2000 Format.

Gruß
JPA

[J_Eilers]

Nur die MDE leider nicht Und da ich hier nur A2K habe, kann ich es dann schlecht auf Bugs hin testen. Wenn es in 97 geht, dann sollte man doch damit anfangen, denn das sollten ja alle nutzen können.

[Papillon00]

Hallo Jean-Pierre

Sehr rafinierte Lösung - mir gefällt vor allem die Tatsache wonach ein Sprachwechsel aus einem beliebigen Formular möglich ist. Als Laier muss ich es jedoch zugestanden, aber die Tabelle mit allen Text-Bausteine habe ich nicht gefunden.... ;-(

Gruss

Papillon00

[JPA]

Auf vielfachen Wunsch habe ich nun mich dafür entschieden das Tool auch im Format Access 2000 zur Verfügung zu stellen.
Also ab sofort liegt im Testzentrum der Access Text manager im Format Access 2000 vor.
Das Tool läuft also jetzt unter 2000 und 2002.
Unter 2003 habe ich es noch nicht getestet (habe 2003 auf meinen Rechner noch nicht drauf bekommen:-)

Die Konvertierung in Access 97 würde viel Arbeit mit sich bringe, warte von daher noch ab, ob wirklich Bedarf besteht.

@Sascha
Wie kann ich die Rubrik "Mit welchem Entwicklungswerkzeug wurde es genau erstellt?" ändern?

Gruß
JPA

[J_Eilers]

Also mein System W2K, A2K, ich habe erstmal nur deine Example.mdb ausprobiert:

1) Ich muss den Verweis neu setzen.
2) Ich bekam andauernd den Hinweis, dass das Formular frmOptions nicht gefunden werden kann.

Code:

Public Function actLanguage() As Long
    actLanguage = 1
    On Error Resume Next
    actLanguage = Forms![frmOptions]![Language]
End Function

Nun gut dacht ich mir, wenns nicht geöffnet ist, kanns auch nicht gefunden werden. Also einfach mal eine 1 reingeschrieben. Dann gehts und jetzt kann ich auch wieder den Originalcode verwenden. Vielleicht wäre es hier sinnvoller zu schauen, ob das Formular geöffnet ist und der Wert nicht Null ist und es entsprechend zu handhaben (so wie du es dir vorstellst).

3) Wenn ich nun aber die Sprache ändern will und auf Ok oder Übernehmen gehe, kommt Fehler 2455 (Unzulässiger Verweis auf Eigenschaft eines Forms/Reports) in dieser Funktion:

Code:

Private Sub Labeling(obj As Object, Language As Byte, Optional subForm As Boolean)
    Dim rs As Recordset, tmp As String, tmpOBJ As Object
    If subForm Then
        On Error Resume Next
        obj.INI
        For Each tmpOBJ In obj.Controls
            If TypeName(tmpOBJ) = "SubForm" Then Labeling tmpOBJ.Form, Language, True
        Next
    End If
    On Error GoTo errHandling
    Set rs = CodeDb.OpenRecordset("SELECT sysTextunitObject.*, sysText.Wording, sysTextunit.LanguageID FROM sysText RIGHT JOIN (sysTextunit RIGHT JOIN sysTextunitObject ON sysTextunit.ID = sysTextunitObject.TextunitID) ON sysText.ID = sysTextunit.TextID WHERE Not ObjecttypeID=6 AND (sysTextunit.LanguageID=" & Language & " OR sysTextunit.LanguageID Is Null) AND Formularname = """ & obj.Name & """", dbOpenForwardOnly)
    Do Until rs.EOF
        If rs("ObjecttypeID") < 100 Then
            Set tmpOBJ = obj
        Else
            Set tmpOBJ = obj.Controls(rs("Objectname"))
        End If
        tmp = rs("Prefix") & rs("Wording") & rs("Suffix") & ""
        If IsNull(rs("textunitID")) Then
            If tmp = "" And Not tmpOBJ.Properties(rs("prpName")) = "" Then tmp = "***" & tmpOBJ.Properties(rs("prpName"))
        Else
            If IsNull(rs("Wording")) And Not tmpOBJ.Properties(rs("prpName")) = "" Then
                tmp = "***" & tmpOBJ.Properties(rs("prpName"))
            End If
        End If
        tmpOBJ.Properties(rs("prpName")) = tmp
NextItem:
        rs.MoveNext
    Loop
Leave:
    rs.Close
    Set rs = Nothing
    Exit Sub
    
errHandling:
    If Err.Number = 2455 Or Err.Number = 2465 Or Err.Number = 2485 Or Err.Number = 7794 Or Err.Number = 438 Then Resume NextItem
    Beep
    MsgBox Err.Description
    Resume Leave
End Sub

Die Änderung wird aber übernommen. Man kommt aber nur noch über Abbrechen aus dem Formular und dann gibts die Fehlermeldung, dass die Aktion Close abgebrochen wurde.

Mal sehen, was ich noch so finde

[JPA]

Grundsätzlich:
Also damit die Example.mdb angewandt werden kann, wird kein Verweis auf das Tool benötigt, da es nicht angezogen wird.
Das Tool, also der Verweis wird nur dann Benötigt wenn man das Tool anwenden möchte, um die Text-Tabellen zu pflegen.

Zu den Fehlermeldungen: Wahrscheinlich war ich mit der Version unter 2000 zu voreilig, denn unter XP gibs diese nicht. Ich werde mir dies genauer anschauen.

Danke für dein Feedback.
Gruß
JPA

[J_Eilers]

Setze ich den Verweis nicht, bekomme ich die Fehlermeldung, dass eine Funktion aufgerufen werden soll, die Access nicht findet.

[JPA]

@Jan
Du erhälst die Fehlermeldungen weil du in deinem VBA-Editor unter Extras/Optionen/Allgemein/Unterbrechung bei Fehlern "Bei jedem Fehler" ausgewählt hast. Dies ist generel ungüstig, schaue mal hier rein: http://www.fmsinc.com/tpapers/vbacode/Debug.asp

Ich habe den Code jetzt so geändert, daß diese Einstellung autmatisch geändert wird, daher müsste es jetzt auch bei dir laufen.

Zitat:

Setze ich den Verweis nicht, bekomme ich die Fehlermeldung, dass eine Funktion aufgerufen werden soll, die Access nicht findet.

Beim Berichten einer Fehlmeldung ist es für mich hilfreich mitzuteilen wann/bei welcher Aktion der Fehler auftritt, danke.
Ich vermute es passiert wenn du in der example.mdb-Datei auf das ATM-Symbol klickst. Das ist normal.
Der Verweis auf die atm.mde muss manuell gesetzt werden, um das Tool benutzen zu können.
Das Tool wird NUR dann benötigt, wenn du deine Texte/Textmeldungen pflegen willst.
Für die Laufzeit deines Projektes wird das Tool NICHT benötigt. Also bei weitergabe des Projektes (installation beim Kunden) brauchst du nicht das Tool mitzuliefern und der Verweis SOLLTE wieder entfernt werden.

[J_Eilers]

Wieder was ddazugelernt. Mir war das so nicht klar.

[Debus]

Eine sehr gute Lösung, werde in Zukunft damit arbeiten!
Das tool läuft bei mir prima auf Access 2000 und 2002.
Verbesserungsvorschlag:
Es wäre sinnvoll pro Sprache nicht nur eine Office-Sprache zuordnen zu können, sondern mehrere, da Office z.B. zwischen verschiednen Engl.Sprachen unterscheidet.

[JPA]

Hallo,

guter Punkt von Holger Debus, habe dies gleich eingebaut.
Es können jetzt mehrer Office-Sprachen zur einer Sprache vom Textmanager zugeordnet werden. Danke für den guten Hinweis!

Das Tool läuft jetzt auch unter Office 2003.
Wenn ein paar von euch dies noch mal testen könnten wäre prima, danke!


Gruß
JPA

[peppi]

Hallo JPA,

sicherlich kriege ich jetzt ob meiner Dummheit gleich eins auf die Mütze , aber mir ist es nicht gelungen, Dein Tool in eine Access2003-DB zu implementieren - was ganz bestimmt nicht an Dir liegt, sondern an mir...

Meine Vorgehensweise:
Meine DB geöffnet, in den vba-Editor gegangen, Deine mde als Verweis eingebunden, DB wieder geschlossen, neu geöffnet... Und nun finde ich nirgendwo den Aufruf (wie z.B. das Symbol in der Example.mdb), um den Texteditor starten zu können... Kannst Du mir bitte mal auf die Sprünge helfen, wo mein Fehler liegt? Danke...