在Access中通过自定义函数将十进制转换成八进制。

Public Function DecOct(lngDecimal As Long)
    Dim lngQout As Long
    Dim strTmp As String
    
    lngQout = lngDecimal
    
    Do Until lngQout = 0
      strTmp = (lngQout Mod 8) & strTmp
      lngQout = Int(lngQout / 8)
    Loop
    DecOct = strTmp
End Function

例：输入 DecOct (1024) 转换出来的结果就是八进制：2000。