10進数を8進数と16進数に変換する ： Access

10進数を8進数に変換するにはOct関数を、16進数に変換するにはHex関数を使います

Oct関数 ： Oct（Number)
Hex関数 ： Hex（Number)
■ 実行フォーム
10進数のテキストボックスに数値を入力し［変換］ボタンをクリックすると、8進数と16進数のテキストボックスに変換し表示されます。
■ Access VBA 実行コード例

Option Compare Database
Option Explicit

Private Sub コマンド7_Click()
    If Nz(Me!テキスト5, "") = "" Then
        MsgBox "10進数を入力してください。"
        Me!テキスト5.SetFocus
        Exit Sub
    End If
    If IsNumeric(Me!テキスト5) = False Then
        MsgBox "10進数には数値を入力してください。"
        Me!テキスト5.SetFocus
        Exit Sub
    End If
    '8進数
    Me!テキスト8 = Oct(Me!テキスト5)
    '16進数
    Me!テキスト10 = Hex(Me!テキスト5)
End Sub