vba:access:functions:index
Differences
This shows you the differences between two versions of the page.
| Next revision | Previous revision | ||
|
vba:access:functions:index [09.12.2013 09:39:54] 127.0.0.1 external edit |
vba:access:functions:index [29.04.2015 12:50:59] (current) yaslaw |
||
|---|---|---|---|
| Line 1: | Line 1: | ||
| + | ~~DISCUSSION:off~~ | ||
| + | ~~NOCACHE~~ | ||
| + | <const>ns=%NAMESPACE%</const> | ||
| ======[VBA] [Access] Functions====== | ======[VBA] [Access] Functions====== | ||
| Eine Sammlung von Funktionen die ich mehrheitlich in VBA MS Access verwende. | Eine Sammlung von Funktionen die ich mehrheitlich in VBA MS Access verwende. | ||
| Line 6: | Line 9: | ||
| ===== Funktionen mit eigener Seite ===== | ===== Funktionen mit eigener Seite ===== | ||
| {{pagequery> | {{pagequery> | ||
| - | @vba:access:functions: *; | + | ^%%ns%%:(?!index)[^:]+(?::index)?$; |
| - | filter=id:vba:access:functions:[^:]+(?::index|)$,^id:vba:access:functions:index; | + | fullregex; |
| - | sort=ns,title; | + | sort=ns:asc,title:asc; |
| display={title}; | display={title}; | ||
| - | snippet=plain,all,w30; | + | snippet=plain,999999,l1; |
| bullet=square; | bullet=square; | ||
| fontsize=100%; | fontsize=100%; | ||
| Line 318: | Line 321: | ||
| </code> | </code> | ||
| - | ====translateToTechName()==== | ||
| - | Wandelt ein String in einen technischen Namen. Die Funktion replaceUmlaute() wird dazu verwendet. | ||
| - | Diese finden sie hier: [[:vba:functions:#replaceUmlaute]] | ||
| - | <code vb translateToTechName> | ||
| - | '/** | ||
| - | ' * Erstellt aus einem String einen technischen Namen | ||
| - | ' * @used replaceUmlaute http://wiki.yaslaw.info/wikka/VbVbaFunctions#replaceUmlaute | ||
| - | ' * @param String Name der gewandelt werden soll | ||
| - | ' * @param Integer Maximale Länge | ||
| - | ' * @return String | ||
| - | ' */ | ||
| - | Public Function translateToTechName( _ | ||
| - | ByVal iName As String, _ | ||
| - | Optional ByVal iMaxLen As Integer = 255 _ | ||
| - | ) As String | ||
| - | regexp.IgnoreCase = True | ||
| - | regexp.Global = True | ||
| - | translateToTechName= replaceUmlaute(UCase(iName), True) | ||
| - | |||
| - | regexp.pattern = "([\W])" | ||
| - | translateToTechName= regexp.replace(translateToTechName, "_") | ||
| - | |||
| - | translateToTechName= Left(translateToTechName, iMaxLen) | ||
| - | |||
| - | End Function | ||
| - | </code> | ||
| {{tag>VBA MS_Access}} | {{tag>VBA MS_Access}} | ||
vba/access/functions/index.1386578394.txt.gz · Last modified: 02.06.2014 09:15:10 (external edit)
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: GNU Free Documentation License 1.3
