Jede VBA-Eigenschaft enthält oder erwartet nur einen einzigen Wert. Manchmal handelt es sich dabei jedoch um Zahlenwerte, die mehr als einen Eigenschaftswert repräsentieren. Ein gutes Beispiel dafür ist die MsgBox-Anweisung, für die Sie mit einem einzigen Zahlenwert gleichzeitig die anzuzeigenden Schaltflächen und das Symbol festlegen. Diese Festlegung ist einfach – schwieriger wird es, wenn Sie solche Eigenschaften auswerten müssen. Dieser Artikel liefert das notwendige Know-how zu diesem Thema.<\/p>\n
Die Beispiele dieses Artikels finden Sie in der Datenbank 1207_Binaerzahlen.mdb<\/b>.<\/p>\nWas sind Binärzahlen<\/h2>\n
Im Gegensatz zu den hierzulande gebräuchlichen Dezimalzahlen, die mit Ziffern von 0 bis 9 zusammengesetzt werden, gibt es im Binärsystem nur die beiden Zahlen 0 und 1. Wie im Dezimalsystem entscheidet die Stelle über die Wertigkeit des jeweiligen Teils. 123 <\/b>entspricht einem Hunderter, zwei Zehnern und drei Einern. Im Binärsystem gibt es Zahlen wie 1101<\/b>. In diesem Fall heißt dies: Ein Achter, ein Vierer, kein Zweier und ein Einer, in Summe: 13. Jede Stelle wird also gegenüber der Stelle rechts davon nicht um den Faktor 10, sondern lediglich um den Faktor 2 erhöht.<\/p>\n
Was soll man als Access-Entwickler damit anfangen Die Frage ist berechtigt, denn in den meisten Fällen werden solche Zahlenwerte als Parameter für VBA-Funktionen verwendet oder als Ergebnisse von Eigenschaften geliefert – und zwar gut kaschiert.<\/p>\n
Ein gutes Beispiel ist die MsgBox<\/b>-Anweisung (siehe Artikel Meldungsfenster anzeigen und auswerten<\/b>). Diese Funktion erwartet als zweiten Parameter Informationen darüber, welche Schaltflächen es anzeigen soll, welches Icon erscheint und welche Schaltfläche als Standardschaltfläche markiert wird.<\/p>\n
Ein Beispiel ist die folgende Anweisung:<\/p>\n
MsgBox<\/span> \"Beispielmeldung\", vbOKCancel + vbCr<\/span>itical + vbDefaultButton2<\/pre>\nWie nur ermittelt VBA nun, welche Schaltflächen und Icons angezeigt werden und welche Schaltfläche als Standardschaltfläche dient Es ist ganz einfach: Jeder der Ausdrücke, also vbOKCancel<\/b>, vbCritical <\/b>oder vbDefaultButton2<\/b>, entspricht einem Zahlenwert. Durch den Plus<\/b>-Operator (+<\/b>) werden die Zahlenwerte addiert und später von VBA wieder auseinandergenommen. Damit dies funktioniert, dürfen die Zahlenwerte jedoch nicht willkürlich eingesetzt werden. <\/p>\n
Die Zahlenwerte hinter vbDefaultButton1 <\/b>bis vbDefaultButton4 <\/b>lauten beispielsweise 0<\/b>, 256<\/b>, 512 <\/b>und 768<\/b>. Die Schaltflächen geben Sie mit diesen Werten an:<\/p>\n\n- vbOKOnly<\/b>: 0<\/b><\/li>\n
- vbOKCancel<\/b>: 1<\/b><\/li>\n
- vbAbortRetryIgnore<\/b>: 2<\/b><\/li>\n
- vbYesNoCancel<\/b>: 3<\/b><\/li>\n
- vbYesNo<\/b>: 4<\/b><\/li>\n
- vbRetryCancel<\/b>: 5<\/b><\/li>\n<\/ul>\n
Fehlen noch die Icons, die durch folgende Konstanten angegeben werden:<\/p>\n
\n- vbCritical<\/b>: 16<\/b><\/li>\n
- vbQuestion<\/b>: 32<\/b><\/li>\n
- vbExclamation<\/b>: 48<\/b><\/li>\n
- vbInformation<\/b>: 64<\/b><\/li>\n<\/ul>\n
Wenn Sie nun etwa ein Meldungsfenster mit den Schaltflächen OK <\/b>und Abbrechen<\/b>, der zweiten Schaltfläche als Standardschaltfläche und dem Icon mit dem Fragezeichen (vbQuestion<\/b>) anzeigen möchten, verwenden Sie als zweiten Parameter diesen Ausdruck:<\/p>\nvbOKCancel + vbDefaultButton2 + vbQuestion<\/pre>\nDies entspricht wiederum den folgenden Zahlenwerten:<\/p>\n
1 + 256 + 32<\/pre>\nSie könnten also auch schreiben:<\/p>\n
MsgBox<\/span> \"Beispielmeldung\", 289<\/pre>\nStatt dem Plus-Zeichen können Sie auch den Operator Or <\/b>verwenden:<\/p>\nvbOKCancel Or vbDefaultButton2 Or vbQuestion<\/pre>\nDas Plus-Zeichen hat die gleiche Bedeutung wie Or<\/b> Wäre hier nicht eher And <\/b>das passende Pendant Nein – dies können Sie leicht prüfen. Wenn Sie das Ergebnis von der Variante mit Or <\/b>im Direktfenster ausgeben, erhalten Sie dieses Ergebnis:<\/p>\n vbOKCancel Or vbDefaultButton2 Or vbQuestion\r\n 289 <\/pre>\nDie And<\/b>-Variante liefert hingegen:<\/p>\n vbOKCancel And vbDefaultButton2 And vbQuestion\r\n 0 <\/pre>\nWas führt zu diesen Ergebnissen für Or<\/b> und And<\/b> Nun: Or <\/b>steht für eine logische Disjunktion. Hier wird jede Position der binären Zahlen miteinander verglichen und mit Or <\/b>verknüpft. Dabei gilt:<\/p>\n\n- 1 Or 1= 1<\/b><\/li>\n
- 1 Or 0 = 1<\/b><\/li>\n
- 0 Or 1= 1<\/b><\/li>\n
- 0 Or 0 = 0<\/b><\/li>\n<\/ul>\n
Um dies für das obige Beispiel umzusetzen, berechnen Sie zunächst die Binärzahlen:<\/p>\n
1 + 32 + 256 <\/b>entspricht somit 1 + 100000 + 100000000<\/b>. Dies ergibt 100100001<\/b>, umgerechnet 289<\/b>.<\/p>\n
Die And-Verknüpfung wiederum entspricht einer logischen Konjunktion, das heißt, dass nur solche Bits erhalten bleiben, die in allen verknüpften Zahlen vorkommen. Hier lauten die Regeln:<\/p>\n
\n- 1 And 1= 1<\/b><\/li>\n
- 1 And 0 = 0<\/b><\/li>\n
- 0 And 1= 0<\/b><\/li>\n
- 0 And 0 = 0<\/b><\/li>\n<\/ul>\n
Deshalb ergibt auch 1 + 32 + 256<\/b>, also 1 + 100000 + 100000000<\/b>, den Wert 0<\/b>.<\/p>\n
Nun wissen Sie, wie sich der Wert für die Konfiguration des Meldungsfensters zusammensetzt. Wie aber ermittelt VBA, welche Schaltflächen und welche Icons anzuzeigen sind<\/p>\n
Dazu wird der mit Or <\/b>zusammengestellte Wert per And<\/b>-Operator mit allen verfügbaren Einzelwerten verglichen. Das einfachste Beispiel sind die Schaltflächen. VBA wird etwa wie folgt vorgehen und nacheinander alle Werte von 0 <\/b>bis 5 <\/b>mit dem übergebenen Wert vergleichen. Angenommen, der zweite Parameter hat den Wert 1<\/b>, was der Konstanten vbOKCancel <\/b>entspricht.<\/p>\nMöchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t