vba:functions:index
Differences
This shows you the differences between two versions of the page.
| Both sides previous revision Previous revision | |||
|
vba:functions:index [31.08.2015 09:20:44] yaslaw |
vba:functions:index [29.06.2016 10:56:17] (current) yaslaw |
||
|---|---|---|---|
| Line 215: | Line 215: | ||
| isClassModul = (Application.VBE.ActiveVBProject.VBComponents(tn).name) = tn | isClassModul = (Application.VBE.ActiveVBProject.VBComponents(tn).name) = tn | ||
| Err.Clear | Err.Clear | ||
| - | End Function | ||
| - | </code> | ||
| - | |||
| - | ====bitComp()==== | ||
| - | MS Access kennt für SQL-Statements kein Bit Vergleich. Mittels dieser Funktion kann man das im SQL | ||
| - | trotzdem anwenden. Die Funktion kann aber auch normal innerhalb von VB verwednet werden. | ||
| - | <code vb bitComp.bas> | ||
| - | '/** | ||
| - | ' * Copyright mpl by ERB software | http://wiki.yaslaw.info | ||
| - | ' * | ||
| - | ' * Bit Comparison | ||
| - | ' * geeignet für MS Access SQL-Statements | ||
| - | ' * @example: Alle User mit Schreibrecheten gem. CHMOD hat | ||
| - | ' * SELECT * FROM [user] WHERE BITCOMP([rigths], 2) | ||
| - | ' * @param Integer | ||
| - | ' * @param Integer | ||
| - | ' * @return Boolean | ||
| - | ' */ | ||
| - | Public Function bitComp(ByVal iBytes As Integer, ByVal iBit As Integer) As Boolean | ||
| - | bitComp = (iBytes And iBit) | ||
| End Function | End Function | ||
| </code> | </code> | ||
vba/functions/index.1441005644.txt.gz · Last modified: 31.08.2015 09:20:44 by yaslaw
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: GNU Free Documentation License 1.3
