小数点第2位で切り捨てしたいとき

Fix関数を使う
しかし、Fix関数は整数を返すので、値×（残したい小数点以下の桁数×10）の値をFixし、（残したい小数点以下の桁数×10）で割る

例）

fix(値*10)/10

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

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

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

続きを読む…»

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

テーブルにリレーションシップを組んであるため、
削除クエリでレコードを削除できない場合の解決法 

クエリのプロパティで、固有のレコード（UniqueRecords）を「はい」にする