TranslateExpression

TranslateExpression

Access-Versionen

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

Funktion

Wandelte eine übergegeben Zeichenfolge in einen gültigen Ausdruck um. Dabei wird sämtlicher "Whitespace" entfernt.

Deklaration

Function TranslateExpression(In As String, Out As String, ParseFlags As Long, TranslateFlags As Long) As Boolean

Argumente

In   umzuwandelnde Zeichenfolge
Out   Ergebnis der Umwandlung
ParseFlags   16: Alle Objektbezeichnungen werden in eckige Klammern gesetzt.
64: Führt bei mir zum Absturz von Access.
TranslateFlags   ???

Rückgabewert

True, wenn die Ausführung erfolgreich verlaufen ist.
False, wenn bei der Ausführung Fehler aufgetreten sind.

Code-Beispiel

Dim strIn As String
Dim strOut As String
Dim lngParseFlags As Long
Dim lngTranslateFlags As Long

strIn = " 7 + Me!MeinFeld"
strOut = ""
lngParseFlags = 0
lngTranslateFlags = 0

WizHook.Key = 51488399
If WizHook.TranslateExpression(strIn, strOut, lngParseFlags, lngTranslateFlags) _
        = True Then
  MsgBox strOut
Else
  MsgBox "Aktion fehlgeschlagen!"
End If

Hinweise

Bei meinen Test war es egal, welcher Wert für TranslateFlags eingegeben wurde. Ich konnte keine Auswirkungen feststellen.

Nach oben

 

Downloads: Beispieldatenbank / Hilfedatei / Doku als PDF-Datei