Functie Chr
Van toepassing op
Geeft een tekenreeks als resultaat die het teken bevat dat bij de opgegeven tekencode hoort.
Syntaxis
Chr(tekencode)
Het vereiste tekencodeargument is een Lang waarmee een teken wordt geïdentificeerd.
Opmerkingen
Getallen van 0 - 31 zijn hetzelfde als standaard, niet-afdrukbare ASCII-codes. Chr(10) retourneert bijvoorbeeld een regelinvoerteken. Het normale bereik voor charcode is 0 - 255. Op DBCS-systemen is het werkelijke bereik voor tekencode echter -32768 tot 65535.
Opmerking
De functie ChrB wordt gebruikt met bytegegevens in een tekenreeks. In plaats van een teken te retourneren, dat één of twee bytes kan zijn, retourneert ChrB altijd één byte. De functie ChrW retourneert een tekenreeks met het Unicode-teken, behalve op platforms waar Unicode niet wordt ondersteund. In dat geval is het gedrag identiek aan de functie Chr .
Opmerking
Visual Basic voor de Mac biedt geen ondersteuning voor Unicode-tekenreeksen. Daarom kan ChrW(n) niet alle Unicode-tekens retourneren voor n waarden in het bereik van 128-65.535, zoals dit wel kan in de Windows-omgeving. In plaats daarvan geeft ChrW(n) een 'schatting' voor Unicode-waarden n groter dan 127. U moet ChrW daarom niet gebruiken in een Mac-omgeving.
Queryvoorbeelden
| Expression | Resultaten |
|---|---|
| SELECT Chr(97) AS Expr1 FROM ProductVerkoop GROUP BY Chr(97); | Retourneert de waarde 'Teken' voor de ASCII-code '97'. Resultaat: "a". |
| SELECT Chr(90) AS ChrValue FROM ProductSales GROUP BY Chr(90); | Retourneert de waarde 'Teken' voor de ASCII-code '90' in de kolom ChrValue. Resultaat: "Z". |
VBA-voorbeeld
Opmerking
In de volgende voorbeelden wordt het gebruik van deze functie in een VBA-module (Visual Basic for Applications) toegelicht. Meer informatie over het werken met VBA vindt u door in de vervolgkeuzelijst naast Zoeken de optie Referentie voor ontwikkelaars te selecteren en een of meer termen in het zoekvenster te typen.
In dit voorbeeld wordt de functie Chr gebruikt om het teken te retourneren dat hoort bij de opgegeven tekencode.
Dim MyChar
MyChar = Chr(65) ' Returns A.
MyChar = Chr(97) ' Returns a.
MyChar = Chr(62) ' Returns >.
MyChar = Chr(37) ' Returns %.