| Startseite > Tipps & Tricks > Wizhook-Objekt > EnglishPictToLocal |
|
|
|
EnglishPictToLocalEnglishPictToLocal
Diese Funktion ist in folgenden Access-Versionen verfügbar: 2000, 2002, 2003, 2007, 2010
übersetzt die Ausdrücke aus der Format-Eigenschaft in die aktuelle Sprache
Function EnglishPictToLocal(In As String, Out As String) As Boolean
Der Rückgabewert scheint immer "False" zu sein.
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
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.
|
02.10.2020: 06.11.2019: 06.05.2017: 27.03.2016: 23.05.2014: |
|
|
|
