Asc関数、AscB関数、AscＷ関数：Access

Access　Asc関数は指定した文字列内にある先頭の文字の文字コード（ASSCIIコード）を返す関数です。

■ 構文
Asc(string)

■ 引数
string ：　（必須）　変換する文字列を指定します。

■ 戻り値
DBCS を使用していないシステムでは、0 ～ 225 の範囲の値が返されます。DBCS を使用しているシステムでは、-32768 ～ 32767 の範囲の値が返されます。
（DBCSとは、1文字が2bytesの日本語等のキャラクタセットのことです）

AscB関数は、最初のバイトデータを返します。
AscW関数は、Unicode文字セットの文字を返します。

■ Access VBA 実行コード

Option Compare Database
Private Sub コマンド0_Click()
Dim s1 As String
'リストボックスのクリア
Me!リスト1.RowSource = ""
s1 = "012345"
Me!リスト1.AddItem s1 & ";" & Asc(s1) & _
";" & AscB(s1) & ";" & AscW(s1)
s1 = "12345"
Me!リスト1.AddItem s1 & ";" & Asc(s1) & _
";" & AscB(s1) & ";" & AscW(s1)
s1 = "2345"
Me!リスト1.AddItem s1 & ";" & Asc(s1) & _
";" & AscB(s1) & ";" & AscW(s1)
s1 = "345"
Me!リスト1.AddItem s1 & ";" & Asc(s1) & _
";" & AscB(s1) & ";" & AscW(s1)
s1 = "０１２３４５"
Me!リスト1.AddItem s1 & ";" & Asc(s1) & _
";" & AscB(s1) & ";" & AscW(s1)
s1 = "abcdef"
Me!リスト1.AddItem s1 & ";" & Asc(s1) & _
";" & AscB(s1) & ";" & AscW(s1)
s1 = "ABCDEF"
Me!リスト1.AddItem s1 & ";" & Asc(s1) & _
";" & AscB(s1) & ";" & AscW(s1)
s1 = "ａｂｃｄｅｆ"
Me!リスト1.AddItem s1 & ";" & Asc(s1) & _
";" & AscB(s1) & ";" & AscW(s1)
s1 = "ＡＢＣＤＥＦ"
Me!リスト1.AddItem s1 & ";" & Asc(s1) & _
";" & AscB(s1) & ";" & AscW(s1)
s1 = "あいうえお"
Me!リスト1.AddItem s1 & ";" & Asc(s1) & _
";" & AscB(s1) & ";" & AscW(s1)
End Sub