This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision | ||
vba:functions:index [31.08.2015 09:20:34] yaslaw |
vba:functions:index [29.06.2016 10:56:17] (current) yaslaw |
||
---|---|---|---|
Line 1: | Line 1: | ||
- | ~~NOTOC~~ | ||
~~DISCUSSION:off~~ | ~~DISCUSSION:off~~ | ||
~~NOCACHE~~ | ~~NOCACHE~~ | ||
Line 216: | 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> |