関数を作成する際、列挙型を作成しておくと呼び出し時にリストから引数を選択できるので便利

例）WINDOWSアプリを起動する関数ルーチン

'列挙型の宣言
Enum WinAppType
    PHOTOED = 0
    KODAKING = 1
    ACROBAT = 2
    WORD = 3
End Enum

続きを読む…»

・10進数を16進数に変換

Hex(number)

・10進数を8進数に変換

Oct(number)

・16進数を10進数に変換

Val("&h" & number)

・8進数を10進数に変換

Val("&o" & number)

分割されてしまったラベルとテキストボックスを再度連結させるには
ラベルを切り取り、テキストボックスを選択し、貼り付ける

Office2000をSR-1 Premiumにアップデートしていないのが原因で
発生するエラー。
Officeをアップデートすると解消される。

Dim dbs As Database
Dim rst As Recordset
Dim strCriteria As String

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("住所テーブル", _
dbOpenDynaset)

With rst
    strCriteria = "住所 Like '東京*'"
    .FindFirst strCriteria
    Do Until .NoMatch
        Debug.Print !ID, !氏名, !住所, !郵便番号
        .FindNext strCriteria
    Loop
    .Close
End With