Startseite > Tipps & Tricks > Wizhook-Objekt > EnglishPictToLocal
Team-Moeller.de - Datenbankentwicklung und mehr ...

EnglishPictToLocal

EnglishPictToLocal

Access-Versionen

Diese Funktion ist in folgenden Access-Versionen verfügbar: 2000, 2002, 2003, 2007, 2010

Funktion

übersetzt die Ausdrücke aus der Format-Eigenschaft in die aktuelle Sprache

Deklaration

Function EnglishPictToLocal(In As String, Out As String) As Boolean

Argumente

In   Eingabewert: zu übersetzender Ausdruck
Out   Rückgabewert: übersetzung des Ausdrucks in aktueller Sprache

Rückgabewert

Der Rückgabewert scheint immer "False" zu sein.

Code-Beispiel

Dim ctl As Control
Dim strIn As String
Dim strOut As String
Dim fSuccess As Boolean

For Each ctl In Me!fraAusdruck.Controls
  If ctl.ControlType = acOptionButton Then
    If ctl.OptionValue = Me!fraAusdruck Then
      strIn = ctl.Controls(0).Caption
      Exit For
    End If
  End If
Next

WizHook.Key = 51488399
fSuccess = WizHook.EnglishPictToLocal(strIn, strOut)

MsgBox "Eingabewert: " & strIn & vbCrLf & vbCrLf & _
       "Ausgabewert: " & strOut, vbInformation, "Erfolgreich: " & fSuccess 

Hinweise

Wenn als Eingabewert ein Text verwendet wird, der nicht als Ausdruck in der Format-Eigenschaft zur Verfügung steht, versucht die Funktion trotzdem eine (eher sinnlose) übersetzung zu liefern.

Es ist mir in meinen Tests (mit Access 2002) (bisher) nicht gelungen, als Rückgabewert "True" zu erzeugen.

Nach oben

 

Downloads: Beispieldatenbank / Hilfedatei / Doku als PDF-Datei

Microsoft MVP - Thomas Möller


27.03.2016:
TM VBA-Inspector:
Installationsroutine überarbeitet.


23.05.2014:
TM-RebuildDatabase
Version 1.75 bereitgestellt.


07.12.2014:
TM-DatenKlassenGenerator
Version 3.55 bereitgestellt.


21.11.2014:
TM-SmartTypes
Version 2.37.18 bereitgestellt.


Powered by CMSimple - Template by CMSimple-Styles.com - Autor:Thomas Möller